John W. Krahn wrote:
>
> UNTESTED:
>
> use File::Copy;
> use File::Basename;
> use File::Find;
>
> my $from_dir = 'A';
> my $to_dir = 'F';
>
> my %count;
> find sub {
> my ( $name, undef, $ext ) = fileparse $_, qr/\..*/;
> copy( $_, "$to_dir/$name" . ++$count{ $name } . $ext )
Perhaps that should be:
copy( $_, "$to_dir/$name" . ++$count{ $_ } . $ext )
instead.
> or warn "Cannot copy '$File::Find::name' $!";
> }, $from_dir;
>
> __END__
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
