Help for this page

Select Code to Download


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

...
sub canon_path {
    return substr abs_path($_[0]), LEN_BASE_DIR;
}
  2. or download this
    ken@titan ~/tmp/pm_11143050
$ ls -lR fs
...

fs/t:
total 0
  3. or download this
    ken@titan ~/tmp/pm_11143050
$ ./mapfs.pl
...
  "/fs/a/x"     => ["link", ["/fs/a/b/c"]],
  "/fs/t"       => ["dir", []],
}