perl 传递数组作为参数

#perl

#\ ,取地址

sub array

{

     my ($arr1,$arr2) = @_ ;

     print "@$arr1 : @$arr2";

}

sub array_val

{

    my ($arr1,$val) = @_ ;

    print "@$arr1 : $val";

}

sub main

{

    my @array1 = qw/test test test/ ;

    my @array2 = qw/test1 test1 test1/ ; 

    my $val = 0;

    &array(\@array1,\@array2); 

    &array_val(\@array1, $val);

}

&main()


<script>window._bd_share_config={"common":{"bdSnsKey":{},"bdText":"","bdMini":"2","bdMiniList":false,"bdPic":"","bdStyle":"0","bdSize":"16"},"share":{}};with(document)0[(getElementsByTagName('head')[0]||body).appendChild(createElement('script')).src='http://bdimg.share.baidu.com/static/api/js/share.js?v=89860593.js?cdnversion='+~(-new Date()/36e5)];</script>

阅读(307) | 评论(0) | 转发(0) |

0
上一篇：EDID(Extended display identification data)

下一篇：perl数组的长度与元素个数

相关热门文章
Android之开发环境搭建

Android自定义View的实现...

AndroidManifest.xml配置文件...

Android相对布局+圆角按钮+Sha...

查看Android应用包名package和...

linux dhcp peizhi roc

关于Unix文件的软链接

求教这个命令什么意思，我是新...

sed -e "/grep/d" 是什么意思...

谁能够帮我解决LINUX 2.6 10...

给主人留下些什么吧！~~

评论热议