Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w

...
{
(my $path = shift) =~  s![\\/]+!\\!g;  return $path; 
}
  2. or download this
    Scalar found where operator expected at notworking.pl line 21, near "$
+File::Find
::name$/"
...
syntax error at notworking.pl line 23, near ")
"
Illegal declaration of subroutine main::win_path at notworking.pl line
+ 27.