Help for this page

Select Code to Download


  1. or download this
    use IO::ALL
$some_dir = "/cygdrive/e/Uns-Root/Sev";
...
        print $io->name, "\n"
        if $io->is_file;
      }
  2. or download this
    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.