home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / P2XAP.ZIP / sample.pl < prev    next >
Encoding:
Perl Script  |  1998-12-10  |  520 b   |  22 lines
  1. #!/usr/bin/perl
  2.  
  3. print "This is the sample.pl script\n";
  4. print "ARGV = ", join(" ", @ARGV), "\n";
  5.  
  6. # this will return script name with or without the path
  7. print "Script = $0\n";
  8.  
  9. # this will return full path to exe if using Perl2Exe
  10. print "Env sourceExe = $ENV{'sourceExe'}\n";
  11.  
  12. # this will return full path to exe if using Perl2Exe
  13. # or perl.exe if using interpreter
  14. print "\$^X = $^X\n";
  15.  
  16. print "foo = $foo\n";   # test -foo command line switch
  17.  
  18. for ($i = 0; $i < 2; $i++) {
  19.  print "i = $i\n";
  20. }
  21.  
  22.