contrib/perl5/eg/g/ged

   1 #!/usr/bin/perl
   2
   3 # $RCSfile: ged,v $$Revision: 4.1 $$Date: 92/08/07 17:20:18 $
   4
   5 # Does inplace edits on a set of files on a set of machines.
   6 #
   7 # Typical invokation:
   8 #
   9 #       ged vax+sun /etc/passwd
  10 #       s/Freddy/Freddie/;
  11 #       ^D
  12 #
  13
  14 $class = shift;
  15 $files = join(' ',@ARGV);
  16
  17 die "Usage: ged class files <perlcmds\n" unless $files;
  18
  19 exec "gsh", $class, "-d", "perl -pi.bak - $files";
  20
  21 die "Couldn't execute gsh for some reason, stopped";