🚀 go-pugleaf

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

In article <SATOSHI.95Dec7092008@espoir.ics.nitech.ac.jp> satoshi@espoir.ics.nitech.ac.jp (Satoshi Ishikawa) writes:

> % set list "{a1 b c} {a2 b c} {a3 b c}"
> {a1 b c} {a2 b c} {a3 b c}
> % regexp "a* b c" $list
> 1
> % regsub -all "a* b c" $list "a b c" list
> 1
> % puts $list
> {a1a b c} {a2a b c} {a3a b c}

"a* b c" $B$@$H(B $B!X(Ba $B$N(B 0 $B8D0J>eO"B3$7$?JB$S$N8e$K(B " b c" $B$,$D$/$d$D$r(B
"a b c" $B$KCV$-49$($J$5$$!Y$C$F$3$H$@$+$i(B
$list $B$@$H!"$=$l$>$l(B 3 $B$D$N(B " b c" $B$K%^%C%A$7$A$c$$$^$9$h$M!#(B
$B=>$$$^$7$F0J2<$N$h$&$J7k2L$K$J$C$F@5$7$$$C$F$o$1$G$9!#(B

> % puts $list
> {a1a b c} {a2a b c} {a3a b c}

$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

$B$H$+!"(Ba $B$N8e$K?t;z$7$+B3$+$J$$$J$i(B

%regsub -all {a[0-9]+ b c} $list "a b c" list
%regsub -all "a\[0-9\]+ b c" $list "a b c" list

$B$H$+$$$&$N$O$$$+$,$G$7$g$&$+!)(B

$B>l9g$K$h$j$^$9$,!"(B
$B@55,I=8=$NCf$GJQ?t$r;H$C$F$J$$>l9g$K$O(B
$B@55,I=8=$N%H!<%/%s$O%0%K%c%+%C%3(B {...} $B$G3g$C$?J}$,(B
$BFI$_$d$9$$$G$9$h$M!#(B
"..." $B$@$H!"HO0O$rI=$9(B [...] $B$r;H$C$?;~!"(B
$B%3%^%s%I$H2r<a$5$l$k$N$G:$$C$A$c$$$^$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