質問編集履歴
1
誤字があったので更新しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -27,8 +27,8 @@
|
|
|
27
27
|
「fileが無いよ」と言われていて、もしや「変数のスコープ」の問題かと考えました。
|
|
28
28
|
以下のように変数fileを関数の外で宣言した所、問題なくファイルの中身を1行ずつ標準出力することができました。
|
|
29
29
|
```Perl
|
|
30
|
+
my $file = shift;
|
|
30
31
|
&read_lines;
|
|
31
|
-
my $file = shift;
|
|
32
32
|
sub read_lines{
|
|
33
33
|
open(my $fh, '<', $file) or die "$file: $!";
|
|
34
34
|
my @lines = <$fh>;
|