diff options
Diffstat (limited to 'gnu/usr.bin/perl/eg/g/ged')
-rw-r--r-- | gnu/usr.bin/perl/eg/g/ged | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/eg/g/ged b/gnu/usr.bin/perl/eg/g/ged new file mode 100644 index 0000000..d296a84 --- /dev/null +++ b/gnu/usr.bin/perl/eg/g/ged @@ -0,0 +1,21 @@ +#!/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"; |