home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / perl / 5299 < prev    next >
Encoding:
Text File  |  1992-08-13  |  1.7 KB  |  64 lines
  1. Newsgroups: comp.lang.perl
  2. Path: sparky!uunet!gumby!destroyer!ubc-cs!unixg.ubc.ca!news
  3. From: andy@orchid.bdc.ubc.ca (Andrew Dwelly)
  4. Subject: Re: Arrays of filehandles
  5. Message-ID: <1992Aug13.164605.10760@unixg.ubc.ca>
  6. Sender: news@unixg.ubc.ca (Usenet News Maintenance)
  7. Nntp-Posting-Host: orchid.bdc.ubc.ca
  8. Organization: University of British Columbia, Vancouver, B.C., Canada
  9. References: <1992Aug13.145758.14449@news.uit.no>
  10. Date: Thu, 13 Aug 1992 16:46:05 GMT
  11. Lines: 51
  12.  
  13. In article <1992Aug13.145758.14449@news.uit.no> tomg@stud.cs.uit.no (Tom  
  14. Grydeland) writes:
  15.  
  16. Stuff deleted
  17.  
  18. > The `@' in `@this[$that]' tells perl that you're refering to an array  
  19. value,
  20. > i.e the array slice with one value, $this[$that].
  21. > 
  22. > The first `$' in $this[$that]' tells perl that you're refering to a  
  23. scalar
  24. > value.
  25. > 
  26. > thus:   @this[$that] == ($this[$that])
  27. > 
  28. > 
  29.  
  30. Thanks for clearing up my confusion Tom, but surely this means that 
  31. given a file of data "one", the following piece of code should just
  32. echo it ....
  33.  
  34. #!/local/bin/perl
  35.  
  36. open($a[0],"<one");
  37. while (<$a[0]>)
  38. {
  39.     print;
  40. }
  41.  
  42. Which fails to work.
  43. whereas, in perl 4.035 under SunOS 4.1.2, the best I've been able to
  44. come up with is ....
  45.  
  46. #!/local/bin/perl
  47.  
  48. open(scalar($a[0]),"<one");
  49. $foobar = $a[0];
  50. while (<$foobar>)
  51. {
  52.     print;
  53. }
  54.  
  55. That is, not only must the array be made explicitly scalar during the  
  56. assignment of the file handle, but also it must be assigned to
  57. an ordinary scalar before use in angle brackets (I suspect this is because 
  58. perl defines <scalar($a[0])> as a syntactic no-no).
  59.  
  60. The second version works, but is rather inelegant. Is there any way it can  
  61. be improved to remove the superfluous $foobar ?
  62.  
  63. Andy Dwelly (andy@bcu.ubc.ca)
  64.