home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / perl / 5433 < prev    next >
Encoding:
Internet Message Format  |  1992-08-22  |  1.9 KB
  1. Path: sparky!uunet!elroy.jpl.nasa.gov!usc!news!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: Filename expansion ("~user")
  5. Message-ID: <1992Aug22.193816.15011@netlabs.com>
  6. Date: 22 Aug 92 19:38:16 GMT
  7. References: <1992Aug20.153727.167@cbnews.cb.att.com> <MERLYN.92Aug21092257@romulus.reed.edu>
  8. Sender: news@netlabs.com
  9. Distribution: usa
  10. Organization: NetLabs, Inc.
  11. Lines: 41
  12. Nntp-Posting-Host: scalpel.netlabs.com
  13.  
  14. In article <MERLYN.92Aug21092257@romulus.reed.edu> merlyn@romulus.reed.edu (Randal L. Schwartz) writes:
  15. : Fetching the home directory is easy enough though:
  16. : 
  17. :     $file = "~merlyn/.newsrc";
  18. :     $file =~ s#^~([a-z0-9]+)(/.*)?$#(getpwnam($1))[7].$2#e;
  19. : 
  20. : 
  21. : (If you mess with $[, you deserve what you get. :-)
  22.  
  23. And if you don't check for error conditions, you don't get what you deserve.
  24.  
  25.      $file =~ s#^(~([a-z0-9]+))(/.*)?$#((getpwnam($2))[7]||$1).$3#e;
  26.  
  27. This spits out ~merlyn/.newsrc rather than /.newsrc if merlyn isn't a
  28. user on your box.  Then you at least get a more reasonable error
  29. message when the open fails.
  30.  
  31. Also, [a-z0-9]+ is a bit too restrictive on login names--it's not our
  32. program's responsibility to enforce anything other than the absence of
  33. a slash.  What are we supposed to do if someone types "~phi-phi/.newsrc",
  34. and the login file contains
  35.  
  36. phi-phi:LVuNVXgSiJkN2:128:17:Phi-Phi the Poodle:/home/dogs/phi-phi:/bin/csh
  37.  
  38. I'd probably write it like this:    
  39.  
  40.     $USER = $ENV{USER} || $ENV{LOGNAME} || getlogin || (getpwnam($<))[0];
  41.     ...
  42.     $file =~ s#^[^/]*#$user#
  43.     if $file =~ m#^~([^/]*)# && ($user = $1 ? (getpwnam($1))[7] : $USER);
  44.  
  45. I'd probably make that into a subroutine.  Alternately, if I know I'm
  46. going to be using this only on machines with csh, and I don't care about
  47. the cost of starting up a csh, I'd just say
  48.  
  49.     $file = < $file > if $file =~ /^~/;
  50.  
  51. Perl does globs using csh by preference (though it prefers /bin/sh for
  52. everything else).
  53.  
  54. Larry
  55.