> > 部屋を片付けなくてはならないのに気力が全然沸かない・・・
> 誰か来るのか？

まぁな(´ｰ`)y-~~


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

> > 簡単な質問だと思うから問題無しだ
> > 取り合えず実行したい事は
> > テキストには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;

ｻﾝｸｽｺ
俺も丁度今インクリメントが間違っている事を発見した
ﾀﾞｳｿだ

そっちのも試してみた
ﾊﾞｯﾁﾘ動いたんだけど
なんでこうなるか分からない
foreach処理が終わった後に@DATAに$lineを入れなおすのかい？
だとしたら凄い便利だ
後、
foreach my $line (@DATA) 
　　　　~~
このmyは何だい？
入れなくても同じ結果になったんだが

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

> 部屋を片付けなくてはならないのに気力が全然沸かない・・・

誰か来るのか？

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

部屋を片付けなくてはならないのに気力が全然沸かない・・・

つかﾁｬﾝｺﾛは放置っていうスタンスでいいじゃない
なんで排撃するよ

(　ﾉ´ー`)ノhttp://www.otakara.org/otakara/idle/natu/lemon-angel/album.html

> > 簡単な質問だと思うから問題無しだ
～略～
> print @DATA;

つか遅れてｽﾏﾝｺ。
ネットサーフィンに勤しんでｳｯｶﾘしてた。

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

--------------------------------------------------------------------------------
＞　 　投稿者：　 　投稿日：2000/11/03(金)10時37分56秒 
> おんぷたんリンクが消えてる
> 夕べはあったよな？

( '-')ﾉ ダウソなので削除しました

参考：2000/11/03(金)10時34分06秒

--------------------------------------------------------------------------------

これか

> > 帰ってきたぜ。
> > ある程度は教えられるだろうけど、
> > 適当なこと言うと、ぁゃιぃのｽﾊﾟｰﾊｶｰ達が
> > ﾌﾟｯあいつちょっと知識あるからってｵﾌﾟｵﾌﾟ
> > これだから厨房は嫌だよヽ(´ー`)ノ
> > とか思うんだろうな・・・ｳﾄｩだ。
> 簡単な質問だと思うから問題無しだ
> 取り合えず実行したい事は
> テキストには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秒