home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / tutorial / eg / rename < prev    next >
Encoding:
Text File  |  1990-12-17  |  2.5 KB  |  117 lines
  1. #!/usr/bin/perl
  2. 'di';
  3. 'ig00';
  4. #
  5. # $Header: rename,v 3.0.1.2 90/08/09 03:17:57 lwall Locked $
  6. #
  7. # $Log:    rename,v $
  8. # Revision 3.0.1.2  90/08/09  03:17:57  lwall
  9. # patch19: added man page for relink and rename
  10. # 
  11.  
  12. if ($ARGV[0] eq '-i') {
  13.     shift;
  14.     if (open(TTYIN, "</dev/tty") && open(TTYOUT,">/dev/tty")) {
  15.     $inspect++;
  16.     select((select(TTYOUT),$|=1)[0]);
  17.     } 
  18. }
  19. ($op = shift) || die "Usage: rename [-i] perlexpr [filenames]\n";
  20. if (!@ARGV) {
  21.     @ARGV = <STDIN>;
  22.     chop(@ARGV);
  23. }
  24. for (@ARGV) {
  25.     unless (-e) {
  26.     print STDERR "$0: $_: $!\n";
  27.     $status = 1;
  28.     next;
  29.     } 
  30.     $was = $_;
  31.     eval $op;
  32.     die $@ if $@;
  33.     if ($was ne $_) {
  34.     if ($inspect && -e) {
  35.         print TTYOUT "remove $_? ";
  36.         next unless <TTYIN> =~ /^y/i;
  37.     } 
  38.     unless (rename($was, $_)) {
  39.         print STDERR "$0: can't rename $was to $_: $!\n";
  40.         $status = 1;
  41.     }
  42.     } 
  43. }
  44. exit $status;
  45. ##############################################################################
  46.  
  47.     # These next few lines are legal in both Perl and nroff.
  48.  
  49. .00;            # finish .ig
  50.  
  51. 'di            \" finish diversion--previous line must be blank
  52. .nr nl 0-1        \" fake up transition to first page again
  53. .nr % 0            \" start at page 1
  54. ';<<'.ex'; #__END__ ############# From here on it's a standard manual page ############
  55. .TH RENAME 1 "July 30, 1990"
  56. .AT 3
  57. .SH NAME
  58. rename \- renames multiple files
  59. .SH SYNOPSIS
  60. .B rename [-i] perlexpr [files]
  61. .SH DESCRIPTION
  62. .I Rename
  63. renames the filenames supplied according to the rule specified as the
  64. first argument.
  65. The argument is a Perl expression which is expected to modify the $_
  66. string in Perl for at least some of the filenames specified.
  67. If a given filename is not modified by the expression, it will not be
  68. renamed.
  69. If no filenames are given on the command line, filenames will be read
  70. via standard input.
  71. .PP
  72. The 
  73. .B \-i
  74. flag will prompt to remove the old file first if it exists.  This
  75. flag will be ignored if there is no tty.
  76. .PP
  77. For example, to rename all files matching *.bak to strip the extension,
  78. you might say
  79. .nf
  80.  
  81.     rename 's/\e.bak$//' *.bak
  82.  
  83. .fi
  84. To translate uppercase names to lower, you'd use
  85. .nf
  86.  
  87.     rename 'y/A-Z/a-z/' *
  88.  
  89. .fi
  90. To do the same thing but leave Makefiles unharmed:
  91. .nf
  92.  
  93.     rename 'y/A-Z/a-z/ unless /^Make/' *
  94.  
  95. .fi
  96. To rename all the *.f files to *.BAD, you'd use
  97. .nf
  98.  
  99.     rename 's/\e.f$/.BAD/' *.f
  100.  
  101. .SH ENVIRONMENT
  102. .fi
  103. No environment variables are used.
  104. .SH FILES
  105. .SH AUTHOR
  106. Larry Wall
  107. .SH "SEE ALSO"
  108. mv(1)
  109. .br
  110. perl(1)
  111. .SH DIAGNOSTICS
  112. If you give an invalid Perl expression you'll get a syntax error.
  113. .SH BUGS
  114. .I Rename
  115. does not check for the existence of target filenames, so use with care.
  116. .ex
  117.