On Dec 18, 2007 4:49 PM, Rob Dixon <[EMAIL PROTECTED]> wrote:
snip
> if (grep { not /\.mdb\z/ } @ARGV) {
> print "All parameters must be MDB files\n";
> exit;
> }
snip
Or in Perl 5.10, coming to stores near you soon*, you can use the
smart match operator:
@ARGV ~~ /\.mdb\z/
or die "All parameters must be MDB files"
See smart matching in perldoc perlsyn or
http://search.cpan.org/dist/perl/pod/perlsyn.pod#Smart_matching_in_detail
* I just checked and in fact it was released yesterday.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
