in reply to Moving files into another folder

Please, take a look at File::Path and File::NCopy .


Replies are listed 'Best First'.
Re^2: Moving files into another folder
by prasadbabu (Prior) on Feb 18, 2005 at 14:55 UTC

    I tried File::NCopy, the files are not copied to that final_files using the above coding.

    Prasad

[reply]
      I hope this scratch helps: 
      use strict;
use File::NCopy qw(copy);

my $dir = shift;
my $new = 'destination';

-d $dir or die $!;
-d $new or mkdir $new;

my @files = grep { -f } glob "$dir/*";

copy $_, $new for @files

      [download]


[reply]
[d/l]

        Thank you i have got the solution.

        Prasad

[reply]

In Section Seekers of Perl Wisdom