Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
    }{}x;
  printf "%30s  ->  %s\n", $path, $_;
  }

Select or download this

           /a/b/c/d/../../../e  ->  /a/e
                /a/../b/./c//d  ->  /b/c/d
...
                          A/B/  ->  A/B
                         A/./B  ->  A/B
                    A/foo/../B  ->  A/B