On Wed, Oct 14, 2009 at 15:38, Felix Dorner <felix...@web.de> wrote:
> Hi,
>
> 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) {
> $was = $_;
> eval $op;
> die $@ if $@;
> rename ($was, $_) unless $was eq $_;
> }
>
>
> #rename.pl s/\.orig// httpd.conf.orig
>
> will rename httpd.conf.orig to httpd.conf. But it also works with wildcards:
>
> #rename.pl s/\.orig// *
>
> will chop .orig from all files in the current directory.
> So it assigns <STDIN> to @ARGV. But <STDIN> is just a * right? Does the
> shell expand this, or perl? Any comments/detailed explanations welcome.
IIRC, under *nix, the shell expands it, while under Windows, Perl
expands it. It doesn't really matter, because by the time @ARGV is
populated, it's been expanded and the script only ever sees the
expansion.
--
Mark Wagner
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
