🚀 go-pugleaf

$B$3$s$K$A$O(B
$B<?Eg!w%;%3%`$G$9!#(B

In article <ICHIRO.95Dec8130736@insux1.ins.u-tokyo.ac.jp> ichiro@insux1.ins.u-tokyo.ac.jp (Ichiro Suzuki) writes:
            ^^^^^^^^^^^^^ $B:#!"A^F~$7$F5$$,$D$$$?$s$G$9$,F1@+F1L>$G$9$+(B
			  $B$+$C$3$$$$!*!*!*!*(B($B4X78$J$/$F$9$_$^$;$s(B)

> Perl $B$K$b$"$j$^$9!#(B
>     grep(<ACTION>, <LIST>);
> $B$O!"(BLIST$B$N3FMWAG$KBP$7$F(BACTION$B$r<B9T$7!"$=$N7k2L$,(Bsuccess$B$G$"$C$?(B
> $BMWAG$N%j%9%H$rJV$7$^$9!#(B
>     ACTION$B$H$7$F%Q%?!<%s%^%C%A$r;XDj$9$l$P(Bgrep(1)$B$NMM$K;H$($^$9$7!"(B
> $BCV49$K$9$l$P(Bregsub$B$K$J$j$^$9!#(B $B7W;;$J$s$+$b$5$;$k$3$H$,$G$-$^$9!#(B

grep $B$@$H%j%9%H!"%j%9%H$N%j%9%H!"%j%9%H$N%j%9%H$N%j%9%H(B...
$B$C$F$$$&$N$,$4$A$c$^$<$KF~$C$F$$$k;~!"(Bgrep $B$r%M%9%H$7$J$$$H(B
$B$$$1$J$/$"$j$^$;$s$+!)(B

tcl $B$N(B regsub $B$J$i(B

{a1 a2 {a3 {a5 a6} {a7 {a8 a9}}} a10}

$B$H$+$$$&$N$b0lH/$G(B a[0-9]+ $B$KBP$7$F(B b[0-9]+ $B$K(B
$BCV$-49$($i$l$k$N$G$O$J$$$+$H(B....

	$B:3:Y$J$3$H$G$9$_$^$;$s(B (-_-;

	$B<?Eg!w(BPerl $B$O7y$$$G$O$J$/$`$7$m$H$F$b9%$-$G$9(B

----
        $B%;%3%`(BIS$B8&5f=j(B $B?M9)CNG=8&5f<<(B $B<?Eg8-Fs(B (urushima@ai.isl.secom.co.jp)
        $B")(B190$BN)@n;T1ID.(B6-1-1 $BN)Ht%S%k(B7$B9f4[(B       TEL 0425(34)5683