Perl5でファイルの読み書き

CPANには色々なファイル操作系のライブラリがあって、いつも「どれ使ってたっけ？」って悩んで時間を浪費するので、よく使うライブラリを書いとく。

用途によって色々選べるとおもうけど、ここでは軽い気持ちで使いたい奴のメモとする。

まとめ

• File::Slurp ... 読み書き
• File::Spec ... パス整形
• File::Basename ... 今いるファイルからパスを取得したり

ファイルの読み書き

File::Slurpを使うとお手軽。

use File::Slurp;

# 書き込み
write_file($file_path, +{ binmode => ':utf8' }, $content);

# 読み込み
read_file($file_path, binmode => ':utf8');

パス整形

File::Specを使うと環境に依存しないパス整形をしてくれる。

my $file_path = File::Spec->catfile('/usr/local/bin', 'perl');

実行ファイルを基準にパスを取得

File::Basename

use File::Basename;
my $dirname = dirname(__FILE__);

use lib File::Spec->catdir(dirname(__FILE__), '../lib');