home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / perl / 5297 < prev    next >
Encoding:
Text File  |  1992-08-13  |  1.1 KB  |  40 lines
  1. Newsgroups: comp.lang.perl
  2. Path: sparky!uunet!ftpbox!mothost!merlin.dev.cdx.mot.com!fendahl.dev.cdx.mot.com!mcook
  3. From: mcook@fendahl.dev.cdx.mot.com (Michael Cook)
  4. Subject: Re: #! Emulation in MSDOS
  5. Message-ID: <mcook.713708799@fendahl.dev.cdx.mot.com>
  6. Sender: news@merlin.dev.cdx.mot.com (USENET News System)
  7. Nntp-Posting-Host: fendahl.dev.cdx.mot.com
  8. Organization: Motorola Codex, Canton, Massachusetts
  9. References: <1992Aug13.044323.1094@silogic.uucp>
  10. Date: Thu, 13 Aug 1992 12:26:39 GMT
  11. Lines: 27
  12.  
  13. markd@silogic.uucp (Mark C. DiVecchio (K3FWT)) writes:
  14.  
  15.  
  16. >In a recent posting, I saw a reference to #! emulation in MSDOS.  The
  17. >posting showed a code fragment which was to be place at the front of the
  18. >file:
  19. > 
  20. >@REM=(qq!
  21. >@echo off
  22. >perl %0.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
  23. >@goto end :) if 0;
  24.  
  25. >After trying this, it became obvious that a line or two is required at
  26. >the end of the file after the Perl code.  I'm not versed enough in Perl
  27. >to figure out the lines at the end. 
  28.  
  29. >Can anyone help?
  30.  
  31. (You probably want @REM=(qq: instead of @REM=(qq! .)
  32.  
  33. Let's see... you'd want to have ":end" at the end of the file.  How about
  34. this:
  35.  
  36.    REM ? 1
  37.    :end ;
  38.  
  39. Michael.
  40.