- 1 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:(・∀・)ﾁﾝﾎﾟｰ!! [04/06/02 11:39]
- perl書きなんだがさ、こうリクに答えてなんか作りたいんだ。
だからリクエストをくれ。
- 45 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/08 12:24]
- opendir( DIR, "./directory name/" );
@files = readdir( DIR );
closedir( DIR );
ほれ。これでファイル一覧を配列に取得できるぞ。
あとはてきとーにやれ。
- 46 名前：デフォルトの名無しさん mailto:sage [04/06/08 12:40]
- 一日かかったんですか？
- 47 名前：デフォルトの名無しさん mailto:sage [04/06/08 13:44]
- 一生懸命作ったんだろうからそう言ってやるなよ。
- 48 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/08 13:47]
- 久々に来たんだからそゆこといっちゃﾔ━━━━(ﾟ∀ﾟ)━━━━!!
- 49 名前：デフォルトの名無しさん mailto:sage [04/06/09 01:03]
- ＿−＝＝−一 :−−
/;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;＼ ーー＿＿ ￣￣///
／| ::::::::/7;;;;;;;;;;;;;;;;;;;;;;;;;;;; ＼ ￣一,///
／..．ヽ:::::::::::|;;;;;;;;;;;;;;;;;;;;;;;....... .＼￣ー＿ ..///
/ ／ ＼:::/;;;;;;;;;;;;;;;; ＿,−〜ヽヾ ヽ///
| ./ /;;;;;;;;;;;;::＿／_______~~~~|| /// ∧∧∧∧∧∧∧∧∧∧∧
| | /;;;;;;;;;;;;;;;:/M〜、------;| :| ./// ＜ ＞
|| /;;;;;;;;;;;;;;;:/.| |:~:: .~`-----: ::::|.../// ＜ F u c k s o R e e n a！＞
` /;;;;;;;; ／ ;;;|| |; r"~`v;:rｖ~`;l";;;;;;../// ＜ ＞
∠--" .;;;;;;;.||l.|ゞ``^”:i |i`~/|::::;;;;///ﾍ ∨∨∨∨∨∨∨∨∨∨∨
／ |＼___ .;;;;;;;|.| ||ﾐﾐ;;|mmrl「"/iヽ///| |
/;;;;;; ﾉ/ ◆＼ ;;;;;|| |、ヾiiiiiiirﾉ/::ヾヾヽ;;;;;丶＼
/;;;;;;;; //◆◇◆ヾ_..| f";;;;ヾ`￣~／:::ヽ"ヾ"ヽ::◆ヽ＼
ﾉ.::::::: /人ヽ◆◇◆|丶＿ヾ;;;;;`｝｛_;::: //ヾ"ヾヽ;;;;;◇ヽ＼
/:::::::::::;/::::::::::＼ヽ◆◇|;;;;;;;;;;;;;;;;;;;;;;ノ~＼///◆ヾヽ()ヽ／;;;;;;;;ヽ
`ソ,／;;;;;;;;;;;;;;;;;/ヽヽ◆|~~~~~~~~~/| |ヽ///◇◆ヽゝノ|;;;;;;;;;;;;;:::＼
γ;;;;;;;;;;;;;;;;;;/;;;;;;;;ヾヾ;||~~~~~~~/~...| |.///◆／;;;;;;;ヽ ..| ;;;;;;;;;;;;;;;;;ヽ
/;;;;;;;;;;;;;;;;;;;;;;;/;;;;;;;;;;;;;;;;;ヽ|~~~/~ ....| ///:|／::::::::::::::::::ヾ/|;;;;;;;;;;;;;;;;;;;;;|
/;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;|~/~ .......|///::::| :;;;;;;;;;;;;;;;;;;;;;;;;ヾヽ;;;;;;;;;;;;;;;;;|
††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††††
- 50 名前：SimpleHTTPD.pl mailto:sage [04/06/09 01:07]
- #!/usr/bin/perl
use IO::Socket;
$SIG{CHLD} = sub {wait()};
$main_sock= new IO::Socket::INET(LocalHost => 'localhost',
LocalPort => 9999,
Listen =>5,
Proto => 'tcp',
Reuse => 1,
);
$Dfile="index.html";
while($new_sock = $main_sock->accept()){
select($new_sock);
$ |= 1;
select(STDOUT);
$pid = fork();
die "Cannot fork: $!" unless defined ($pid);
if($pid == 0){
while(defined ($buf = <$new_sock>)){
print $buf;
if($buf eq "exit"){close $new_sock}
if($buf=~/^GET\s/){
$buf=~s/^GET\s\/(.*)\sHTTP\/1.\d/
$1/x;
$Dfile=$buf;
print "File $Dfile\n";
- 51 名前：Dream☆ ◆hG4XfSMGTg mailto:sage [04/06/09 01:10]
- }
if($buf=~/^\r\n$/){
print $new_sock "HTTP/1.1 200 OK\r
Server: Apache/2.0.40 (Red Hat Linux)\r
Accept-Ranges: bytes\r
Connection: close\r
Content-Type: text/html; charset=ISO-8859-1\r
\r\n\r\n";
open(FILE,$Dfile);
while(<FILE>){
print $new_sock $_;
}
close($new_sock);
}
#else{print $new_sock "HTTP OK $buf\r\n";}
}#while <>
exit(0);
}#pid
}#while sock
close($main_sock);
- 52 名前：Dream2 ◆hG4XfSMGTg mailto:sage [04/06/09 01:12]
-
やっちまえーー！！
(⌒∧＿∧ ,//∧＿∧
ﾊﾞｷｨ!ヽ( ・∀・) :（⌒ﾐ（ //（´∀｀ ）
ﾊﾞｷｨ!!ヽ l| |l（:;;:( ﾄﾞｶﾞｧ!!///ヽ、 _｀ヽｺﾞｽｯ!!
('⌒;ヾ ／ '/ lｉ| ｌ!ｸﾞｼｬｧ!!＼从从//／'ﾐ_／ヽﾄﾞｺﾞｯ!!
(⌒）y'⌒;ヾ从从（⌒〜∵；）´⌒｀つ,;(´（´⌒;"'ﾎﾞｷﾎﾞｷﾎﾞｷｯ
（´⌒ｰ- ;:#∧_；/// 彡(:::゜；｡(;;;)､⌒从;;ﾉ・`⌒）;
(´;⌒（´⌒;;' ~ヽと;;;；。#;;､ミ,,:,,;;；ヽ/ﾉ:#｀""^ヾ⌒）);
￣￣(´⌒;,(´,（ﾞﾞﾞ'゛""ﾞﾞ）ﾞ'';"(´⌒;,(´,（´⌒;）
↑>>1
ギャアアーー
- 53 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/09 11:10]
- おいおい。
おまえら荒れるなよ。
こっちはおまえらの夢を叶えてやるんだからよぉ。
なんかなーいなんかなーい？ねぇ！お母さん！！
- 54 名前：デフォルトの名無しさん mailto:sage [04/06/09 12:24]
- なんてかわいそうな >>1 なんだろう……。
- 55 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/09 13:39]
- 同情はよしてくれよ！
しかも今日は誕生日なんだよっ！
誰か祝ってくれ！！
- 56 名前：デフォルトの名無しさん mailto:sage [04/06/09 16:06]
- | , ,.
|_∧＊;*｡
|ーﾟ)|／
| つ
| ｀〜
|∪ ﾊﾋﾟﾊﾞｽ。
- 57 名前：デフォルトの名無しさん [04/06/09 19:31]
-
/ /ヽヽ__ ' ´ ＿_＿__,, イ ヽ
,' ,' ｛_r'‐'',ニ二､ｰ==＝-‐'|l 、｀、
ｉヽ i /／ '´ ￣｀ヽヽ l| l i
,' ヽ ｌ / ､>‐＝､､ =ﾆヽ ! ｌ ｌ
,' /⌒ l | ´ /（__,!゛ ｀､! | ! >>1さん
,' ! '＾> |! i｡_oｿ , ﾆ､, ﾉ 丿 糞スレ立てんな、蛆虫、氏ね
,' ヽ ヽ ｀ ─ '⌒Ｙ, ' ／ と何故言われるのか
/ |｀T ､ j /}´ ,'＾! よーく考えましょうね。
/ ｌ ｌ ｉ iヽ i｀ ｰｧ /ノ / /
/ | | i ｉ ! ＼ l_／ ノ | ｛ヽ / /
,' ｜ | i iﾉ 丶､ __ , イ | | l ｝ 〃 二ヽ
,' r| | '´＼_ / ,' ,′ ｜ | ｜└'{_/ ,─｀、
- 58 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/09 19:32]
- ↑全然分かりません消えてください
- 59 名前：デフォルトの名無しさん [04/06/09 19:33]
- >>55
祝ってられません
↓これでｶﾞﾏﾝ(・∀・)しる！
＼おーだんごーまーるまるー ／
＼ おーだんごーまーるまるー ／
. ＼ おーだんごーまーるまるー／
∧＿∧ ∧＿∧ ∧＿∧
(・∀・ ) ( ・∀・) ( ・∀・)
⊂ ⊂) ( ) (つ つ
(＿_(＿) (_＿）＿) (＿_(＿)
- 60 名前：デフォルトの名無しさん mailto:sage [04/06/09 21:41]
- ページにアクセスすると、警視庁へＩＰを送付するスクリプトをクレ！
- 61 名前：デフォルトの名無しさん mailto:sage [04/06/10 05:53]
- >>55
おまえと同じ誕生日だ。縁起悪い。
- 62 名前：デフォルトの名無しさん mailto:sage [04/06/10 10:27]
- >>57のAAってなに？プリキュアとかいうやつ？
- 63 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/10 18:41]
- >>61
なんだとぉ！？
おまえもシックスナインかぁ？
勝手に俺と同じ日に生まれてんじゃねぇこの天才野郎！
- 64 名前：デフォルトの名無しさん mailto:sage [04/06/11 01:18]
- マジで哀れな >>1 だ……。削除依頼を出して、死なせてあげたほうが
いいのではないか。
- 65 名前：神山満月 ◆hG4XfSMGTg [04/06/11 01:29]
- // $shell dat2chregex.exe 1086143976.dat
// csc dat2chregex.cs
//2ch dat から リンクを抜き出すプログラム
//C♯の正規表現むずい。もっとなんとかならん？>>1
using System;
using System.Text.RegularExpressions;
using System.IO;
class Grep {
static void Main(string[] args) {
TextReader reader = null;
reader = new StreamReader(
args[0], System.Text.Encoding.GetEncoding(932));
if (reader != null) {
Regex regex = new Regex("ttp");
Regex fase4 = new Regex(@"<br>");
Regex fase3 = new Regex(@"(?<TTP>h?t?tp://[^\s]*)\s*");
string line;
string [] sta;
int i;
while ((line = reader.ReadLine()) != null) {
sta = fase4.Split(line);
for(i=0;i<=sta.Length-1;i++){
Match m=fase3.Match(sta[i]);
if (m.Success) {
Console.WriteLine(fase3.Match(sta[i]).Result("${TTP}"));
}} }
reader.Close();
}
}
}
- 66 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/11 09:28]
- 同情するならネタをくれ！
- 67 名前：デフォルトの名無しさん mailto:sage [04/06/11 12:37]
- まずおまいがなんか面白いネタ提供しろよ。
- 68 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/11 12:53]
- ＯＫ。んじゃお題だすわ。
布団が
- 69 名前：デフォルトの名無しさん mailto:sage [04/06/11 13:03]
- #!/usr/bin/perl
use Digest::MD5;
$file=$ARGV[0];
open(FILE, $file) or die "Can't open '$file': $!";
binmode(FILE); $md5 = Digest::MD5->new;
while (<FILE>) {
$md5->add($_);
}
close(FILE);
print $md5->hexdigest, " $file\n";
- 70 名前：デフォルトの名無しさん mailto:sage [04/06/11 13:04]
- $aiueo="あいうえおかきくけこ";
$kaiueo="アイウエオカキクケコ";
$hkaiueo="ｱｲｳｴｵｶｷｸｹｺ";
#SHIFT-JIS
#82a082a282a482a682a882a982ab82ad82af82b1
#83418343834583478349834a834c834e83508352
#EUC-JP
#a4a2a4a4a4a6a4a8a4aaa4aba4ada4afa4b1a4b30a
#a5a2a5a4a5a6a5a8a5aaa5aba5ada5afa5b1a5b30a
#8eb18eb28eb38eb48eb58eb68eb78eb88eb98eba
#野口英世cceeb8fdb1d1c0a4
#石原新太郎c0d0b8b6bfb7c2c0cfba
#聖徳太子c0bbc6c1c2c0bbd2
#織田信長bfa5c5c4bfaec4b9
#豊臣秀吉cbadbfc3bda8b5c8
#徳川家康c6c1c0eeb2c8b9af
#吉田兼好b5c8c5c4b7f3b9a5
#紫式部bbe7bcb0c9f4
#光源氏b8f7b8bbbbe1
- 71 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/11 13:59]
- なんでだれも「ふっとんだ」の一言が言えないんだよ…
- 72 名前：デフォルトの名無しさん mailto:sage [04/06/12 17:26]
- package DUMPVAR;
sub dumpvar{
my($packageName) = @_;
local(*alias);
*stash = *{"${packageName}::"};
$,= " ";
while(($varName,$globValue)=each %stash){
print "$varName ================== \n";
*alias = $globValue;
if(defined ($alias)){
print "\t \$$varName $alias \n";
}
if (defined (@alias)){
print "\t \@$varName @alias \n";
}
if(defined (%alias)){
print "\t \%$varName",%alias," \n";
}
}
}
1;
- 73 名前：デフォルトの名無しさん [04/06/14 11:52]
- 「さ」…さむそんティーチャア
「ア」
- 74 名前：デフォルトの名無しさん mailto:sage [04/06/14 12:41]
- 2ちゃんねるに高速で書き込むスクリプトン書いてよ。
- 75 名前：デフォルトの名無しさん mailto:sage [04/06/15 09:36]
- >>74
そんなのはますぞいさんにたのめよ
- 76 名前：デフォルトの名無しさん mailto:sage [04/06/15 14:47]
- >>1は死んだのか・・成仏しろよ。
- 77 名前：デフォルトの名無しさん mailto:sage [04/06/15 20:21]
- >>1 ＿＿ ＿
／ ＿＿＿＿ヽ ／ ￣ ￣ ＼
| | /, −､, -､ｌ /､ ヽ
| _| -| ･|< || |･ |―-､ |
, ―-､ (6 ＿ｰ っ-´､} ｑ -´ 二 ヽ |
| -⊂) ＼ ヽ_ ￣￣ﾉﾉ ﾉ＿ ー | |
|￣￣|／ （_ ∧￣ / ､ ＼ ＼.￣｀ | /
ヽ ｀ ,.| ￣ | | O＝＝＝＝＝ |
｀− ´ | | ＿| / |
| （t ） / / |
perl書きなんだがさ、こうリクに答えてなんか作りたいんだ。
- 78 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/16 09:58]
- きょーもいい天気だにゃー
- 79 名前：デフォルトの名無しさん [04/06/18 14:06]
- ところで、Perl5って標準でRS-232Cを操作できるモジュールあったけ?
- 80 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/18 17:44]
- あるある
- 81 名前：デフォルトの名無しさん mailto:sage [04/06/18 18:35]
- perl環境(ActivePerl等)がなくてもスクリプトを使えるように
***.plをWindows上で動作する***.exeを作ってください。
perl2exeみたいなのを作っておくれ、シェアいらね
- 82 名前：デフォルトの名無しさん [04/06/18 19:12]
- >>81
C・C++が書けない
厨房がよく欲しがるツールだよなぁ
- 83 名前：デフォルトの名無しさん [04/06/18 19:27]
- >>82
作れねーんなら黙ってろハゲ！
- 84 名前：デフォルトの名無しさん [04/06/18 22:45]
- スキンヘッドですが何か？
- 85 名前：デフォルトの名無しさん mailto:sage [04/06/19 04:43]
- ttp://x1.shinobi.jp/iga/login.cgi?id=0000005&passwd=008hYIH
上記「アクセス解析」の左上「生ログ」をExcelで使用できるデータに
変換したいのです。以下のような形式です。
「項目1」「\s」「値」「,」「項目2」「\s」「値」「,」...「項目14」「\s」「値」「改行」
１件当たりの総項目数は14件と決まっているのですが、
各件で吐き出される項目はマチマチで項目自体が無い場合があります。
項目をあらかじめ設定しておき、正規検索で改行などを取り除きつつ、
検索がマッチした場合には項目ごとに値を入れ、項目の値が項目自体が
無い場合にも - などを入れるようにして総項目数が揃ったデータにしたい
ということです。どのようにすればできるでしょうか？
よろしくお願いします。
- 86 名前：85 mailto:sage [04/06/19 04:44]
- 各項目は具体的に以下のものです。
2004/06/17 18:11:30 ・（注：日付時刻です）
ページ （注：解析対象ページのこと）
ページ回数
サイト回数
前回
初回
モニタ
JavaScript
Cookie
HTTP_REFERER
HTTP_USER_AGENT
国/言語
REMOTE_HOST
Proxy情報
- 87 名前：85 mailto:sage [04/06/19 04:44]
- これに対して生データの例は
2004/06/17 18:11:30 ・
ページpxpxpx
ページ回数39 サイト回数39 前回2004/06/16 23:27:02 初回2004/06/16 0:59:36
モニタ1024 x 768 x 16bit JavaScriptTrue CookieTrue [extract]
HTTP_REFERERブックマーク
HTTP_USER_AGENTMozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) Opera 7.23 [ja]
国/言語日本語
REMOTE_HOSTfllllp000.xxx.xxx.ad.jp
Proxy情報△
2004/06/17 18:09:02 ・
ページ冬05
ページ回数5 サイト回数5 前回2004/06/17 10:36:47 初回2004/06/16 15:26:20
モニタ1024 x 768 x 32bit JavaScriptTrue CookieTrue [extract]
HTTP_REFERERブックマーク
HTTP_USER_AGENTMozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; (R1 1.5); .NET CLR 1.0.3705; .NET CLR 1.1.4322)
国/言語日本語
REMOTE_HOSTnthkid000000.xxx.xxx.ftth.ppp.xxxx.ne.jp
2004/06/17 13:53:07 ・
ページ秋03
ページ回数12 サイト回数12 前回2004/06/17 13:01:33 初回2004/06/16 14:47:05
モニタ1024 x 768 x 32bit JavaScriptTrue CookieTrue [extract]
HTTP_REFERERブックマーク
HTTP_USER_AGENTMozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; (R1 1.5); .NET CLR 1.0.3705; .NET CLR 1.1.4322)
国/言語日本語
REMOTE_HOSTnthkid011111.xxx.nt.ftth.ppp.xxxxx.ne.jp
- 88 名前：85 mailto:sage [04/06/19 04:50]
- 一応、各項目の検索置換は以下のようにしてみましたが、
あらかじめ項目を決めたものに入れていくことまでができません・・・
s/(^20)(.+)(・)(\n)/時間 $1$2$3,/g;
s/(ページ)([0-9]+)(\s\s\s\s)/\1 \2,/g;
s/(ページ回数)([0-9]+)(\s\s\s\s)/\1 \2,/g;
s/(サイト回数)([0-9]+)(\s\s\s\s)/\1 \2,/g;
s/(前回)(.+)(\s\s\s\s)/\1 \2,/g;
s/(初回)(.+)\n/\1\2,/g;
s/(モニタ)(.+)(bit)/\1 \2\3/g;
s/(JavaScript)(.+)(\s\s\s\s)/\1 \2,/g;
s/(Cookie)(.+)\n/\1 \2,/g;
s/(HTTP_REFERER)(.+)\n/\1 \2,/g;
s/(HTTP_USER_AGENT)(.+)\n/\1 \2,/g;
s/(国\/言語)(.+)\n/\1 \2,/g;
s/(REMOTE_HOST)(.+)\n/\1 \2,/g;
s/(Proxy情報)(.+)\n/\1 \2,/g;
- 89 名前：85 mailto:sage [04/06/21 07:13]
- テキストエディタで正規表現の置換はできましたが、perlのスクリプトにできない・・・
11ステップで例外などに対応してみました。
エディタの方言で $1→\1 です。
検索/置換 になってます。
1(ページ回数)(.+)(\s\s\s\s)(サイト回数)(.+)(\s\s\s\s)(前回)(.+)(\s\s\s\s)(初回)(.+)\n/\1 \2,\4 \5,\7 \8,\10 \11,
2(モニタ)(.+)(bit)(\s\s\s\s)(JavaScript)(.+)(\s\s\s\s)(Cookie)(.+)\n/\1 \2\3,\5 \6,\8 \9,
3(HTTP_REFERER)(.+)\n/\1 \2,
4(HTTP_USER_AGENT)(.+)\n/\1 \2,
5(国\/言語)(.+)\n/\1 \2,
6(REMOTE_HOST)(.+)\n/\1 \2,
7(Proxy情報)(.+)/\1 \2
8(,)(20)(.+)(\n)(ページ)(.+)(\n)(ページ回数)/\1\n時間 \2\3,\5 \6,\8
9(^20)(.+)(\n)(ページ)(.+)(\n)(ページ回数)/時間 \1\2,\4 \5,\7
10(,)(20)(.+)(\n)(ページ)(.+)(\n)(回数\s)(.+)(\s)(前回)(.+)(\s)(前ページ)(\(JavaScript無効\))(\n)(モニタ)(.+)(\n)/\n時間 \2\3,\5 \6,\8\9,\11 \12,\14 \15,\17 \18,
11(^20)(.+)(\n)(ページ)(.+)(\n)(回数\s)(.+)(\s)(前回)(.+)(\s)(前ページ)(\(JavaScript無効\))(\n)(モニタ)(.+)(\n)/時間 \1\2,\4 \5,\7\8,\10 \11,\13 \14,\16 \17,
- 90 名前：デフォルトの名無しさん mailto:sage [04/06/21 12:06]
- 腐臭スレ
- 91 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:sage [04/06/22 10:35]
- >>90
おまえが腐臭だよ。
なんだんだおまえは。
わざわざ「腐臭スレ」と発言することによっておまえは何を得たいのか。
それを言う事によりおまえになにか利益が発生するのか？
なぁ、>>90よ。なにか会社や学校、又は家庭で嫌な事があったのか？
彼女とケンカでもしたのか？
俺なんて最近昔の女に
「あんたに前殴られたよね。訴えるから。訴えられたくなかったら慰謝料よこしな。」
とか言われたよ…。
こんな俺でも一生懸命生きてるんだ！！
生きてるんだ！！
俺が言いたいのはそれだけだ…。
- 92 名前：デフォルトの名無しさん mailto:sage [04/06/24 06:58]
- >>85-89
一気にデータを変換しようとしないでワンステップおいてみな
ログ＞変数にバラして格納＞エクセル用に書き出す
- 93 名前：デフォルトの名無しさん [04/06/28 09:08]
- googleを越えるサーチエンジンを作ってください。
- 94 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:(・∀・)ﾁﾝﾎﾟｰ!! [04/07/20 00:18]
- さ、さがってるよぉ！！
誰かレス書いてよぉ！！
- 95 名前：デフォルトの名無しさん [04/08/06 08:06]
- どの携帯からでも閲覧書き込み可能な掲示板を作ってください。
- 96 名前：デフォルトの名無しさん [04/08/06 09:39]
- jcode.pmを使わずにUTF-8をSJISに変換するコードｷﾎﾞﾝﾇ
- 97 名前：デフォルトの名無しさん [04/08/06 11:00]
- och.web2.poporo.net/cgi-bin/test/test.htm
↑のような
画像掲示板に自動で画像をアップロードするスクリプトをお願いします。
- 98 名前：デフォルトの名無しさん mailto:sage [04/08/21 02:07]
- >>97
俺もそういうの前から欲しいと思ってた。
perlで作れるのかな？
- 99 名前：98 mailto:sage [04/08/21 04:01]
- HTTP::Request::Commonモジュールつかって作ってみたけど>>97はもういないかな
- 100 名前：97 [04/09/15 11:34:27]
- 私はここにいます
うｐおねがいします
- 101 名前：デフォルトの名無しさん [04/10/03 18:30:00]
- 文字列 (たとえば $str = "010110")
を、一文字ずつ、配列に格納していくためのルーチン
をこのように書いたのですが↓
for( $i=0; $str; $i++) {
$str =~ s/(.)(.*)/$2/;
$flag[$i] = $1;
}
もっとスマートに書けないでしょうか?
- 102 名前：デフォルトの名無しさん mailto:sage [04/10/03 19:04:29]
- >>101
substr じゃだめなの？
- 103 名前：デフォルトの名無しさん mailto:sage [04/10/03 19:14:50]
- >>102
しばらくぶりだったのでsubstrの存在をすっかり忘れてました。
ありがとうございます
- 104 名前：デフォルトの名無しさん [04/10/03 19:57:25]
- 始めまして。現在CGI勉強中の者です。
今回、メン募を作りたくIDで振り分けたページを自動生成をするという機能が欲しくて
色々、本屋やサイトで調べてみたのですが、どれを勉強すればいいか？というところから分かっておりません。
具体的に言いますと、訪問者がサイトで個人情報を書きサーバーへ送信＞サーバーからIDとPASSが送られてくる＞サイトへ送られてきたIDとPASSを記入＞自動生成されたページを各自でカスタマイズ
その後そのカスタマイズで更新された物をサイトメインページにて随時公開したいのですが、出来るだけオリジナルで作りたいと思っています。どのようなことを勉強すべきか教えてください。
参考までに、理想に近いサイトがあるので
よければこちらも見てください。
www.muzie.co.jp/
www.with9.com/
- 105 名前：デフォルトの名無しさん mailto:sage [04/10/08 20:03:42]
- 初めまして、この度事情によりperl全く知らないのに
BASICやったことがあると言うだけで
datファイルからページを表示するcgiを作れと言われて
いろんなページを回って、アルゴリズムは出来たんですが
どうしてもサーバーエラーが出て動作の確認すら出来ません・・・
内容的には簡単なことだと思うのですが
data.datと言うファイルに１行ごとに，で区切られた４つのデータがあって
それを、読み込んで判断してｈｔｍｌとして出力するというものです
a1,b1,c1,d1
a2,b2,c2,d2
a3,b3,c3,d3
と言うのがずっと続いていて
ファイルを読み込んで配列に入れて、先頭から４個づつデータを取りだして
a,b,cにデータの種類コードが入っていてdに内容が入っているので
if文で判断して表示してデータが無くなったら終わればいいようなのですが
おそらくファイルのオープンとロックで引っかかってると思うので
同一ディレクトリにあるファイルをオープンして内容を読み込み
クローズして終了するような例を教えてもらえないでしょうか？
見て回ったページにある例を入れてみてもcgiエラーが出てしまったので
よろしくお願いします・・・
あと、できればプログラムが何処まで進んだのか調べる方法が有れば
教えてくださいm(_ _)m
- 106 名前：デフォルトの名無しさん mailto:sage [04/10/08 21:13:24]
- >あと、できればプログラムが何処まで進んだのか調べる方法が有れば
>教えてくださいm(_ _)m
…え？
- 107 名前：105 mailto:sage [04/10/08 23:15:01]
- >>106
BASICでいえばストップ命令みたいなもので
ここまで来たら命令を止める
もしくは、ここまでは異常なくプログラムが走ったと言うことを
確認できるような方法といういみです
言葉足らずですいませんでした
あと、なんとかdatから配列に読み込めたんですが
，で区切って読み込んでくれるものかと思ってたら
１行纏めて読み込んでしまってそこではまってます・・・
とりあえず、最初の質問については自己解決しましたので
また詰まったときによろしくお願いしますm(_ _)m
- 108 名前：デフォルトの名無しさん mailto:sage [04/10/12 23:12:25]
- >>107
途中でprintでもしとけよ。
まったく、なんでこんな奴にまかせるかなぁ...
- 109 名前：デフォルトの名無しさん mailto:sage [04/10/12 23:33:40]
- >>108
BASICやったことがあるってのもハッタリだったということで。
小学生の漏れでもそれくらい気がついてたぞ。20年前だがな！(遠い目)
区切りで分けるときは split使え！それとperlの資料くらいは参照しとけ！！
www.orange.ne.jp/~kibita/n88/
- 110 名前：デフォルトの名無しさん mailto:sage [04/10/20 20:21:00]
- Windowsの山ほどあるダイアログを簡単に使えるモジュールを作ってください。
Win32::API使おうとすると、最初は入ってなかったり構造体定義したり、なんかいろいろいろいｒぉ面倒です。
- 111 名前：デフォルトの名無しさん mailto:sage [04/10/22 21:26:57]
- perl で一定時間ごとの時刻の表示が出来るプログラムを作っています。
例えば現在時刻が 21::00 だとすると
次に表示されるのが 30分後の 21:30って具合に…
なるべくなら自分で作りたいのでアドバイスとかあったら教えてください。
すれ違いですみませんが
- 112 名前：デフォルトの名無しさん mailto:sage [04/10/23 13:25:13]
- >>111
現在時刻の分で場合分けすればいいと思う。
- 113 名前：デフォルトの名無しさん [04/11/03 02:17:54]
-
[1]を[2]にするようなスクリプトを作りたいのですがアドバイスお願いします
[1]
中 央１丁目591 281 310 218 ２丁目602 315 287 227
２丁目522 256 266 179 大字南篠崎1130 559 571 352
本 町831 396 435 301 花 崎１丁目1459 749 710 604
[2]
中央１丁目,591,281,310,218,２丁目,602,315,287,227
２丁目,522,256,266,179,大字南篠崎,1130,559,571,352
本町,831,396,435,301,花崎１丁目,1459,749,710,604
- 114 名前：デフォルトの名無しさん mailto:sage [04/11/05 12:14:09]
- >>113
s/(\D)(\d)/$1 $2/g;
s/ /,/g;
s/(\D),(\D)/$1$2/g;
とかどうかな。駄目ですか。そうですか。
- 115 名前：デフォルトの名無しさん [04/11/05 21:03:20]
- >>114
ありがとうございます。
解決できそうです。
- 116 名前：デフォルトの名無しさん [04/11/05 23:14:56]
- >>115
おいコラ！
他スレで解決済みじゃないのかよ
これだからマルチ質問はやめれってことなんだよ
- 117 名前：デフォルトの名無しさん mailto:sage [04/11/08 20:19:59]
- pc5.2ch.net/test/read.cgi/software/1095411685/
の37なのですが、ここに転載するのはﾏﾙﾁになりそうで怖いのですが
本家はこちらな気がしましたので書き込ませて下さい。
(刷れ汚しになりそうなので本文は書きません)
参照して作成して下さる
P e r l の 神
とゆう猛者の光臨を待ち焦がれてしまいます。
住人の願い叶えてたもう。お願いします
ヾ
(´Д｀;)、 ｺﾉﾄｵﾘﾃﾞｽ
ノノＺ乙
- 118 名前：デフォルトの名無しさん mailto:sage [04/11/27 03:48:57]
- 神など存在しない
- 119 名前：デフォルトの名無しさん [04/12/04 12:37:35]
- よし、俺もリクに答えて作ってやるage!
但し、CGI限定な
- 120 名前：デフォルトの名無しさん mailto:sage [04/12/04 18:41:32]
- プログラム技術＠2ch掲示板
中略
プログラム・ソフトの使い方は PC 初心者板やソフトウェア板へ。
ウイルス、ハッキング・クラッキングを求めるような発言は禁止です。
Javascript は Web 制作板、CGI は Web プログラミング板へ。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- 121 名前：デフォルトの名無しさん [04/12/04 19:02:09]
- >>120
ウェブＰ板にこんなスレをわざわざ立てるのかと（ｒｙ
- 122 名前：デフォルトの名無しさん mailto:sage [04/12/04 19:18:59]
- Perl::Tk用のGUIエディタ作ってください。
- 123 名前：デフォルトの名無しさん [04/12/10 21:48:46]
- なんか厭味な摺れだな
- 124 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:ｳﾝｺｰ!(*ﾟ∀ﾟ)=3 [04/12/16 15:37:20]
- >>117
それくらいすぐ作れるべ
- 125 名前：デフォルトの名無しさん mailto:sage [04/12/16 16:18:13]
- >>124
>>118へのレスだったら面白かったな。
- 126 名前：117 mailto:sage [04/12/19 20:25:33]
- 返信遅れてしまってごめんなさいです。神などいないで
やる気あぼーん。諦めモード入ってました。
>124様
本当ですか。神!!光臨して下さったら末代まで
称えます。
近代WindowsGUIの提供する
素晴らしき(手作業がでふぉの石器時代みたい)
なエクスペリエンスに疲れますた。
システマチックに自動化された環境！!
それは未知のエクスペリエンス。
未知のエクスペリエンスしたいです。
きっとソフト板の多くのユーザーが未経験な
エクスペリエンス。対話しないとなんにも
出来ない、OPいないと動かないPC環境脱却したい
し、使った人も驚くと思います。
なので是非作成して欲しいです。
ネタじゃなくて期待してしまいます。
- 127 名前：デフォルトの名無しさん mailto:sage [04/12/19 21:20:10]
- これがネタじゃないならなんだというのだ。
- 128 名前：117 mailto:sage [04/12/19 23:59:51]
- ネタじゃないなら神!!
ネタならまぁ、あれだ、その。。。。。
うぇーん。
- 129 名前：デフォルトの名無しさん [04/12/25 11:59:52]
- 二点を結ぶ半径rの円弧で、始点から終点までの移動をiX,iY
廻り方をccwだとした時、始点から見た円弧の中心x0,y0を求める。
ただし、ccwは、時計回りが-1、反時計回りが+1
半径rがプラス値のとき近回り、マイナスのとき遠回りの円弧で、
円弧が丁度半円の時は正負どちらでもよい。
って、いうスクリプトをperl5.004対応で、お願いします。m(_ _)m
sub quest_arc_center($$$$){
my($iX,$iY,$r,$ccw) =@_;
my($x0,$y0);
# ここをプリーズ
return ($x0,$y0);
}
ex)
my($iX,$iY,$r,$ccw) =(5,5,5,-1);
my($x0,$y0) =quest_arc_center($iX,$iY,$r,$ccw);
print "x$x0, y$y0\n";
=> x5.000, y0.000
- 130 名前：129 mailto:sage [04/12/25 12:06:22]
- 以下に私が作った情けないスクリプトを晒します。(⌒〜⌒ι)
皆様のお知恵を拝借して、洗練されたスクリプトに変えたいと思います。
use strict;
# my($x0,$y0) =quest_arc_center($iX,$iY,$r,$ccw);
sub quest_arc_center($$$$){
my($iX,$iY,$r,$ccw) =@_;
die '半径0' unless( $r+0 );
my$R =abs($r);
my$Dia = 2*$R;
my$Line = sqrt( $iX**2 + $iY**2 );
die '半径が小さい' if( $Dia < $Line );
my$PI =abs(atan2(0,-1));
my($Xhf,$Yhf) =($iX/2,$iY/2);
my($I,$i,$J,$j);
- 131 名前：129 mailto:sage [04/12/25 12:07:01]
- つづきです。
unless( $iY+0 ){
($I,$J) =( $Xhf, sqrt( $R**2 - $Xhf**2 ) );
($i,$j) =( $I, -$J );
}else{
my$XvY = $iX / $iY ;
my$ey = - $Yhf - $XvY*$Xhf;
my$ev = 2*( $XvY**2 + 1 );
my$ex = 2*$XvY*$ey;
my$er = $ey**2 - $R**2;
my$es = 0;
$es = sqrt( $ex**2 - 2*$ev*$er ) if( abs($Dia-$Line) > 0.002 );# 180°以外
$I = ( -$ex + $es )/ $ev ;
$i = ( -$ex - $es )/ $ev ;
$J = $Yhf + $XvY*$Xhf - $XvY*$I ;
$j = $Yhf + $XvY*$Xhf - $XvY*$i ;
}
my$rad =atan2($iY-$J,$iX-$I) - atan2(-$J,-$I);
if($rad<0){ $rad = $rad - $PI }
else{ $rad = $PI - $rad }
($I,$J) =($i,$j) if( $r*$rad*$ccw < 0 );
for($I,$J){ $_ =sprintf("%.3f",$_) };
return( $I, $J );
}
- 132 名前：デフォルトの名無しさん mailto:ごっちゃｎ２ [04/12/25 12:54:50]
- >>91
>「あんたに前殴られたよね。訴えるから。訴えられたくなかったら慰謝料よこしな。」
よく考えたら、どの道お金払うことになってしまい
脅しにはなっていないような・・・
- 133 名前：デフォルトの名無しさん mailto:sage [04/12/25 12:58:33]
- >「あんたに前殴られたよね。訴えるから。訴えられたくなかったら慰謝料よこしな。」
最近はカス見たいな女もいるんだな
言葉は悪い、腹も黒い
特にあいつらの負けん気満々の目が嫌だ
自分以外は「キモイ」で即斬
「誰にも迷惑かけていない」などの
自分正当化議論（屁理屈）をいっぱい持っており
危なくなるとそれを持ち出してくる
- 134 名前：129 mailto:sage [04/12/25 17:08:17]
- perl関連で、目的のスレはこちらと思いカキコしたわけですが、
なにぶん、過疎のような気がいたしまして別スレに誘導のつもりで、
カキコしたものにレスがついてしまいました。
私が「レスはこちらで」と書き加えなった為です。
今後は↓に移ります。ごめんなさい。
Perlについての質問箱 14箱目
pc5.2ch.net/test/read.cgi/tech/1101649274/l50
結果、マルチになってしまったことをお詫びします。
すいませんでした。
- 135 名前：(・∀・)ﾁﾝﾎﾟｰ!! mailto:ｳﾝｺｰ!(*ﾟ∀ﾟ)=3 [05/01/05 10:04:04]
- よし、久々に来たが何を作ればいいんだ！
- 136 名前：デフォルトの名無しさん [05/01/05 10:11:32]
- Webページを定期的に監視して更新状況を調べるスクリプトかいとくれや。
- 137 名前：デフォルトの名無しさん [05/01/05 10:29:07]
- Perlのデータが来たら、そのままPerlで読めるコードの文字列を吐き出してくれるのを頼む。
- 138 名前：デフォルトの名無しさん [05/01/05 10:33:03]
- スレ主はやる気あんのか？
- 139 名前：デフォルトの名無しさん mailto:sage [05/01/11 16:30:59]
- >>1
ブラウザ作ってくれ
- 140 名前：デフォルトの名無しさん [05/01/18 22:49:29 ]
- ネットからダウンロードしたものを自動的に記録するスクリプト作ってください。
- 141 名前：デフォルトの名無しさん mailto:sage [05/01/18 22:53:39 ]
- >>140が裸踊りしながら都内5kmマラソンしたら考えんこともないこともない
ま、皇居一週かな。
- 142 名前：デフォルトの名無しさん [05/01/27 03:15:55 ]
- 画像投稿できる掲示板つくってちょ
- 143 名前：デフォルトの名無しさん mailto:sage [05/01/27 10:05:29 ]
- スレ主の脂肪のため終了しました
糸冬 ￣了
- 144 名前：デフォルトの名無しさん mailto:sage放置 [05/01/28 10:41:00 ]
- sage放置
- 145 名前：デフォルトの名無しさん mailto:sage放置 [05/01/28 12:41:13 ]
- ■こんなCGI作ってください■
pc5.2ch.net/test/read.cgi/php/1102980903/
|
 |
