home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2261 < prev    next >
Internet Message Format  |  1990-12-28  |  4KB
  1. From: tchrist@convex.COM (Tom Christiansen)
  2. Newsgroups: alt.sources
  3. Subject: Re: Neat utility to convert uppercase filenames
  4. Message-ID: <110395@convex.convex.com>
  5. Date: 11 Dec 90 16:04:48 GMT
  6.  
  7. In article <2797@cirrusl.UUCP> dhesi%cirrusl@oliveb.ATC.olivetti.com (Rahul Dhesi) writes:
  8. :I think all the programs posted so far have the bug that if you have
  9. :files called "x" and "X", they will delete one of them.  
  10. :Doesn't disturb files whose names already contain any lowercase
  11. :characters (thus preserving names like "Makefile"), and even has online
  12. :help!  Not shar'd, cut out and use.
  13.  
  14. This is not a bug -- it's a feature.  Anyway, I've added a -i flag to
  15. lwall's rename script to emulate mv's behavior (although I don't believe
  16. in exiting !0 just because you said 'n'.).
  17.  
  18. And this one is as self-documenting as they can come. :-)
  19.  
  20. Again, this is a *generic* filename munging tool.  It'll do anything you
  21. could ever want to the filename, not just what you've thought of today.
  22. The "leave Makefiles alone" isn't special cased in, but see the examples.
  23.  
  24. Again, not sharred, even if it kinda looks like it.  Perl magic, you know.
  25.  
  26. --tom
  27.  
  28. #!/usr/bin/perl
  29. 'di';
  30. 'ig00';
  31. #
  32. # $Header: rename,v 3.0.1.2 90/08/09 03:17:57 lwall Locked $
  33. #
  34. # $Log:    rename,v $
  35. # Revision 3.0.1.2  90/08/09  03:17:57  lwall
  36. # patch19: added man page for relink and rename
  37. # 
  38.  
  39. if ($ARGV[0] eq '-i') {
  40.     shift;
  41.     if (open(TTYIN, "</dev/tty") && open(TTYOUT,">/dev/tty")) {
  42.     $inspect++;
  43.     select((select(TTYOUT),$|=1)[0]);
  44.     } 
  45. }
  46. ($op = shift) || die "Usage: rename [-i] perlexpr [filenames]\n";
  47. if (!@ARGV) {
  48.     @ARGV = <STDIN>;
  49.     chop(@ARGV);
  50. }
  51. for (@ARGV) {
  52.     unless (-e) {
  53.     print STDERR "$0: $_: $!\n";
  54.     $status = 1;
  55.     next;
  56.     } 
  57.     $was = $_;
  58.     eval $op;
  59.     die $@ if $@;
  60.     if ($was ne $_) {
  61.     if ($inspect && -e) {
  62.         print TTYOUT "remove $_? ";
  63.         next unless <TTYIN> =~ /^y/i;
  64.     } 
  65.     unless (rename($was, $_)) {
  66.         print STDERR "$0: can't rename $was to $_: $!\n";
  67.         $status = 1;
  68.     }
  69.     } 
  70. }
  71. exit $status;
  72. ##############################################################################
  73.  
  74.     # These next few lines are legal in both Perl and nroff.
  75.  
  76. .00;            # finish .ig
  77.  
  78. 'di            \" finish diversion--previous line must be blank
  79. .nr nl 0-1        \" fake up transition to first page again
  80. .nr % 0            \" start at page 1
  81. ';<<'.ex'; #__END__ ############# From here on it's a standard manual page ############
  82. .TH RENAME 1 "July 30, 1990"
  83. .AT 3
  84. .SH NAME
  85. rename \- renames multiple files
  86. .SH SYNOPSIS
  87. .B rename [-i] perlexpr [files]
  88. .SH DESCRIPTION
  89. .I Rename
  90. renames the filenames supplied according to the rule specified as the
  91. first argument.
  92. The argument is a Perl expression which is expected to modify the $_
  93. string in Perl for at least some of the filenames specified.
  94. If a given filename is not modified by the expression, it will not be
  95. renamed.
  96. If no filenames are given on the command line, filenames will be read
  97. via standard input.
  98. .PP
  99. The 
  100. .B \-i
  101. flag will prompt to remove the old file first if it exists.  This
  102. flag will be ignored if there is no tty.
  103. .PP
  104. For example, to rename all files matching *.bak to strip the extension,
  105. you might say
  106. .nf
  107.  
  108.     rename 's/\e.bak$//' *.bak
  109.  
  110. .fi
  111. To translate uppercase names to lower, you'd use
  112. .nf
  113.  
  114.     rename 'y/A-Z/a-z/' *
  115.  
  116. .fi
  117. To do the same thing but leave Makefiles unharmed:
  118. .nf
  119.  
  120.     rename 'y/A-Z/a-z/ unless /^Make/' *
  121.  
  122. .fi
  123. To rename all the *.f files to *.BAD, you'd use
  124. .nf
  125.  
  126.     rename 's/\e.f$/.BAD/' *.f
  127.  
  128. .SH ENVIRONMENT
  129. .fi
  130. No environment variables are used.
  131. .SH FILES
  132. .SH AUTHOR
  133. Larry Wall
  134. .SH "SEE ALSO"
  135. mv(1)
  136. .br
  137. perl(1)
  138. .SH DIAGNOSTICS
  139. If you give an invalid Perl expression you'll get a syntax error.
  140. .SH BUGS
  141. .I Rename
  142. does not check for the existence of target filenames, so use with care.
  143. .ex
  144. --
  145. Tom Christiansen        tchrist@convex.com    convex!tchrist
  146. "With a kernel dive, all things are possible, but it sure makes it hard
  147.  to look at yourself in the mirror the next morning."  -me
  148.