読者です 読者をやめる 読者になる 読者になる

perl のパラグラフモードをワンライナーで使う

Minimal Perl(原著) の p149 に載ってるパラグラフモード(-00 パラメータ)を使った例が便利そうだったので、基本的な使い方をメモ。

~% perl -w -e 'for (1..100){ printf "%3s ", $_; print "\n" if $_%10 == 0; print "\n" if $_%20 == 0}' > one_to_hundred.txt

~% cat one_to_handred.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

 41  42  43  44  45  46  47  48  49  50
 51  52  53  54  55  56  57  58  59  60

 61  62  63  64  65  66  67  68  69  70
 71  72  73  74  75  76  77  78  79  80

 81  82  83  84  85  86  87  88  89  90
 91  92  93  94  95  96  97  98  99 100

# 2 パラグラフ目の、2個目の要素を表示
~% perl -00 -wnla -e '$. == 2 and print "<<$F[1]>>";' one_to_handred.txt
<<22>>