程嶏清单8-12.txt

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

@list = (1, '-', undef, 10, undef, ',', 20);
print @list,"\n";
$string = join('**',@list);
print $string;