win2000は
個人情報を
ばんばん

朝昼晩御飯
全部ステーキ

> > 一週間ぶりくらいにきたよーヽ(´ー｀)ノ変わりはないかい
> 俺が風邪を引いたぐらいだな

そうヽ(´ー｀)ノか

参考：2000/11/03(金)14時11分56秒

> > ｻﾝｸｽｺ
> > 俺も丁度今インクリメントが間違っている事を発見した
> > ﾀﾞｳｿだ
> > そっちのも試してみた
> > ﾊﾞｯﾁﾘ動いたんだけど
> > なんでこうなるか分からない
> > 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は説明が難しいな(;´Д`)
> なくてもいいや。
> 詳しくは本買ってくれ。

なるほど
分かり易い説明ｻﾝｸｽｺ
myについては必要になったら調べてみるよ
つかもう一個質問があるんだがいいかい？
split関数についてなんだが
セパレーターを/として$lineの内容をそれぞれの行に代入したい
($1,$2,$3,$4,$5) = split(///,$line)
ってやるとエラーだし
$sep = '/';
($1,$2,$3,$4,$5) = split(/$sep/,$line);
でも駄目だし
この場合はどうやってやればいいのだろう

参考：2000/11/03(金)14時07分59秒

> Win2000めんどくせえ

一日5回は不正な処理で落ちたりダウンするWin98のがめんどくせえ


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

> 一週間ぶりくらいにきたよーヽ(´ー｀)ノ変わりはないかい

俺が風邪を引いたぐらいだな

参考：2000/11/03(金)14時09分47秒

性器末的性春をエンジョイしようぜ

Win2000めんどくせえ

一週間ぶりくらいにきたよーヽ(´ー｀)ノ変わりはないかい

ようせいくん　ようせいくん

( '-')ﾉ ギコハハハ

> > 少ない訂正で済ませるならこう。
> > $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秒