程嶏清单8-12.txt

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

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