home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2004 July / APC0407D2.iso / workshop / apache / files / ActivePerl-5.6.1.638-MSWin32-x86.msi / _ba2879f8f189d10b79e8dc061eda9dd3 < prev    next >
Encoding:
Text File  |  2004-04-13  |  666 b   |  30 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. #!/usr/bin/perl
  14. #line 15
  15.  
  16. use MIME::Base64 qw(encode_base64);
  17.  
  18. my $buf = "";
  19. while (<>) {
  20.     $buf .= $_;
  21.     if (length($buf) >= 57) {
  22.     print encode_base64(substr($buf, 0, int(length($buf) / 57) * 57, ""));
  23.     }
  24. }
  25.  
  26. print encode_base64($buf);
  27.  
  28. __END__
  29. :endofperl
  30.