perl 5.0 alpha 2
[perl.git] / gettest
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