🚀 go-pugleaf

$BN)@P$G$9!#(B

>> $B<!$N$h$&$J;v$r$7$?$$$N$G$9$,!"$I$&$7$F$b$&$^$/$G$-$^$;$s!#(B
>> $B$I$N$h$&$K$9$l$P$h$$$N$G$7$g$&$+!#$465<x$*4j$$CW$7$^$9!#(B
>> $B$A$J$_$K!"(BSolaris2.5$B$G(Btcl/tk 8.1a2 $B$r;HMQ$7$F$$$^$9!#(B
>> 
>> ($B$d$j$?$$$3$H!K(B
>> $BJL%U%!%$%k!J$?$H$($P!"(Bqq.dat$B$H$7$^$9!K$K=q$+$l$?%U%!%$%k$r(B
>> $BFI$_9~$_!"O"A[G[Ns$r:n@.$9$k!#(B
($B>JN,(B)
>> $B$H$J$C$F$$$k$H!"(B
>> VAL(SEX) = "Probably
>> $B$H=P$F$-$^$9!#(B
>> $B$3$l$O!"2<$N%9%/%j%W%H$G(B  "<----------$B$3$3(B"
>> $B$H$$$&0u$N$"$kItJ,$G!"(Bqq.dat$B$+$iFI$_9~$s$@0l9T$E$D$KBP$7$F!"(B
>> $B%9%Z!<%9$H!t$NJ8;z$G(Bsplit$B$7$F$$$k$+$i$G$9!#(B
>> $B%9%Z!<%9$G(Bsplit$B$9$kL\E*$O!"(B"#"$B$N:8$K$"$kJ8;z$NA0$d8e$K%9%Z!<%9(B
>> $B$,$"$C$?>l9g$K!"%9%Z!<%9$rL5;k$9$k$?$a$G$9!#(B

string trim
string trimleft
string trimright

$BJU$j$r;H$C$F$_$F$O$I$&$G$7$g$&$+!)(B

$BNc!'(B
set no_space_list {}
set str_list [split " fuge # hoge " "#"]
foreach str $str_list {
	lappend no_space_list [string trim $str]
}
puts $no_space_list

--------------------------------------------------
Takaaki Tateishi [tateishi@sy.is.noda.sut.ac.jp]
		 [http://syyk11.is.noda.sut.ac.jp/~tateishi/]
--------------------------------------------------