习鞘3-3.txt

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

@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);