jet speed wrote:
>
> I put togather few lines of code, I am looking to achieve the below
>
> dir1 with file1, file2
> dir2 with file1, file2
>
> i want to copy the files from each of the directory to a third directory
> dir3 as file1, file2 from dir1 and rename the file1 as file3 and file2 as
> file4 from the dir2.
>
> dir3 with file1,file2,file3,file4
>
> Please let me know how to modify the below to achieve this. Thanks in
> advance
>
>
> #!/usr/bin/perl -w
>
> # dir1 with file1, file2
> # dir2 with file1, file2
> # copy inot dir3 list of files file1, file2, file3, file4
>
> use strict;
> use warnings;
>
>
> my @files;
> my $file;
> my $dir = "/work/dir1";
> opendir (DIR, $dir);
> @files = readdir(DIR);
> closedir(DIR);
> print "@files \n";
> foreach $file (@files) {
> print "$file \n";
> }
>
>
> my @files1;
> my $file1;
> my $num1=1;
> my $dir1 = "/work/dir2";
> opendir (DIR, $dir1);
> @files1 = readdir(DIR);
> #closedir(DIR);
>
> foreach $file1 (@files1) {
> print "$file1.$num1 \n";
> system "(mv $file1 $file1.$num1");
> }
>
> closedir(DIR);
This seems to do the job.
HTH,
Rob
use strict;
use warnings;
use File::Spec;
use File::Path;
use File::Copy;
my @files = (files_in('/work/dir1'), files_in('/work/dir2'));
print "$_\n" foreach @files;
foreach my $file (@files) {
next unless $file =~ /\d+$/;
copy_next($file, '/work/dir3');
}
sub files_in {
my $dir = shift;
opendir my $dh, $dir or do {
warn $!;
return ();
};
my @files = grep not(/^\.\.?$/), readdir $dh;
map File::Spec->catfile($dir, $_), @files;
}
sub copy_next {
my ($from_file, $to_dir) = @_;
my $name = (File::Spec->splitpath($from_file))[-1];
mkpath $to_dir;
my $to_file = File::Spec->catfile($to_dir, $name);
while (-e $to_file) {
$to_file =~ s/(\d+$)/$1+1/e;
}
copy $from_file, $to_file or warn $!;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
