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]

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

[savanm]

This is another idea

Store the .raz file in ur Array...

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
 

Otherwise Check like this
Suppose ur Array name is @foo

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

Navas

[savanm]

use File::Copy;
use Cwd;
 
my $path = getcwd();
$path =~ s|\\|/|sg;
opendir(DIR,$path) 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);
 

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