习鞘3-3.txt

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

@home = ("couch ", "chair ", "table ", "stove ");
print @home,"\n";
($potato, $lift, $tennis, $pipe) = @home;
print ($potato, $lift, $tennis, $pipe, "\n");
($potato, $lift) = ($lift ,$potato);
print ($potato, $lift, $tennis, $pipe);