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: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/