Re: How to write the perl script for the following linux command?

[Corion]

Can you please also describe in English what this command is supposed to do?

Most likely, File::Find and File::Copy implement most of the functionality you will need.

[finddata]

The above command will find the source location and fetches for (*.csv files) and store the same directory structure at destination.

[Corion]

So, what Perl code did you write, for example using the modules I mentioned already, and how does it fail to do what you need?

[finddata]

my $sorce_direcrtory = $input_dir;
    my $new_directory = $output_dir;

    opendir(my $dh, $sorce_direcrtory) || die;
    while(readdir $dh) {
        if($_ =~ /.csv/){
            copy("$sorce_direcrtory/$_", "$new_directory/$_");
        }
    }
    closedir $dh;

error: Use of uninitialized value in pattern match (m//)