CGI Perl総合

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

9(3): ふさふさ 2001/03/16(金)09:29 AAS
>１さん

httpで串刺してきたハゲに
ftpのリクエストを送信する
例の別プロトコル抜きのソースきぼーん！

4(2): obj [sage ] 2001/03/16(金)00:46 AAS
データファイルを読み込んで@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);

こんな感じで組んだんですが、全然ダメで。。。
どなたか教えてください。

11(9): 5-8 [sage ] 2001/03/16(金)18:20 AAS
おれは1じゃないよ。

>>8
すまん　×>>2 ○>>3

>>9
おれ、UGの人じゃないんで（爆）、それしらない。
JAVAアプレット連携させるのかなあ。
それとも擬似サーバー立てといて、そのポートに
外部ﾘﾝｸ:www.server:niseport
とかでHTTPプロキシを外してアクセスさせるのかなあ。

>>10
つか1はどこに行った。。。

17(1): 1 2001/03/16(金)23:49 AAS
俺は嬉しいぜ、、、、
みんな、、、、、書き込みｱﾘｶﾞｯﾁｭﾝ・・・・

>>9-10
FTPから抜くｶｳｿﾀで良いのか・・・？
手持ちのﾔﾂで合ってると思うが
漏れが変にｲｼﾞｯﾃ不安定な動作ｶﾏｽかも知れんが気にすんな　(ｦﾌﾟ
つか違ったら拾ってｸﾚﾖ

外部ﾘﾝｸ[txt]:server2047.virtualave.net

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

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

ぬこの手ぬこTOP 0.020s