程嶏清单 17-1.txt

< linux网络编程工具>>配套源码

程序清单17-1：proto.pl
#!/usr/bin/perl
#
# List all the protocols in this machine
#
setprotoent(1);
while (($name, $aliases, $protonum) = getprotoent) {
         print " Name=$name, Aliases=$aliases, Protocol=$protonum \n";
}
endprotoent;