説明のないとってもシンプルなサンプルプログラム集

COBOL	awk	C言語	D言語	GO言語	Lua	Vim
bash	Perl	Gauche	Clojure	CLISP	EmacsLisp	VimScript
tcsh	Ruby	Groovy	Java	C#	VBScript	JavaScript
Io言語	Python	Erlang	Scala	VB.NET	Excel/VBA	PHP
Tcl	Haskell		OCaml	PowerShell	Windows	Unix/Linux

Linuxコマンド > perl perlコマンド

1 
2 
3 
4 
5 
6 
7 perl [ -sTtuUWX ]      [ -hv ] [ -V[:configvar] ]
     [ -cw ] [ -d[t][:debugger] ] [ -D[number/list] ]
     [ -pna ] [ -Fpattern ] [ -l[octal] ] [ -0[octal/hexadecimal] ]
     [ -Idir ] [ -m[-]module ] [ -M[-]'module...' ] [ -f ]
     [ -C [number/list] ]      [ -S ]      [ -x[dir] ]
     [ -i[extension] ]
     [ [-e|-E] 'command' ] [ -- ] [ programfile ] [ argument ]...

~$ cat sample5.txt
1       2       3       4
5       6       7       8
9       10      11      12
13      14      15      16
17      18      19      20
21      22      23      24
25      26      27      28
29      30      31      32
33      34      35      36
37      38      39      40
~$

指定行のみ抽出(5行目)

~$ perl -ne 'print if $.==5' sample5.txt
17 18 19 20
~$
~$

指定行のみ抽出(1行目から3行毎)

~$ perl -ne 'print if $.<=3and$.>=1' sample5.txt
1       2       3       4
5       6       7       8
9       10      11      12
~$

指定行のみ抽出(8行目以降すべて)

~$ perl -ne 'print if $.>=8' sample5.txt
29      30      31      32
33      34      35      36
37      38      39      40
~$

正規表現でマッチした行のみ抽出

~$ perl -ne 'print if/^[345]/' sample5.txt
5       6       7       8
33      34      35      36
37      38      39      40
~$

正規表現で置換する

~$ perl -pe 's/[1357][02468]/./g' sample5.txt
1       2       3       4
5       6       7       8
9       .       11      .
13      .       15      .
17      .       19      20
21      22      23      24
25      26      27      28
29      .       31      .
33      .       35      .
37      .       39      40
~$