"John W. Krahn" schreef:
> Stephen Reese:
>> chomp ($acl=$ARGV[0]);
>> if ($acl eq "") { $acl=".*"};
>
> my $acl = $ARGV[ 0 ] || '.*';
The chomp() can make a difference:
$ perl -wle 'my $x = $ARGV[0] || q{.*}; print qq{<$x>}' ''
<.*>
$ perl -wle 'my $x = $ARGV[0] || q{.*}; print qq{<$x>}' '
'
<
>
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
