felix_do wrote:
> I did the best book purchase in years: The Perl Cookbook. They have
> an example that seems to come right from Larry Wall himself. And I
> don't get it. I can use it but I don't understand why it works with
> wildcards.
> $op = shift or die "Usage: rename expr [files]\n"; chomp (@ARGV =
> <STDIN>) unless @ARGV;
> for(@ARGV) {
print() and Data::Dumper are my favorite debugging tools:
2009-10-14 15:59:25 dpchr...@p43400e ~/bar
$ l
./ ../ another.one file.one file.two foo
2009-10-14 15:59:26 dpchr...@p43400e ~/bar
$ cat foo
#! /usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
print Data::Dumper->Dump([...@argv], [qw(*ARGV)]);
2009-10-14 15:59:29 dpchr...@p43400e ~/bar
$ perl foo howdy arg 123 *
@ARGV = (
'howdy',
'arg',
'123',
'another.one',
'file.one',
'file.two',
'foo'
);
HTH,
David
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
