🚀 go-pugleaf

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

In article <HOSHI.95Dec7114239@ext221.sra.co.jp> hoshi@sra.co.jp (Hoshi Takanori) writes:
> $B!t(B glob $B$H:.F1$7$F$$$^$9$M!#;d$b$h$/$d$j$^$9$,(B...

$B$*CQ$:$+$7$$(B ... (-_-;
$B4V0c$($^$7$?(B

> $B$=$l$+$i!"(Blist $B$N3FMWAG$r(B regsub $B$7$?$$$H$$$&$3$H$J$i!"(B
>
>	   set result {}
>	   foreach i $list {
>	       regsub ... $i ... j
>	       lappend result $j
>	   }
>
> $B$N$h$&$K$9$kJ}$,0BA4$G$9!#$A$g$C$HCY$/$J$j$^$9$,!#(B

$B%j%9%H$d$=$NMWAG!"$^$?$=$NMWAG$KBP$7$F(B
$B%k!<%W$r;H$o$J$$$G(B regsub $B0lH/$G=q49$($i$l$k$N$O(B
Perl $B$J$I$K$OL5$$Hs>o$KNI$$$H$3$m$@$H;W$&$N$G$9$,(B
$B3'$5$s$OIaCJ$I$&$5$l$F$k$s$G$7$g$&$+!)(B

Tcl $B$K$OB>$K=hM}B.EY$r2T$2$k$b$N$,$J$$$b$s$G(B (;_;)
$B$D$$$D$$!"$3$N<j$r;H$C$F$7$^$$$^$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