[p5sagit/p5-mst-13.2.git] / gettest

#!./perl

    while (($name,$aliases,$addrtype,$length,@addrs) = gethostent) {
	print $name,' ',$aliases,
	  sprintf(" %d.%d.%d.%d\n",unpack('CCCC',$addrs[0]));
	last if $i++ > 50;
    }
    <stdin>;
    while (($name,$aliases,$addrtype,$net) = getnetent) {
	print "$name $aliases $addrtype ",sprintf("%08lx",$net),"\n";
    }
    <stdin>;
    while (($name,$aliases,$proto) = getprotoent) {
	print "$name $aliases $proto\n";
    }
    <stdin>;
    while (($name,$aliases,$port,$proto) = getservent) {
	print "$name $aliases $port $proto\n";
    }
Commit	Line	Data
a687059c	1	#!./perl
	2
	3	while (($name,$aliases,$addrtype,$length,@addrs) = gethostent) {
	4	print $name,' ',$aliases,
	5	sprintf(" %d.%d.%d.%d\n",unpack('CCCC',$addrs[0]));
	6	last if $i++ > 50;
	7	}
	8	<stdin>;
	9	while (($name,$aliases,$addrtype,$net) = getnetent) {
	10	print "$name $aliases $addrtype ",sprintf("%08lx",$net),"\n";
	11	}
	12	<stdin>;
	13	while (($name,$aliases,$proto) = getprotoent) {
	14	print "$name $aliases $proto\n";
	15	}
	16	<stdin>;
	17	while (($name,$aliases,$port,$proto) = getservent) {
	18	print "$name $aliases $port $proto\n";
	19	}
	20