📄 程嶏清单 17-2.txt
字号:
程序清单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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -