> > 帰ってきたぜ。
> > ある程度は教えられるだろうけど、
> > 適当なこと言うと、ぁゃιぃのｽﾊﾟｰﾊｶｰ達が
> > ﾌﾟｯあいつちょっと知識あるからってｵﾌﾟｵﾌﾟ
> > これだから厨房は嫌だよヽ(´ー`)ノ
> > とか思うんだろうな・・・ｳﾄｩだ。
> 簡単な質問だと思うから問題無しだ
> 取り合えず実行したい事は
> テキストにはURLが5行くらい書いてあって
> 配列@DATAにURLを全行代入
> その後URLからhttp://を切り取って
> 最期に切り取った全URLを表示するという事なのだけど
> $i = 0;
> foreach $line (@DATA) {
> $line = substr($line,7);
> $OUTPUT[i] = $line;
> $i = $i++;
> }
> print "Content-type: text/html\n\n";
> print "@OUTPUT";
> }
> これだとiがインクリメントされないので配列の0個目にずっと代入してしまう
> iをインクリメントさせて配列の最後までURLを入れる方法が知りたい

少ない訂正で済ませるならこう。
$i = 0;
foreach $line (@DATA) {
$line = substr($line,7);
$OUTPUT[$i] = $line";
$i++;
}
print "Content-type: text/html\n\n";
print @OUTPUT;
}

俺ならこう書くかな。
foreach my $line (@DATA) {
	$line = substr($line,7);
}
print "Content-type: text/html\n\n";
print @DATA;

参考：2000/11/03(金)13時28分44秒

> > ゴミ出すの忘れた(;´Д`)
> キミがゴミだョ

死ぬボタンを押す勇気を

参考：2000/11/03(金)13時35分11秒

今日はｱｲﾄﾞﾗからｶﾞｼｶﾞｼ落っこちてくるな

> > ﾌﾚｯｼだから明日には落とし終わるかなヽ(´ー｀)ノ600ﾒｶﾞ
> 漏れ達へのお裾分けは無いのかい？

ﾌﾚｯｼヽ(´ー`) ﾉどぉよ？

参考：2000/11/03(金)13時39分58秒

> > ｷﾎﾞﾘﾝﾁｮｰヽ(´ー｀)ノｷﾎﾞﾘﾝﾁｮｰ
> ﾌﾚｯｼだから明日には落とし終わるかなヽ(´ー｀)ノ600ﾒｶﾞ

漏れ達へのお裾分けは無いのかい？


参考：2000/11/03(金)13時36分18秒

> わーい氷上恭子のAVみつけたよヽ(´ー｀)ノ

遅いな。
俺は３ヶ月前に落とし終えてる。

参考：2000/11/03(金)13時32分46秒

> > わーい氷上恭子のAVみつけたよヽ(´ー｀)ノ
> ｷﾎﾞﾘﾝﾁｮｰヽ(´ー｀)ノｷﾎﾞﾘﾝﾁｮｰ

ﾌﾚｯｼだから明日には落とし終わるかなヽ(´ー｀)ノ600ﾒｶﾞ

参考：2000/11/03(金)13時34分19秒

> ゴミ出すの忘れた(;´Д`)

キミがゴミだョ

参考：2000/11/03(金)13時34分29秒

ゴミ出すの忘れた(;´Д`)

> わーい氷上恭子のAVみつけたよヽ(´ー｀)ノ

ｷﾎﾞﾘﾝﾁｮｰヽ(´ー｀)ノｷﾎﾞﾘﾝﾁｮｰ


参考：2000/11/03(金)13時32分46秒

> わーい氷上恭子のAVみつけたよヽ(´ー｀)ノ

URA

参考：2000/11/03(金)13時32分46秒

わーい氷上恭子のAVみつけたよヽ(´ー｀)ノ

つかお前等倉庫使ってないだろ？

> $OUTPUT[i] = $line;

は

$OUTPUT[$i] = $line;

の間違いだったけどこれは関係無いみたい
実行すると
最後のURLからhttp://を切り取った物だけ表示されて終わる

参考：2000/11/03(金)13時28分44秒

ACCへのリンクがある

> ♪へのリンクが消えてるな。

必要ないからな

参考：2000/11/03(金)13時28分52秒

♪へのリンクが消えてるな。

> > ｻﾝｸｽｺ
> > つか今度は別のところで詰まった
> > 帰ってきたら教えてくれ
> 帰ってきたぜ。
> ある程度は教えられるだろうけど、
> 適当なこと言うと、ぁゃιぃのｽﾊﾟｰﾊｶｰ達が
> ﾌﾟｯあいつちょっと知識あるからってｵﾌﾟｵﾌﾟ
> これだから厨房は嫌だよヽ(´ー`)ノ
> とか思うんだろうな・・・ｳﾄｩだ。

簡単な質問だと思うから問題無しだ
取り合えず実行したい事は
テキストにはURLが5行くらい書いてあって
配列@DATAにURLを全行代入
その後URLからhttp://を切り取って
最期に切り取った全URLを表示するという事なのだけど

$i = 0;
foreach $line (@DATA) {
$line = substr($line,7);
$OUTPUT[i] = $line;
$i = $i++;
}
print "Content-type: text/html\n\n";
print "@OUTPUT";
}

これだとiがインクリメントされないので配列の0個目にずっと代入してしまう
iをインクリメントさせて配列の最後までURLを入れる方法が知りたい

参考：2000/11/03(金)13時18分26秒

1384.jpgはどこから？