それで、私が Perl プログラムを書いているとしましょう:
./program.perl 10000 < file
「ファイル」の10000行目だけ読み込みたい。このフォームで入力リダイレクトを使用するにはどうすればよいですか? 10000 の行に沿って何かを取得し続けているようですが、ファイルではありません。
私はこれがうまくいくと思った:
#!/usr/bin/perl -w
$line_num = 0;
while ( defined ($line = <>) && $line_num < $ARGV[0]) {
++$line_no;
if ($line_no == $ARGV[0]) {
print "$line\n";
exit 0;
}
}
しかし、それは見事に失敗しました。