22 lines
459 B
Perl
22 lines
459 B
Perl
#!/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 <perlcmds\n" unless $files;
|
|
|
|
exec "gsh", $class, "-d", "perl -pi.bak - $files";
|
|
|
|
die "Couldn't execute gsh for some reason, stopped";
|