下へ
2000/11/03 (金) 14:09:47 ◆ ▼ ◇ [mirai]一週間ぶりくらいにきたよーヽ(´ー`)ノ変わりはないかい
2000/11/03 (金) 14:09:20 ◆ ▼ ◇ [mirai]ようせいくん ようせいくん
2000/11/03 (金) 14:09:13 ◆ ▼ ◇ [mirai]( '-')ノ ギコハハハ
> 2000/11/03 (金) 14:07:59 ◆ ▼ ◇ [mirai]> > 少ない訂正で済ませるならこう。
> > $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は何だい?
> 入れなくても同じ結果になったんだが
繰り返しの対象になるリストが1個の配列である場合には
ループ変数は値のコピーのかわりに配列の要素を直接参照しています。
これをかみくだいていえば、ループ変数の値を変更すると
それに対応する配列要素の値も同時に変更されることになります
『初めてのPerl』より
foreach my $line (@DATA) {
$line = substr($line,7);
}
は
for ($i=0; $i<@DATA; $i++) {
$DATA[$i] = substr($DATA[$i],7);
}
と同じ。
myは説明が難しいな(;´Д`)
なくてもいいや。
詳しくは本買ってくれ。
参考:2000/11/03(金)13時56分02秒
> 2000/11/03 (金) 14:01:17 ◆ ▼ ◇ [mirai]> (;´Д`) という顔文字を考えた香具師を今物凄くうらんでいる。
宇多田か。
参考:2000/11/03(金)14時00分19秒
2000/11/03 (金) 14:00:19 ◆ ▼ ◇ [mirai](;´Д`) という顔文字を考えた香具師を今物凄くうらんでいる。
2000/11/03 (金) 13:58:40 ◆ ▼ ◇ [mirai]氷上ビデオ俺ちょっとだけ映ってるrmで見たけどありゃガセだろ・・・
> 2000/11/03 (金) 13:57:08 ◆ ▼ ◇ [mirai]> > 部屋を片付けなくてはならないのに気力が全然沸かない・・・
> 誰か来るのか?
まぁな(´ー`)y-~~
参考:2000/11/03(金)13時53分20秒
> 2000/11/03 (金) 13:56:02 ◆ ▼ ◇ [mirai]> > 簡単な質問だと思うから問題無しだ
> > 取り合えず実行したい事は
> > テキストには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:53:20 ◆ ▼ ◇ [mirai]> 部屋を片付けなくてはならないのに気力が全然沸かない・・・
誰か来るのか?
参考:2000/11/03(金)13時51分59秒
2000/11/03 (金) 13:51:59 ◆ ▼ ◇ [mirai]部屋を片付けなくてはならないのに気力が全然沸かない・・・
上へ