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