Jeff Pang schreef:

>     $fname =~ s/^\s+|\s+$//g;

Alternative:

  s/^\s+//, s/\s+$// for $fname;

Test:

perl -wle'
  $s = "   abc   ";
  s/^\s+//, s/\s+$// for $s;
  print "<$s>"
'
<abc>

-- 
Affijn, Ruud

"Gewoon is een tijger."

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to