ishiducaの日記 このページをアンテナに追加 RSSフィード

2009-05-17

[][]eof を使って $.(行番号を表す変数)をリセットする 13:49 eof を使って $.(行番号を表す変数)をリセットする - ishiducaの日記 を含むブックマーク はてなブックマーク - eof を使って $.(行番号を表す変数)をリセットする - ishiducaの日記 eof を使って $.(行番号を表す変数)をリセットする - ishiducaの日記 のブックマークコメント

複数のファイルを引数として使うと、行番号(を表す $. )は続いてしまう。

$ cat benharper_m3u
Black Rain
With My Own Two Hands
The Woman In You

$ cat ninashimone_m3u
Black Is the Color of My True Love's Hair
Funkier Than A Mosquito's Tweeter
Lilac Wine
$ perl -wpl -e 'printf "$. ";' benharper_m3u ninashimone_m3u
1 Black Rain
2 With My Own Two Hands
3 The Woman In You
4 Black Is the Color of My True Love's Hair
5 Funkier Than A Mosquito's Tweeter
6 Lilac Wine

ファイル毎に行版をリセットしたい時には eof(FILEHANDLE) を使った技術を使う

$ perl -wpl -e 'printf "$. "; close ARGV if eof;' benharper_m3u ninashimone_m3u
1 Black Rain
2 With My Own Two Hands
3 The Woman In You
1 Black Is the Color of My True Love's Hair
2 Funkier Than A Mosquito's Tweeter
3 Lilac Wine

とか

$ perl -wpl -e 'printf "%2s ", $.; $_.="\n" and close ARGV if eof;' benharper_m3u ninashimone_m3u
 1 Black Rain
 2 With My Own Two Hands
 3 The Woman In You

 1 Black Is the Color of My True Love's Hair
 2 Funkier Than A Mosquito's Tweeter
 3 Lilac Wine

参照

トラックバック - http://perl.g.hatena.ne.jp/ishiduca/20090517