Commit | Line | Data |
---|---|---|
378cc40b | 1 | #!/usr/bin/perl |
2 | ||
a687059c | 3 | # $Header: ged,v 3.0 89/10/18 15:14:22 lwall Locked $ |
378cc40b | 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"; |