3 # $RCSfile: ged,v $$Revision: 4.1 $$Date: 92/08/07 17:20:18 $
5 # Does inplace edits on a set of files on a set of machines.
9 # ged vax+sun /etc/passwd
15 $files = join(' ',@ARGV);
17 die "Usage: ged class files <perlcmds\n" unless $files;
19 exec "gsh", $class, "-d", "perl -pi.bak - $files";
21 die "Couldn't execute gsh for some reason, stopped";