MinimalPerl のバックアップの現在との差分(No.1) - 投野由紀夫授業用ホームページ

バックアップ一覧
差分を表示
ソースを表示
バックアップを表示
MinimalPerl へ行く。
- 1 (2012-05-06 (日) 16:57:42)

追加された行はこの色です。
削除された行はこの色です。

[[SLWRMemo]]

-Null Filter

 perl -wnl -e 'pring;' file file2
 perl -wnl -e 'print;' file file2

-SED-like replace function:

--"-n" --> feed each line into $_

 perl -wnl -e 's/^/    /g; print;' file

--"-p" --> feed & print each line  #beautifully simple!

 perl -wpl -e 's/^/    /g;' file

--モジュールのロード：-M オプション

 perl -00 -wnl -e 'print "$.:$_";' file | fmt -60

 perl -M'Text::Autoformat' -00 -wn -e 'print autoformat "$.: $_", {right => 60};' file


--スクリプトで実行

 perl -wnl -e 'print;' file

-これと同じものを vi で作って chmod で実行権限を与える

 vi perl_cat
 chmod +x perl_cat 
 ls -l perl_cat 
 -rwxr-xr-x  1 tono  tono  30  5  6 19:48 perl_cat 

 ./perl_cat file