更新日:
投稿日:
文字列を編集したりするのに大変便利なやつ。sedやawkの代わりに使える。構文はPerlそのものが使える。なにせPerlなので
-e
- ワンライナーでコードを書くやつ
php -rやnode -eと同じ
- Evaluate, Eval, 評価
-n
- 入力の各行に対し処理がかかる
$.で行番号、$_で行の文字列を取得できる
while (<>)相当の処理
-p
- 入力の各行に対し処理を行い、更に
print $_相当の処理を実行する
-l
- 入力(
$_)から改行文字を削除し出力に改行を追加する
-a
- 入力の各行に対して
awk相当の文字列分割処理を行う(autosplit mode with -n or -p)
- 分割した文字は
$Fに配列として入るので次のようにして取得できる
perl -ale 'print "$F[0] - $F[1]'
$#Fを指定すると分割した個数が取れる
-F/pattern/
-aでsplitするパターンを設定する
- 例えば
-F,とするとCSVを分割できる
-i[ext]
- ファイルを編集する
- 使用例:
perl -i -pe 's/aaa/xxx/' foo.txt
-i.bakのように指定するとバックアップファイルが作成される
- このオプションは次に続く文字が解釈されるため、単体で指定する必要がある(
-ipeのようには使えない)
変数を指定しない場合、基本的に$_として扱われる
print
- 標準出力に出力
- 単体では
print $_と同じ挙動をする
$hoge =~ s/foo/bar/
/(.+)/; print $1
- キャプチャした内容を出力
- コマンド例:
echo hoge.jpg | perl -ne '/(.+)./; print $1'
$_
- 基本的に書かなくても補完される
- 例えば
echo aaabbc | perl -ne 's/c/d/; print'の出力はaaabbdとなる
- その他特殊変数:https://perldoc.jp/docs/perl/5.18.1/perlvar.pod
END{}
- このブロックで囲んだコードは実行時の最後に動作する
-n, -pを指定した場合、END{}は$_が取れないので渡す場合は$x = $_; END{ print $x }のように別の変数に代入する必要がある
- https://perldoc.jp/docs/perl/5.38.0/perlmod.pod#BEGIN44-32UNITCHECK44-32CHECK44-32INIT32and32END
一例
ls -l | perl -ale '$F[8] =~ s/\.html//; print $F[8];'
1のところが行数なので、ここを変えることで任意の行の文字列を取れる
入力
cat <<EOF | perl -ne 'print if $. == 1' 25-08-10 - 14:48:39
aaa
bbb
ccc
EOF
出力
aaa
入力
echo "foo bar" | perl -ne '/^([^ ]+)/; print $1'
出力
foo
入力
echo "foo bar" | perl -pe 's/(?<first>.+) (?<last>.+)/$+{first}-$+{last}/'
出力
foo-bar
unshiftで配列の先頭に値を追加し、END{}で最後に出力している
入力
cat <<EOF | perl -ne 'unshift @x, $_; END{ print @x }'
aaa
bbb
ccc
EOF
出力
ccc
bbb
aaa