home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _7a60110d7922be7cf6614d0389994e5e < prev    next >
Text File  |  2000-03-15  |  202b  |  13 lines
  1. <Job ID="args">
  2. <script language=PerlScript>
  3. $arg = $WScript->{Arguments};
  4.  
  5. $countArgs = $arg->{Count};
  6.  
  7. for($i=0; $i<$countArgs; $i++) {
  8. $WScript->Echo($arg->Item($i));
  9. }
  10. </script>
  11. </Job>
  12.  
  13.