[p5sagit/p5-mst-13.2.git] / eg / g / ged

#!/usr/bin/perl

# $Header: ged,v 4.0 91/03/20 01:10:22 lwall Locked $

# 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";
Commit	Line	Data
378cc40b	1	#!/usr/bin/perl
378cc40b	2
fe14fcc3	3	# $Header: ged,v 4.0 91/03/20 01:10: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";