Perl: ファイルを扱う

■ ファイルの中身を取り出す

sub get_content {
    my $file = shift;
    open(my $fh, '<', $file)
        or die qq{Can't open file "$file": $!};
    return join('', <$fh>);
}

my $data = get_content('data.txt');

■ ファイルに書き込む

# 書き込みモードにして
my $outfile = 'data.txt';
open(my $outfh, '>', $outfile)
    or die qq{Can't open file "$outfile": $!};
# 書き込む
print $outfh "Hello";
# 閉じる
close $outfh;