程嶏清单 17-2.txt

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

程序清单17-2：serve.pl
#!/usr/bin/perl
setservent(1);
printf "%15s %15s %4s %15s\n",
     "Name","Aliases","Port","Protocol"; 
while(($nm,$al,$pt,$pr) = getservent) 
{
        # print "Name=$nm, Aliases=$al, Port=$pt, $Protocol=$pr\n";
     printf "%15s %15s %4d %15s\n", $nm,$al,$pt,$pr;
     }
endservent;
#end of this program