home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _fb80044209842df3a13e99aa578b629f < prev    next >
Text File  |  2000-03-15  |  448b  |  22 lines
  1. #!/usr/bin/perl
  2.  
  3. # $RCSfile: ged,v $$Revision: 4.1 $$Date: 92/08/07 17:20:18 $
  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";
  22.