batch-update

   1 #!/usr/bin/perl
   2
   3 foreach $file (@ARGV)
   4 {
   5     open(IN,$file) || die "Can not open $file";
   6     open(OUT,"> /tmp/upd.$$") || die "Can not open /tmp/upd.$$";
   7     while (<IN>) {
   8         if (/Copyright \(C\) 1983-2000 Kevin Rosenberg/) {
   9             print OUT '**  Copyright (C) 1983-2000 Kevin Rosenberg
  10 **
  11 **  $Id: batch-update,v 1.1 2000/04/28 13:02:43 kevin Exp $
  12 **  $Log: batch-update,v $
  13 **  Revision 1.1  2000/04/28 13:02:43  kevin
  14 **  Initial revision
  15 **
  16 ';
  17         } else {
  18             print OUT $_;
  19         }
  20     }
  21     close(IN);
  22     close(OUT);
  23     unlink($file);
  24     `mv /tmp/upd.$$ $file`;
  25 }
  26