程嶏清单9-7.txt

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

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