回答編集履歴
1
微修正: ファイルハンドルを変数に
test
CHANGED
@@ -3,9 +3,9 @@
|
|
3
3
|
`..`演算子を使ってみました。この使いかたを初めて見ると不思議な感じがしますが、動きます。
|
4
4
|
|
5
5
|
```lang-perl
|
6
|
-
open
|
6
|
+
open my $fh, '<', "test.log" or die $!;
|
7
7
|
|
8
|
-
while ( $data = <
|
8
|
+
while ( $data = <$fh> ) {
|
9
9
|
chomp $data;
|
10
10
|
my ( $name, $number ) = split /\s+/, $data;
|
11
11
|
|
@@ -13,6 +13,6 @@
|
|
13
13
|
if ( $name eq 'aaaaa' ) .. ( $name eq 'main' );
|
14
14
|
}
|
15
15
|
|
16
|
-
close
|
16
|
+
close $fh;
|
17
17
|
```
|
18
18
|
|