摘要: perl中的引用和C中的指针一样,用"\"标识,引用后可使用符号“->”取值。解引用则在对应的数据类型前加$,@ 或%。 这里这里用两数组求和做示例,引用传递的子函数的用法。 1 use strict; 2 3 my @s1=(1,13,4,25,6,27,8,22); 4 my @s2=(11,2 阅读全文
posted @ 2020-11-20 15:42 天使不设防 阅读(594) 评论(0) 推荐(0) 编辑
摘要: 1 #!/usr/bin/perl -w 2 use strict; 3 use FindBin qw($Bin $Script); 4 5 my $rp=$Bin; 6 print "the script dir:$rp\nscript name:$Script\n"; 7 8 use Cwd q 阅读全文
posted @ 2020-11-20 11:34 天使不设防 阅读(172) 评论(0) 推荐(0) 编辑