suball.pl

   1 #!/usr/bin/perl -w
   2
   3 my $sub_src = shift;
   4 my $sub_dst = shift;
   5
   6 #####################################################################
   7 # write a string into a file
   8 sub FileSave($$)
   9 {
  10     my($filename) = shift;
  11     my($v) = shift;
  12     local(*FILE);
  13     open(FILE, ">$filename") || die "can't open $filename";
  14     print FILE $v;
  15     close(FILE);
  16 }
  17
  18 while (my $fname = shift) {
  19         my $src = `cat $fname`;
  20         my $replace = 0;
  21
  22         while ((my $idx = index($src, $sub_src)) != -1) {
  23                 substr $src, $idx, length($sub_src), $sub_dst;
  24                 $replace = 1;
  25         }
  26         if ($replace) {
  27                 print "Replacing $sub_src with $sub_dst in $fname\n";
  28                 FileSave($fname, $src);
  29         }
  30 }