home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _81a31819665372923cfad617335eaa0e < prev    next >
Text File  |  2004-06-01  |  1KB  |  44 lines
  1. @rem = '--*-Perl-*--
  2. @echo off
  3. if "%OS%" == "Windows_NT" goto WinNT
  4. perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
  5. goto endofperl
  6. :WinNT
  7. perl -x -S %0 %*
  8. if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
  9. if %errorlevel% == 9009 echo You do not have Perl in your PATH.
  10. if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
  11. goto endofperl
  12. @rem ';
  13. #!/bin/env perl 
  14. #line 15
  15. #!d:\perl\bin\perl.exe 
  16.  
  17. # -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
  18.  
  19. use SOAP::Lite;
  20.  
  21. print "Accessing...\n";
  22. my $schema = SOAP::Schema
  23.   -> schema(shift or die "Usage: $0 <URL with schema description> [<service> [<port>]]\n")
  24.   -> parse(@ARGV);
  25.  
  26. print "Writing...\n";
  27. foreach (keys %{$schema->services}) {
  28.   my $file = "./$_.pm";
  29.   print("$file exists, skipped...\n"), next if -s $file;
  30.   open(F, ">$file") or die $!;
  31.   print F $schema->stub($_);
  32.   close(F) or die $!;
  33.   print "$file done\n";
  34. }
  35.  
  36. # try
  37. # > perl stubmaker.pl http://www.xmethods.net/sd/StockQuoteService.wsdl
  38.  
  39. # then
  40. # > perl "-MStockQuoteService qw(:all)" -le "print getQuote('MSFT')" 
  41.  
  42. __END__
  43. :endofperl
  44.