Help for this page

Select Code to Download


  1. or download this
    use File::Basename;

...
                               print "Native: ",basename($url,'.html')
+,"\n";
fileparse_set_fstype('Unix');  print "Unix: ",  basename($url,'.html')
+,"\n";
fileparse_set_fstype('MacOS'); print "MacOS: ", basename($url,'.html')
+,"\n";
  2. or download this
    use File::Basename;

...
                               print "Native: ",basename($url,'.html')
+,"\n";
fileparse_set_fstype('Unix');  print "Unix: ",  basename($url,'.html')
+,"\n";
fileparse_set_fstype('MacOS'); print "MacOS: ", basename($url,'.html')
+,"\n";