Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
m~^(\S+)(?=[\s/])(?{$subpaths{$1}++})(*FAIL)~m; # get all subpaths
my @subpaths = sort { length $a <=> length $b } sort keys %subpaths;
print "$_\n" for @subpaths;
  2. or download this
    /usr
/root
...
/root/site/tools/gauv/pkgs/python3/3.6.3a
/root/site/tools/gauv/pkgs/python3/3.6.3/bin
/root/site/tools/gauv/pkgs/python3/3.6.3/bin/python3.6