On 4/1/08, alok nath <[EMAIL PROTECTED]> wrote:
> Hi,
> I wanted to recursively copy the contents of a directory(both directory and
> files) from one folder to the other.
use File::Copy from CPAN.
> The below code does only copy of directories but leaves behind files.
> @dirs=grep {!(/^\./) && -d "$dir\\$_"} readdir(DIR);
because you picked up only the directories into the @dirs.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
