Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Psh / Builtins / Forfile.pm

package Psh::Builtins::Forfile;

=item * C<forfile globpattern command>

Comparable to the sh-for command:

for i in globpattern; do command $i; done

The current filename will be assigned to $_

Examples:

forfile *.zip unzip $_

=cut

require Psh::Parser;
require Psh;
require Psh::Util;

sub bi_forfile {
       my @words=@{$_[1]};
       my @files= Psh::OS::glob(Psh::Parser::unquote($words[0]));
       foreach my $file (@files) {
               $command= join(' ',@words[1..$#words]);
               Psh::evl("\$\_=\"$file\"; $command");
       }
       return (1,undef);
}

1;