ＣＧＩだけど、なんか質問ある？Part 5

**名無しさん＠お腹いっぱい。** · 01/12/26 10:51

■過去ログ
　Part 3 http://pc.2ch.net/test/read.cgi/php/988727833/l50
　Part 4 http://pc.2ch.net/test/read.cgi/php/1000804655/l50

その他参考になるスレッドを >>2 に纏めたので、十分に調べた上で質問して下さい。

**Perl勉強中** · 02/02/19 15:13

open(OUT,"$logfile");
while(<OUT>){
@log=split/\t/;
if ($log[0]=B子さん){
print @log;
last;
}
}

かな？

**名無しさん＠お腹いっぱい。** · 02/02/19 15:16

>706
それだと、if文のところで、$log[0]がすべてB子さんに書き変わる。

**名無しさん＠お腹いっぱい。** · 02/02/19 15:18

>706
そして、それだと、Ｂ子さんが一回でてくるとそこで終了してしまう。

**名無しさん＠お腹いっぱい。** · 02/02/19 15:19

>706
さらに、openしたOUTはいつクローズしてもらえるかとうずうずしている。

**Perl勉強中** · 02/02/19 15:21

あれ？そうですか？
じゃぁ
open(OUT,"$logfile");
@file=<OUT>;
close (OUT);
foreach(@file){
@hoge=split/\t/;
if ($hoge[0]=B子さん){
print @hoge;
exit
}
}
でどうですか？

**Perl勉強中** · 02/02/19 15:22

B子さんが一つ以上あるなら
open(OUT,"$logfile");
@file=<OUT>;
close (OUT);
foreach(@file){
@hoge=split/\t/;
if ($hoge[0]=B子さん){
print "@hoge\n";
}
}
で

**名無しさん＠お腹いっぱい。** · 02/02/19 15:24

>710
だから、そのif文だと
もし($hoge[0]にＢ子さんを代入できたら)｛@hogeを出力して実行終了}
だろ？
@hoge[0]にＢ子さんを代入することを阻害する要因が何一つこれっぽっちもない以上
一行目の配列で終了だよ。

**名無しさん＠お腹いっぱい。** · 02/02/19 15:25

>711
いつ気付くんだろ・・・・

**Perl勉強中** · 02/02/19 15:26

B子さんが一つ以上あるなら
open(OUT,"$logfile");
@file=<OUT>;
close (OUT);
foreach(@file){
@hoge=split/\t/;
if ($hoge[0] eq B子さん){
print "@hoge\n";
}
}

こうか？

**名無しさん＠お腹いっぱい。** · 02/02/19 15:26

>714
そうだ

**名無しさん＠お腹いっぱい。** · 02/02/19 15:27

「closeしろ」の意味を取り違えてる、とか
B子さんをクォートしなくても良いンか、とか。

**Perl勉強中** · 02/02/19 15:28

open(OUT,"$logfile");
@file=<OUT>;
close (OUT);
foreach(@file){
@hoge=split/\t/;
if ($hoge[0] == "B子さん"){
print "@hoge\n";
}
}
これでも良し？

**名無しさん＠お腹いっぱい。** · 02/02/19 15:32

んで、俺ならこうする。

open(OUT,"$logfile");
@file=<OUT>;
close (OUT);
foreach(@file) {
@hoge = split(/\t/,$_);
if ($hoge[0] =~ /Ｂ子さん/) { print $_; }
}

**名無しさん＠お腹いっぱい。** · 02/02/19 15:33

>>717
文字にはeqじゃないの？　==でどうなるかわからんけど。
foreach内単に

print if (/^Ｂ子さん/);

ではダメなのだろうか？

OUTって名前が気持ち悪いのは俺だけ？

**名無しさん＠お腹いっぱい。** · 02/02/19 15:33

>717
それだとどうかしらん。

**名無しさん＠お腹いっぱい。** · 02/02/19 15:35

>719　
ぜんぜんおっけーっしょ？

**名無しさん＠お腹いっぱい。** · 02/02/19 15:43

そういやなんでOUTなんだ？普通INとかそれ系だろ。

**名無しさん＠お腹いっぱい。** · 02/02/19 15:44

open IN, "<$logfile" or die;
while(<IN>){
print if /^B子さん\t/;
}
close IN;