copying files of a certain type to different folder

supriyamk

Hi,
I am trying to search a directory for subdirectories, recreate the subdirectories elsewhere and copy only certain files from current subdirectory to new subdirectory.
In other words i am sorting filetypes into subdirectories with same name.

so far i have been able to create the subdirectories, but i am not able to copy the files into those directories.

Can anyone please tell my how to use the glob? bcoz i am unable to copy the files.
Thanks in advance

Jul 3 '08 #1

numberwhun

Have you read the CPAN page for File::Glob ? All globbing really is, is the ability to use wild cards to match many things. The module....well.....modulizes that.

Regards,

Jeff

Jul 3 '08 #2

supriyamk

i am trying to group all files of a certain type into an array using glob.
but i guess that is not happening

Jul 3 '08 #3

supriyamk

Hi,
i modified my code, now i am able to print the path where i want the file to go, but still the file is not getting copied.
Please tell me what is wrong in the code below.

use strict;
use warnings;
use File::Copy;
use Cwd;

my $dir_root; #dir to start in
my $dir_dest_gel = 'C:\TS'; #destination directory for gel files
my $dir_dest_res = 'C:\results'; # destination directory for results
#my $count;

sub dir_read
{
#parse directory for directories and files

#local to this function
my @Dir_name;
my @dir_list;
my $dir_prefix = $_[0];

print "reading dir: ${dir_prefix}\n";

opendir(aDIR, $dir_prefix);

#read, add to array -----line no 25
while($_ = readdir(aDIR))
{
#if a dir
if(-d "${dir_prefix}/${_}")
{
#dont allow . or ..
if($_ ne "." && $_ ne "..")
{
#add to array36
push(@dir_list, "${dir_prefix}/${_}"); }
}
#else a file--------line no 37
else
{
@Dir_name = split m!/!,$dir_prefix;
if($_ =~ /\.gel/)
{
copy("$_", "$dir_dest_gel\\$Dir_name[-1]\\$_");
}
if($_ =~ /\.res/)
{
copy("$_", "$dir_dest_res\\$Dir_name[-1]\\$_");
}

}
}

closedir(aDIR);



#print dir and file list:74
foreach $_ (@dir_list)
{

print "\tdir: ${_}\n";
}


#search lower dirs
foreach $_ (@dir_list)
{
# make subdirectories in TS and results folder
mkdir "$dir_dest_gel\\${_}" or die $!;
mkdir "$dir_dest_res\\${_}" or die $!;
&dir_read($_);
}
}


if(! $ARGV[0])
{
#print usage
print "Usage: perl trial3.pl rootpath\n";
}
else
{
# create main destination directories
mkdir $dir_dest_gel;
mkdir $dir_dest_res;

#check if path exists
$dir_root = $ARGV[0];
if( -d $dir_root)
{
#dir is ok
print "root directory: ${dir_root}\n";
}
else
{
#end
die("root directory: ${dir_root} does not exist!, stopped\n");
}

#read dir, and sub directories
&dir_read($dir_root);

print "done.\n";
}

Jul 3 '08 #4

supriyamk

Hi thanks for the guidance.
i got to know the problem.
i had to specify the path for the source file.
as i was using read directory, i assumed the active directory would change but it was not so, so once i gave the full path for the src and dest files, the whole program worked.
thanks again

Jul 3 '08 #5