[unix-history] / usr / src / contrib / isode / others / ntp / extract.pl

#!/usr/bin/perl
#
# $Source: /f/osi/others/ntp/RCS/extract.pl,v $ $Revision: 7.1 $ $Date: 91/02/22 09:33:38 $
#
$HOST = '10.2.0.96';
if ($#ARGV != 0) {
	die "Must specify internet address of host.";
}
$HOST = $ARGV[1];
while(<stdin>) {
	if(/^host: $HOST/) {
		s/host: //;
		s/\(/ /g;
		s/\)/ /g;
		s/:/ /g;
		@A = split(' ');
		print $A[3],"\n";
	 }
}
Commit	Line	Data
9e8e5516 C	1	#!/usr/bin/perl
	2	#
	3	# $Source: /f/osi/others/ntp/RCS/extract.pl,v $ $Revision: 7.1 $ $Date: 91/02/22 09:33:38 $
	4	#
	5	$HOST = '10.2.0.96';
	6	if ($#ARGV != 0) {
	7	die "Must specify internet address of host.";
	8	}
	9	$HOST = $ARGV[1];
	10	while(<stdin>) {
	11	if(/^host: $HOST/) {
	12	s/host: //;
	13	s/\(/ /g;
	14	s/\)/ /g;
	15	s/:/ /g;
	16	@A = split(' ');
	17	print $A[3],"\n";
	18	}
	19	}