home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / unix / question / 10742 < prev    next >
Encoding:
Internet Message Format  |  1992-09-07  |  1.4 KB
  1. Path: sparky!uunet!gumby!wmichgw!x91clifton1
  2. From: x91clifton1@gw.wmich.edu
  3. Newsgroups: comp.unix.questions
  4. Subject: Re: need script to rename uppercase filenames
  5. Message-ID: <1992Sep4.162344.5138@gw.wmich.edu>
  6. Date: 4 Sep 92 16:23:44 EST
  7. References: <699@svcs1.UUCP> <1992Sep03.151245.11128@Celestial.COM> <1992Sep4.162044.2242@netlabs.com>
  8. Organization: Western Michigan University
  9. Lines: 31
  10.  
  11. In article <1992Sep4.162044.2242@netlabs.com>, lwall@netlabs.com (Larry Wall) writes:
  12. > In article <1992Sep03.151245.11128@Celestial.COM> bill@Celestial.COM (Bill Campbell) writes:
  13. > :         s/\s+$//;   # strip all trailing whitespace including ^M
  14. > 
  15. > Unfortunately, that also deletes the ^J.  Since the script unlinks the
  16. > DOS file, you've just thrown away information that's not easily
  17. > reconstructable.  (In fact, the files won't even be editable unless you
  18. > use GNU emacs.)  It would be safer to move the DOS file to a temporary
  19. > subdirectory until you're sure the translation works right.
  20. > 
  21. > I don't want to discourage anyone from helping people, but help is not
  22. > what booby traps are generally construed as...  :-)
  23. > 
  24. > Larry Wall
  25. > lwall@netlabs.com
  26.  
  27. Since this post is from Larry Wall how about:
  28.  
  29. #!/usr/local/bin/perl
  30. # lwr--change uppercase filenames to lowercase.
  31.  
  32. foreach $upr (@ARGV)    {
  33.         ($lwr = $upr) =~ y/A-Z/a-z/;
  34.         rename($upr, $lwr) || die "lwr: $upr->$lwr: $!\n";
  35. }
  36.  
  37. ;-)
  38.  
  39. /Doug
  40. --
  41. Douglas Clifton [99clifto@lab.cc.wmich.edu]
  42.