Perl：グローバル変数とローカル変数?

Question

###前提・実現したいこと
関数呼び出しにより、ファイルの中身を1行ずつ読み込みたい。
うまくいった理由を知りたい!!
###発生している問題・エラーメッセージ
Perlで、ファイルを1行ごとに読み込むプログラムを作っています。
※ファイルはコマンド実行時に引数として与えます。
関数を呼び出す処理を書いていたところ、以下のエラーメッセージが発生しました。

: No such file or directory at read_lines.pl line 17.

###該当のソースコード

&read_lines;
sub read_lines{
    my $file = shift;
    open(my $fh, '<', $file) or die "$file: $!";
    my @lines = <$fh>;
    foreach my $line (@lines) {
	print $line;
    }
}

###試したこと
「fileが無いよ」と言われていて、もしや「変数のスコープ」の問題かと考えました。
以下のように変数fileを関数の外で宣言した所、問題なくファイルの中身を1行ずつ標準出力することができました。

my $file = shift;
&read_lines;
sub read_lines{
    open(my $fh, '<', $file) or die "$file: $!";
    my @lines = <$fh>;
    foreach my $line (@lines) {
	print $line;
    }
}

成功はしたのですが、なぜうまくいったのか理解できていないので、コメントを頂きたく質問致しました。
宜しくお願い致します。

Answer 1

上記でお答えは出ていますので別角度から、メインで引数を渡す。

&read_lines(shift);
sub read_lines{
    my $file = shift;
    open(my $fh, '<', $file) or die "$file: $!";
    my @lines = <$fh>;
    foreach my $line (@lines) {
    print $line;
    }
}

Comments

[UMA00]

ありがとうございます!!
この書き方は、「mainモジュールのshiftの引数であるコマンドライン引数（読み取るファイル名）を、サブルーチンに渡してサブルーチン内で変数fileに代入する」という処理を行っているのですよね?

[A.Ichi]

そうですね、私は$ARGV[$n]派ですshiftが何回目かよく迷うので。

[UMA00]

2つ以上の引数を扱う場合には、1つ目が$ARGV[0]、2つ目が$ARGV[1]、…とした方がぱっと見て分かりますね。shiftは配列の1番目、次は2番目、次は3番目、…と要素をとってくる関数なんですね。

Answer 2

問題はshiftの位置です。
引数のないshiftを呼び出した場合、mainモジュールではコマンドラインの引数の配列から取り出され、sub内ではサブルーチンの引数の配列から取り出されるからです。
サブルーチンread_linesに引数が与えられていないので、前者のコードのshiftはundefを返したのです。

Comments

[UMA00]

ありがとうございます!!
大変わかりやすく、納得致しました。
「何も指定しない場合に、何を引数として取ってくるのか」、というところが理解できていなかったようです。