in reply to Re: Copying files between directories. How can I improve this code.
in thread Copying files between directories. How can I improve this code.

Modern versions of Perl aready provide this: 
$ perl -MO=Deparse -e'while ($name = readdir(ORIG)) {}'
while (defined($name = readdir ORIG)) {
    ();
}
-e syntax OK

[download]
  • Comment on Re^2: Copying files between directories. How can I improve this code.
  • Download Code

In Section Seekers of Perl Wisdom