![](https://img-blog.csdnimg.cn/20201014180756916.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Perl
lvgaojian
对软件开发有深厚的兴趣
展开
-
Perl中变量值交换
示例: $a = 1; $b = 2; print $a; ($a, $b) = ($b, $a); print $a;原创 2019-12-23 17:05:42 · 309 阅读 · 0 评论 -
Perl知识点滴
# 函数多返回值 $v1 = 'abc'; $v2 = 'bcd'; ($v3, $v4) = upcase($v1, $v2); sub upcase{ my @parms = @_; for (@parms) { tr/a-z/A-Z/ } return wantarray ? @parms : $parms[0]; } print $v3, $v4;原创 2016-12-19 20:14:26 · 209 阅读 · 0 评论