scripts/files/change_prefix.pl

   1 #!/usr/bin/perl
   2
   3 ##############
   4 #  Name   : change_prefix
   5 #  Author : Chris Koeritz
   6 #  Rights : Copyright (C) 2002-$now by Author
   7 ##############
   8 #  Purpose:
   9 #    Replaces all of the matching first portions of files in the current
  10 #  directory with a different chunk.  The first parameter should be the old
  11 #  prefix and the second parameter should be the new prefix.
  12 ##############
  13 #  This script is free software; you can redistribute it and/or modify it
  14 #  under the terms of the GNU General Public License as published by the Free
  15 #  Software Foundation; either version 2 of the License or (at your option)
  16 #  any later version.  See "http://www.fsf.org/copyleft/gpl.html" for a copy
  17 #  of the License online.  Please send any updates to "fred@gruntose.com".
  18 ##############
  19
  20 require "filename_helper.pl";
  21
  22 local($first) = $ARGV[0];
  23 local($second) = $ARGV[1];
  24
  25 #print "parms are: $first and $second \n";
  26
  27 if ( !length($first) || !length($second) ) {
  28   print "change_prefix: requires two parameters--the old prefix to look for in this\n";
  29   print "directory and the new prefix to replace the old suffix with.\n";
  30   exit 0;
  31 }
  32
  33 foreach $filename (&glob_list("./$first*")) {
  34   local $new_name = $filename;
  35   $new_name =~ s/$first/$second/g;
  36 #print "old name $filename\n";
  37 #print "new name will be $new_name\n";
  38   system("mv \"$filename\" \"$new_name\"");
  39 }
  40
  41