Help for this page

Select Code to Download


  1. or download this
        if ( /filename\s*=\s*(\S+)/x ) 
    {
...
            delete $files{$file};
        } @batch = ();
    }
  2. or download this
      switch ($_) 
  {
...
      case  qr /go/ { if (exists $files{$file}) 
                      { push @PLACE, @batch; delete $files{$file}}}
  } @batch = ();
  3. or download this
    fileparse(): need a valid pathname at ./script line xxx