Replaces a string within multiple files specified on the command line #perl

replace_text

#!/usr/bin/perl
#
# Replaces a string within multiple files
# specified on the command line

$mv = '/bin/mv';

$tmp = '/tmp';

$op = shift || die("Usage: $0 perlexpr [filenames]\n");

if (!@ARGV) {
  @ARGV = <STDIN>;
  chop(@ARGV);
}

foreach $file (@ARGV) {
  if (!-f $file) {
       print "Skipping non-regular file: $file\n";
       next;
  }
  if (-B $file) {
       print "Skipping binary file: $file\n";
       next;
  }

  $outfile = "$tmp/$file.$$";

  open(FILE, $file) ||
       die("Couldn't open $file: $!\n");
  undef $/;
  $_ = <FILE>;
  close(FILE);

  if (eval $op) {
    system("mkdir -p $outfile");
    system("rm -r $outfile");
    open(OFILE, "> $outfile") ||
        die("Couldn't open $outfile: $!\n");
    print OFILE;
    close(OFILE);

    system($mv, '-f', $file, "$file.bak");
    system($mv, '-f', $outfile, $file);

    print "File changed: $file\n";
  }
  else {
    print "No change to file: $file\n";
  }
}

exit(0);