🚀 go-pugleaf

$B$[$7!w$($9$"!<$k$(!<$G$9!#(B

In article <URUSHIMA.95Dec7105417@tanguy.ai.isl.secom.co.jp>
         urushima@ai.isl.secom.co.jp (Kenji Urushima) writes:

> $B>l9g$K$b$h$j$^$9$,(B a $B$N8e$K(B 1$BJ8;z$7$+$J$$$J$i(B
> 
> % regsub -all {a? b c} $list "a b c" list

a? $B$O(B 0 $B$^$?$O(B 1 $B8D$N(B a $B$H$$$&0UL#$G$9!#(B
$BG$0U$N0lJ8;z$rI=$9$N$O(B . $B$G$9$M!#(B

$B!t(B glob $B$H:.F1$7(B$B$F$$$^$9$M!#;d$b$h$/$d$j$^$9$,(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$[$7(B