19 Mar
1998
19 Mar
'98
2:25 p.m.
I have no idea about the right place, however, being a strict perl devotee, I couldn't let the following slip by:
! foreach $tmpword ( split("\\s+", "$tmppol") ) {
*horrified*. I guess you normally use TCL where such constructs are normal? I'd write (which makes it even faster because the regexp needn't be compiled every time)
foreach $tmpword ( split( /\s+/, $tmppol ) ) {
The optimum includes ignoring leading and trailing blanks, which is: foreach $tmpword (split(' ', $tmppol)) { This behaviour is documented as providing emulation of AWK behaviour. Oliver