I tried following code to print the file names but it gives error.
Error isuse IO::ALL $some_dir = "/cygdrive/e/Uns-Root/Sev"; $dir = io($some_dir); while (my $io = $dir->read) { print $io->name, "\n" if $io->is_file; }
Can't locate IO/ALL.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/sit +e/lib .) at e:\Uns-Root\DirStru.pl line 4. BEGIN failed--compilation aborted at e:\Uns-Root\DirStru.pl line 4.
In reply to Direcctory Traversal by Kautilya
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |