コード $ cat test1
hello
i am
lazer
nananana
$ cat 1.pl
use strict;
use warnings;
my @fh;
open $fh[0], '<', 'test1', or die $!;
my @res1 = <$fh[0]>; # Way1: why does this not work as expecte
次のPerlコードは明らかに非効率的です。 while (<>)
{
if ($ARGV =~ /\d+\.\d+\.\d+/) {next;}
... or do something useful
}
コードは、不要と思われるファイルのすべての行を処理します。 この特定のスクリプトがこれで実行しているファイルのサイズでは、目立った違いはありませんが、学習のためです。ファイル<>をすべ