home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / unix / question / 10694 < prev    next >
Encoding:
Text File  |  1992-09-03  |  1.8 KB  |  56 lines
  1. Newsgroups: comp.unix.questions
  2. Path: sparky!uunet!nwnexus!Celestial.COM!bill
  3. From: bill@Celestial.COM (Bill Campbell)
  4. Subject: Re: need script to rename uppercase filenames
  5. Organization: Celestial Software, Mercer Island, WA
  6. Date: Thu, 03 Sep 1992 15:12:45 GMT
  7. Message-ID: <1992Sep03.151245.11128@Celestial.COM>
  8. References: <699@svcs1.UUCP>
  9. Keywords: script,tar,msdos
  10. Lines: 44
  11.  
  12. In <699@svcs1.UUCP> slix@svcs1.UUCP (Bill Miller) writes:
  13.  
  14. >Hi, everyone.
  15.  
  16. >I'm fairly new to unix, and I need a script or procedure to do the following:
  17. > 
  18. >I have some source code in DOS (many separate files) that I tarred under
  19. >DOS and untarred under 386BSD.  The big problem is that all the files
  20. >came through in UPPERCASE and I need a script to mv (rename) them all
  21. >to lowercase quickly.
  22. > 
  23. >Since they're in DOS text format, I realize I also need to strip the 
  24. >extra carriage returns on each line.  I've been successful in doing this
  25. >with:
  26. > 
  27. >  cat (file) | tr -d '\015' > (newfile)
  28. > 
  29. >It would be nice to combine both of these so that I could rename the
  30. >files to uppercase and strip the extra newlines all in one fell swoop
  31. >instead of doing it one file at a time.
  32.  
  33. A simple perl solution (needs more error checking):
  34.  
  35. for $dos ( @ARGV ) {
  36.     ( $unix = $dos ) =~ tr/A-Z/a-z/;    # convert to lower case
  37.     if ( -f $unix ) {
  38.         print STDERR "Cannot convert $dos -- $unix exists\n";
  39.         next;
  40.     }
  41.     open(DOS, $dos);
  42.     open(UNIX, "> $unix");
  43.     while (<DOS>) {
  44.         s/\s+$//;   # strip all trailing whitespace including ^M
  45.         print UNIX;
  46.     }
  47.     close(DOS);
  48.     unlink($dos); # remove old dos file
  49.     close(UNIX);
  50. }
  51. -- 
  52. INTERNET:  bill@Celestial.COM   Bill Campbell; Celestial Software
  53. UUCP:   ...!thebes!camco!bill   6641 East Mercer Way
  54.              uunet!camco!bill   Mercer Island, WA 98040; (206) 947-5591
  55. SPEED COSTS MONEY -- HOW FAST DO YOU WANT TO GO?
  56.