Help for this page

Select Code to Download


  1. or download this
    die 'do not run this code';
#get arguments;
my ($filepathlist,$mountpoint)= @ARGV;

die 'usage & defaults' if $filepathlist =~ /^-{0,2}h(elp)?\s*$/;
  2. or download this
    die 'do not run this code';
$filepathlist = 'home/Documents/directorieslist' unless $filepathlist;
...

}
  3. or download this
    #use default file, but supply mountpoint;
> perl ./fileunliker.pl /mount/path