in reply to how to a specific group of files from source directory to destination directory

You may use File:Util as well. The code may look like this (taken from the docu). 
use File::Util;
use File::Copy;
my($f) = File::Util->new();
my(@files) = $f->list_dir($dir,'--files-only');
foreach $file (@files) {
   copy ($file, "$targetDir/$file);
}

[download]
  • Comment on Re: copying each and every file from source directory to destination directory
  • Download Code

Replies are listed 'Best First'.
Re^2: copying each and every file from source directory to destination directory
by asdfghjkl (Initiate) on Oct 20, 2007 at 07:19 UTC
    hi thanks for the reply. i did excecute your code as given and did give source and target directory name i got an error as below. 
    Can't locate File/Util.pm in @INC (@INC contains: /usr/lib/perl5/5.8.5
+/i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_per
+l/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-l
+inux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-mu
+lti /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/p
+erl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl
+/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/li
+b/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5
+/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_p
+erl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i
+386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-th
+read-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /
+usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl
+5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_per
+l/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr
+/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/li
+b/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/p
+erl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at ./org line 2.
BEGIN failed--compilation aborted at ./org line 2.

    [download]
[reply]
[d/l]
[reply]
        i am connected to server . i am not sure whether i could do it.when i am trying to install 
        Can't open perl script "Makefile.PL": No such file or directory.
Use -S to search $PATH for it.

        [download]
        is the thing i am getting thanks and regards dharani

        20071110 Edited by Co-Rion: Restored content

[reply]
[d/l]

In Section Seekers of Perl Wisdom