mix3/fileopen_abbr.pl

## fileopen_abbr.pl
#!/usr/bin/env perl

use strict;
use warnings;

# <> でopen無しに引数のファイルを読み取れる
while (<>) { print; }

## fileopen_array.pl
#!/usr/bin/env perl

use strict;
use warnings;

# or die でファイルが開けなかったら die とするのが良くある書き方
open my $fh, "<".$ARGV[0] or die $!;

# オープンの種類
#
# 省略 読み込み
# <    読み込み
# >    書き込み
# >>   追記
# +<   読み書き & 新規作成しない
# +>   読み書き & 新規作成あり
# +>>  読み書き & 新規作成あり & 追記

my @lines = <$fh>;
for my $line (@lines) {
    chomp($line);
    print $line."\n";
}

# closeするのが紳士
close($fh);

## fileopen_array_abbr.pl
#!/usr/bin/env perl

use strict;
use warnings;

# or die でファイルが開けなかったら die とするのが良くある書き方
open my $fh, "<", $ARGV[0] or die $!;

# joinで文字列にしてしまうのもよくある書き方
my $_ = join('', <$fh>);
print;

# closeするのが紳士
close($fh);

## fileopen_object.pl
#!/usr/bin/env perl

use strict;
use warnings;

use Path::Class;

my $file = Path::Class::File->new($ARGV[0]);

# open('r')で読み取り
my $fh = $file->open('r') or die $!;

while (<$fh>) { print; }

# closeするのが紳士
$fh->close;

## fileopen_while.pl
#!/usr/bin/env perl

use strict;
use warnings;

# or die でファイルが開けなかったら die とするのが良くある書き方
my $fh;
open ($fh, $ARGV[0]) or die $!;

while (my $line = <$fh>) {
    chomp($line); # 改行を取り除く場合はchompとかする
    print $line."\n";
}

# closeするのが紳士
close($fh);

## fileopen_while_abbr.pl
#!/usr/bin/env perl

use strict;
use warnings;

# or die でファイルが開けなかったら die とするのが良くある書き方
open my $fh, $ARGV[0] or die $!;

while (<$fh>) {
    print; # $_ は省略可能
}

# closeするのが紳士
close($fh);
	#!/usr/bin/env perl

	use strict;
	use warnings;

	# <> でopen無しに引数のファイルを読み取れる
	while (<>) { print; }