home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / perl / 8018 < prev    next >
Encoding:
Text File  |  1993-01-28  |  590 b   |  24 lines
  1. Newsgroups: comp.lang.perl
  2. Path: sparky!uunet!munnari.oz.au!sgiblab!darwin.sura.net!gatech!ncar!csn!tpsrd!tplrd!johne
  3. From: johne@tplrd.tpl.oz.au (John Eldred)
  4. Subject: split array assignment
  5. Message-ID: <1993Jan27.113301.2417@tpl68k0.tplrd.tpl.oz.au>
  6. Originator: johne@sydte3
  7. Lines: 12
  8. Nntp-Posting-Host: sydte3
  9. Organization: Telectronics Pacing Systems
  10. Date: Wed, 27 Jan 93 00:28:56 GMT
  11.  
  12. Can some kind person tell me why this bit of code prints 4 3 ?
  13.  
  14. $_ = "a b c\n";
  15. $p = ($x, $y, $z) = split;
  16. $q = split;
  17. print $p, ' ', $q, "\n";
  18.  
  19. It prints 3 3 if you chop the \n from $_.
  20.  
  21. Ta
  22.  
  23. John E.
  24.