Help for this page

Select Code to Download


  1. or download this
    $ls -al
total 112
...
Parser.pm
filetest.pl
loadme.pl
  2. or download this
    $cat filetest.pl 
#!/usr/local/ActivePerl-5.10/bin/perl
...

print "Found $Bin/$good_filename" . "\n" if (-e $Bin . '/' . $good_fil
+ename);
print "Found $Bin/$bad_filename" . "\n" if (-e $Bin . '/' . $bad_filen
+ame);
  3. or download this
    $./filetest.pl 
Found /Volumes/UserData/Users/dattanik/Programs/Perl/Work_area/Admin_s
+erver/lib/Admin_server/loadme.pl
Found /Volumes/UserData/Users/dattanik/Programs/Perl/Work_area/Admin_s
+erver/lib/Admin_server/Loadme.pl