回答編集履歴
1
修正
answer
CHANGED
|
@@ -1,10 +1,11 @@
|
|
|
1
|
-
test.logの区切り文字はタブまたはブランク
|
|
1
|
+
test.logの区切り文字はタブまたはブランクとしています。(複数可）
|
|
2
2
|
|
|
3
3
|
```perl
|
|
4
4
|
open FH, "test.log" or die $!;
|
|
5
5
|
$flag = 0;
|
|
6
6
|
while ($data = <FH>) {
|
|
7
7
|
chomp $data;
|
|
8
|
+
$data =~ s/[\s ]+/ /g;
|
|
8
9
|
($name,$suu,) = split (/\s/, $data);
|
|
9
10
|
if ($name eq "aaaaa" ) { $flag = 1 }
|
|
10
11
|
if ($flag) { print "$suu\n" }
|