Help for this page

Select Code to Download


  1. or download this
    foreach $file (@filelist) {
  ($dir, $name) = split '/', $file;
...
  printf("%s  %s\n", $dir, $name);
  $currentdir !~ s/$dir/$dir/;
}
  2. or download this
    DIR1  FILE1
      FILE2
      FILE3
DIR2  FILE4