私はこのシーケンスを信じられない思いで見ました:
my $line;
$rc = getline($line); # read next line and store in $line
Perl の引数は値によって渡されることをずっと理解していたので、大きな構造体を渡す必要があるときや、更新する変数を渡す必要があるときはいつでも、ref を渡しました。
しかし、perldoc の詳細を読んで、@_ が引数リストに記載されている変数のエイリアスで構成されていることを知りました。データの次のビットを読み取った後、getline()は$_[0] = $data;でそれを返します。$dataを$lineに直接格納します。
私はこれが好きです - C++ での参照渡しのようなものです。ただし、より意味のある名前を$_[0]に割り当てる方法は見つかりませんでした。ありますか?