home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / perl / 4915 < prev    next >
Encoding:
Internet Message Format  |  1992-07-23  |  1.2 KB
  1. Path: sparky!uunet!cs.utexas.edu!sun-barr!ames!elroy.jpl.nasa.gov!sdd.hp.com!uakari.primate.wisc.edu!zaphod.mps.ohio-state.edu!news.acns.nwu.edu!network.ucsd.edu!nic!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: *Another* embarrassingly simple question
  5. Message-ID: <1992Jul23.190259.9652@netlabs.com>
  6. Date: 23 Jul 92 19:02:59 GMT
  7. References: <21982@venera.isi.edu>
  8. Sender: news@netlabs.com
  9. Organization: NetLabs, Inc.
  10. Lines: 39
  11. Nntp-Posting-Host: scalpel.netlabs.com
  12.  
  13. In article <21982@venera.isi.edu> sondeen@isi.edu (Jeff Sondeen) writes:
  14. : By the way, I found some type of problem tring to use vec's.
  15. : 
  16. :     #! /local/bin/perl
  17. :     
  18. :     $num = 5;
  19. :     for $bits (1..20) {
  20. :         vec($numv, 0, $bits) = $num;
  21. :         @num = reverse(split(//,unpack("b$bits", $numv)));
  22. :         $line = join('',@num);
  23. :         print "$line\n";
  24. :     }
  25. : 
  26. : gives:
  27. : 
  28. : 1
  29. : 01
  30. : 101
  31. : 0101
  32. : 00101
  33. : 000101
  34. : 0000101
  35. : 00000101
  36. : 000000101
  37. : 0000000101
  38. : 00000000101
  39. : 000000000101
  40. : 0000000000101
  41. : 00000000000101
  42. : 000000000000101
  43. : 0000010100000000    ## what happend here????
  44. : 00000010100000000
  45. : 000000010100000000
  46. : 0000000010100000000
  47. : 00000000010100000000
  48.  
  49. vec() is only intended to work with $bits of 1, 2, 4, 8, 16, or 32.
  50.  
  51. Larry
  52.