Perlぷち技

特別に章立てするほどでもないPerlのぷち技です。

ファイルの中身を書き換えて保存し、元ファイルのバックアップファイルも作成する。

 % perl -pi.bak -e 's/foo/bar/g' file

乱数

Perlで乱数を生成するにはrandを使います。
rand(n)の場合、0からn-1までの整数の乱数を返します。
通常、randを実行する前に、srandを実行してrandのためのシード値を設定し、実行するたびにrandが異なる乱数を生成できるようにするのですが、Perl-5.8.0以降はrandの中で自動的にsrandを実行するようになっているようです。

quotemeta($str)

$strからすべての正規表現のメタ文字をエスケープしたものを返します。