ファイル関連
ファイルオープン
open my $fh, '<:raw', $file_path or return $self->error($!); my $content = do { local $/; <$fh> }; close $fh;
ファイルオープン
my $file = Path::Class::File->new($backup_dir, $self->config->{file}{mail}); open my $fh, '>:raw', $file or return $self->error("Cannot open file: $!"); print $fh $mail_body or return $self->error("Cannot print file: $!"); close $fh or return $self->error("Cannot close file: $!");