copying files in a dir

[kriz4321]

Hi all,
I have some files stored in an array say my array I have to read each file from the array and if the files ends with .raz I need to copy.

I need to copy the file from /home/kriz to /home/kriz/temp.iam working in unix environment ,as Iam new to perl can anyone say me how to check if it is a file and then how to check to ends with raz...

thanks

[KevinADC]

[CODE=perl]
if ($foo =~ /\.raz$/) {
# do something
}
[/CODE]

[savanm]

This is another idea

Store the .raz file in ur Array...

[CODE=perl]
my $path = getcw();
$path =~ s|\\|/|sg;
opendir(DIR, $path) or die "Can't opendir $path: $!";
my @raz = grep {/\.raz/} readdir(DIR); # Here U Get only .raz file in ur array
[/CODE]

Otherwise Check like this
Suppose ur Array name is @foo

[CODE=perl]
foreach $foo (@foo) {
if ($foo=~/\.raz$/) {
# then do wt ever u want
}
}
[/CODE]

Navas

[savanm]

[CODE=perl]
use File::Copy;
use Cwd;

my $path = getcwd();
$path =~ s|\\|/|sg;
opendir(DIR,$pa th) or die "Can't opendir $path: $!";
my @raz=grep {/\.raz/} readdir(DIR);

foreach $raz (@raz) {
print "$raz\n";
$new = "$path/new";
copy("$path/$raz",$new);
}
closedir(DIR);
[/CODE]


Hi the above code is a sample code for copying the files from the current path(suppose c:/temp/) to (c:/temp/new)...

Navas.M