#!/usr/bin/perl # $Header: /home/cvs/386BSD/ports/lang/perl/eg/g/ged,v 1.1.1.1 1993/08/23 21:29:44 nate Exp $ # Does inplace edits on a set of files on a set of machines. # # Typical invokation: # # ged vax+sun /etc/passwd # s/Freddy/Freddie/; # ^D # $class = shift; $files = join(' ',@ARGV); die "Usage: ged class files