ファイル関連

ファイルオープン

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: $!");

ディレクトリ内リスト取得

my @list = glob("$dir/*.txt");
  or
my @list = grep(/*.txt/, glob("$dir/*"));

以上