home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / perl / 5439 < prev    next >
Encoding:
Text File  |  1992-08-23  |  1.1 KB  |  36 lines
  1. Newsgroups: comp.lang.perl
  2. Path: sparky!uunet!wupost!darwin.sura.net!jvnc.net!nuscc!ccechk
  3. From: ccechk@nuscc.nus.sg (Heng Kek)
  4. Subject: Error in JAPH.
  5. Message-ID: <1992Aug24.040233.29468@nuscc.nus.sg>
  6. Organization: National University of Singapore
  7. Date: Mon, 24 Aug 1992 04:02:33 GMT
  8. Lines: 26
  9.  
  10. Out of curiosity, I tried out one of Randal's recent JAPH's:
  11.  
  12. print unpack('@2a@15a@13a@14a@0a@4a@10a@11a@14a@7a@6a@12a@0a@3a@6a@12a@9a@0a@7a@4a@5a@8a@6a@12a@1a', ' ,JPacehklnorstu');
  13.  
  14. which resulted in the following diagnostic:
  15.  
  16. @ outside of string at d09 line 5.
  17.  
  18. ("line 5" is the line containing the JAPH)
  19. Further 'testing' revealed that:
  20.  
  21. print unpack('@11a@12a@1a', ' ,JPacehklnorstu');
  22. print unpack('@11a@9a@1a', ' ,JPacehklnorstu');
  23.  
  24. gave the same error, but:
  25.  
  26. print unpack('@11a', ' ,JPacehklnorstu');
  27. print unpack('@8a@9a@1a', ' ,JPacehklnorstu');
  28.  
  29. works.  Seems to have something to do with the number of digits in
  30. the repeat count for '@'.  Is this a feature/bug?
  31.  
  32. Heng Kek
  33. This is perl, version 4.0
  34. $RCSfile: perl.c,v $$Revision: 4.0.1.6 $$Date: 91/11/11 16:38:45 $
  35. Patch level: 19
  36.