[Tokyo.pm] one liner

[maeda ＠ src.ricoh.co.jp]

$BA0ED(B@$B%j%3!<$G$9!#(B

$B0pMU$5$s(B> for f in sql-*.txt; do
$B0pMU$5$s(B> perl -ne 'print "'$f':$.:$_" if s/(group)/($x=$1)=~s:(.):$1\b$1:g;$x/gie' $f;
$B0pMU$5$s(B> done | less

$B$r$r$J$k$[$I!#:#F|5$$,$D$$$?$N$G$9$,!"(Bregex$B$,!V(Bgroup$B!W$/$i$$$N$+(B
$B$s$?$s$J$b$N$J$i(Bless$B$N(B/group$B$r;H$C$?J}$,6/D4I=<($O$+$s$?$s$G$7$?!#(B
$B:G=i$K;H$C$?$N$O(B(max|avg|sum|min|count)$B$@$C$?$N$G(Bperl$B$NJ}$,$h$+$C(B
$B$?$+$b!#(B

$B0pMU$5$s(B> sub$B$r;H$C$?J}$,$o$+$j$d$9$$$G$9$,!"%o%s%i%$%J!<$O$o$+$j$d$9$5$h$j(B
$B0pMU$5$s(B> $BC;$5$H;W$&$N$G!#(B

$B;d$N>l9g%o%s%i%$%J!<$O:n ＠ .;~4V$,C;$$$N$,L?$G$9$s$G!"?t$"$kJ}K!$N(B
$B$&$A:G=i$K;W$$$D$$$?$b$N$r;H$$$^$9$G$9(B($B>P(B)$B!#(B

-------------------------------  Vulture       LRM20   .$B""(B||$B""(B.   LRM20
 $BA0ED(B $B70(B maeda ＠ src.ricoh.co.jp   75t 175km/h     Md+  o'$B""(B||$B""(B`o  Md+
 ($B3t(B)$B%j%3!<(B $B%=%U%H%&%'%"8&5f=j(B   HeatSink 18  LG Sm+   .=X~~X=.   Sm+ LG
-------------------------------  Armor 2195           _|_    _|_