CGI Perl総合 (461ﾚｽ)

CGI Perl総合 http://mevius.5ch.net/test/read.cgi/hack/984669133/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

9: ふさふさ [] 2001/03/16(金) 09:29 >１さん httpで串刺してきたハゲに ftpのリクエストを送信する 例の別プロトコル抜きのソースきぼーん！ http://mevius.5ch.net/test/read.cgi/hack/984669133/9

4: obj [sage ] 2001/03/16(金) 00:46 データファイルを読み込んで@LINESという配列に入れたとします。 配列の中身は '23<>a<>0','26<>b<>5','14<>c<>3','30<>d<>9' だったとして、$xxという変数にa〜dのいずれかの文字が入ります。 例えば$xxにcが入ったらcという要素を含む3要素目の'14<>c<>3' の3を1増減、4にして '23<>a<>0','26<>b<>5','14<>c<>4','30<>d<>9' になった配列をデータファイルに上書き保存したいのですが どのように組めばよいのでしょうか？ open (IN,"hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。'); @LINES = <IN>; close (IN); $i = "0"; foreach (@LINES){ ($t1,$t2,$t3)=split(/<>/,$_); if ($xx =~ /\Q$t2/) { last; } $i++; } $t3++; $all = $t1; $all .= '<>'; $all .= $t2; $all .= '<>'; $all .= $t3; $all .= '\n'; $LINES[$i] = $all; open (OUT,">$hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。'); print OUT (@LINES); close (OUT); こんな感じで組んだんですが、全然ダメで。。。 どなたか教えてください。 http://mevius.5ch.net/test/read.cgi/hack/984669133/4

11: 5-8 [sage ] 2001/03/16(金) 18:20 おれは1じゃないよ。 >>8 すまん　×>>2 ○>>3 >>9 おれ、UGの人じゃないんで（爆）、それしらない。 JAVAアプレット連携させるのかなあ。 それとも 擬似サーバー立てといて、そのポートに ftp://www.server:niseport/ とかでHTTPプロキシを外してアクセスさせるのかなあ。 >>10 つか1はどこに行った。。。 http://mevius.5ch.net/test/read.cgi/hack/984669133/11

17: 1 [] 2001/03/16(金) 23:49 俺は嬉しいぜ、、、、 みんな、、、、、書き込みｱﾘｶﾞｯﾁｭﾝ・・・・ >>9-10 FTPから抜くｶｳｿﾀで良いのか・・・？ 手持ちのﾔﾂで合ってると思うが 漏れが変にｲｼﾞｯﾃ不安定な動作ｶﾏｽかも知れんが気にすんな　(ｦﾌﾟ つか違ったら拾ってｸﾚﾖ http://server2047.virtualave.net/ibzrjp/count_p.txt http://mevius.5ch.net/test/read.cgi/hack/984669133/17

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.012s