- 追加された行はこの色です。
- 削除された行はこの色です。
* Perlワンライナー [#g00a36a1]
* ワンライナー [#g00a36a1]
** -e 基本 [#y84fe922]
> perl -e 'print "foo"'
*** 構造 [#zac8c0a5]
（記述1）...
（記述2）...
*** 例 [#icd4135f]
$ perl -e 'print "foo"'
foo
** -p 1行ずつ読み込み、プリントする [#za9440ad]
>perl -p -e '' /etc/passwd
root:x:0:0:root:/root:/bin/bash
daemon:x:1:1:daemon:/usr/sbin:/bin/sh
bin:x:2:2:bin:/bin:/bin/sh
** -n 1行ずつ読み込む [#paf7cbbb]
*** 構造 [#ce77dc71]
while (<>) {
（記述1）...
（記述2）...
}
*** 例 [#o4c159f0]
ifconfig eth0 | perl -ne 'print "DEBUG:$1" if /inet addr:(\S+)/'
>perl -p -e 'print ++$i, ": "' /etc/passwd
1: root:x:0:0:root:/root:/bin/bash
2: daemon:x:1:1:daemon:/usr/sbin:/bin/sh
3: bin:x:2:2:bin:/bin:/bin/sh
DEBUG: 192.168.0.1
>perl -p -e 's/^[^:]+/\*\*\*/;' /etc/passwd
***:x:0:0:root:/root:/bin/bash
***:x:1:1:daemon:/usr/sbin:/bin/sh
***:x:2:2:bin:/bin:/bin/sh
** -p 1行ずつ読み込み、print()する [#za9440ad]
*** 構造 [#de612a03]
while (<>) {
（記述1）...
（記述2）...
print $_;
}
*** 例 [#q7fdafe8]
cat /etc/passwd | perl -pe 'print $num++ . ": "'
0: root:x:0:0:root:/root:/bin/bash
1: bin:x:1:1:bin:/bin:/sbin/nologin
2: daemon:x:2:2:daemon:/sbin:/sbin/nologin
** -i ファイルを上書きする [#l105fdcc]
$ perl -i -p -e 's/a/A/g' sample.txt
sample.txtは内容が修正され、上書きされる。
以下のようにすると、バックアップファイル（sample.txt.bak）が作成される。
$ perl -i.bak -p -e 's/a/A/g' sample.txt
** BEGIN{} END{} 前後に処理を加える [#ab31794a]
>perl -p -e 'BEGIN{ print "/etc/passwd:\n";} print ++$i, ": "; END{print "done.\n";}' /etc/passwd
$perl -p -e 'BEGIN{ print "/etc/passwd:\n";} print ++$i, ": "; END{print "done.\n";}' /etc/passwd
/etc/passwd:
1: root:x:0:0:root:/root:/bin/bash
2: daemon:x:1:1:daemon:/usr/sbin:/bin/sh
3: bin:x:2:2:bin:/bin:/bin/sh
done.
