"John W. Krahn" wrote:
>
> You should probably use File::Find
>
> use warnings;
> use strict;
> use File::Find;
>
> my $rootdir = 'C:/Temp/Test';
> my @dirs;
>
> find( sub { -d and # is it a directory?
> !/^\.\.?$/ and # don't want . and .. directories
> push @dir, $File::Find::name
> }, $rootdir );
>
> for my $dir ( @dirs ) {
> next if -e $dir;
Correction, that should be:
next if -e "$dir.bak";
> system( 'copy', $dir, "$dir.bak" ) == 0 or die "Cannot copy: $?";
> print "$dir\n";
> }
>
> __END__
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
