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

Replies are listed 'Best First'.
Re^4: How to write the perl script for the following linux command? by finddata (Sexton) on Mar 14, 2017 at 12:27 UTC
`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;` [download] error: Use of uninitialized value in pattern match (m//)	[reply] [d/l]
Re^5: How to write the perl script for the following linux command? by Corion (Patriarch) on Mar 14, 2017 at 12:38 UTC
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.	[reply] [d/l]
Re^6: How to write the perl script for the following linux command? by finddata (Sexton) on Mar 14, 2017 at 12:42 UTC
the error ocurrs at this line if($_ =~ /.csv/){	[reply]
Re^7: How to write the perl script for the following linux command? by Corion (Patriarch) on Mar 14, 2017 at 12:56 UTC
Re^8: How to write the perl script for the following linux command? by finddata (Sexton) on Mar 14, 2017 at 13:16 UTC
Some notes below your chosen depth have not been shown here
Re^5: How to write the perl script for the following linux command? by poj (Abbot) on Mar 14, 2017 at 12:47 UTC
What is exact and complete error message ? poj	[reply]
Re^6: How to write the perl script for the following linux command? by finddata (Sexton) on Mar 14, 2017 at 12:56 UTC
Use of uninitialized value in pattern match (m//) at line 7	[reply]


"be consistent"
	PerlMonks