Commit | Line | Data |
378cc40b |
1 | #!/usr/bin/perl |
2 | |
79072805 |
3 | # $RCSfile: ged,v $$Revision: 4.1 $$Date: 92/08/07 17:20:18 $ |
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"; |