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

[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//)

[Corion]

Usually, Perl also outputs the exact line number where the warning occurs. What line number does your code output?

I find it unlikely that opendir would succeed but then readdir should return undef.

Let me recommend to you, again, File::Find, which makes iterating over a directory tree somewhat easier.

[finddata]

the error ocurrs at this line if($_ =~ /.csv/){

[Corion]

Please post a self-contained, small example that reproduces the behaviour you see.

Using the below code, I cannot reproduce your problem:

#!perl -w
use strict;

my $sorce_direcrtory = '.';
my $new_directory = './target/';

opendir(my $dh, $sorce_direcrtory) || die $!;
while(readdir $dh) {
    print "Found directory entry [$_]\n";
    if($_ =~ /.csv/){
        print qq{copy("$sorce_direcrtory/$_", "$new_directory/$_")\n};
    }
}
closedir $dh;

[poj]

What is exact and complete error message ?

poj

[finddata]

Use of uninitialized value in pattern match (m//) at line 7