程嶏清单9-7.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 9 行

sub func ($) {
    my $n = shift;
    print "you gave me $n\n";
}
func @foo;                  
func split /:/;             
func "a", "b", "c";         
func("a", "b", "c");