例如@arr=([1,2,3],[4,5,6],[7,8,9]); 希望取得其中匿名数组的长度，需要如何实现呢？ 我尝试@len=$arr[1];进行赋值，但是效果和$xyz=$arr[1]是一样的？

大家好，我有这样的一个问题！想请教，如果不明白我的意思的话，请QQ：251546505 联系我！ 下面是一个文本文件 我想对他进行排序 #字母C后面表示直径 0.3,如果最后面的尾数是1的，表示槽; 尾数是0的表示孔 %后面的T01到T02之间的坐标是T01的坐标， T02到T03之间的坐标是T02的坐标， T03到T04之间的坐标是T03的坐标 依次内催， 排列规则：要把C3.175排在最前面即T01C3.175，3.175对应的坐标也要排在最前面 接着要排...

本帖最后由 brantc 于 2013-05-22 14:55 编辑 其实小弟很少用perl，但是用起来的时候又抓狂，所以空的时候就想攒点小抄，cheat sheet。 最近看Programming perl，俗称大骆驼，看到数据结构那章简直震惊了。。。。。看不下去了。。。。必须练！ 所以就自己想着办法练了下面的代码，用了两个半天的时间，先想可能用到的形式，然后自己想办法完成生成、引用、打印。。。。 开始觉得有点无聊，但是真的只有练了你才晓得价值！因为再...

不知perl中类似C语言的那种二位数组怎么使用？ 例如： 1 1 1 1 1 1 1 0 a a a 1 1 1 1 1 1 1 0 a a a 1 1 1 1 1 想输出某一列的某一行的那个数应该怎么像C那样使用，直接的那种引用数组好像不可以啊！ 求教！！

如下格式一个文本文件： 1 3 2 3 3 34 - 34 + 34 sf 34 s2 34 999 34 现在我要匹配第一列的所有数字并打印，做了如下perl脚本： （1） #!/usr/bin/perl -w open (FH,'<',"test.txt"); while(){ my @t=split(/ /,$_); my $v=$t[0] if($t[0]=~/^[\d]+$/); print $v; print "\n"; } close FH; 输出结果： 1 2 3 Use of uninitialized value in print at test.pl line 6, line 4. Use of uninitialized value in print at ...

perl -e '@a=qw(1 2 3 4 5);print @a[1,2,4];'可以输出235，而 perl -e '@a=qw(1 2 3 4 5);$b="1,2,4";print @a[$b];'输出的是2，为什么呢

各位XDJM： 小弟在工作上遇到一个困难，请求各位大大帮助一下。谢谢。。。文件格式如下： SNP_A-4194556 AB 0.016 BB 0.026 AB 0.036 AA 0.115 rs12058711 SNP_A-4200262 BB 0.045 BB 0.109 BB 0.093 BB 0.243 rs11205411 SNP_A-2244055 BB 0.049 AB 0.012 BB 0.023 BB 0.049 rs11205401 SNP_A-2105213 AB 0.006 AB 0.092 AA 0.001 AB 0.037 rs12748771 文本就是这种格式，主要有4列的，形式如同AA,AB,AB,AA这样的数组...

如 my @arr = qw/ a a a a b b a b c b c/ 因为 @arr 有很多相同的元素, 有可以 计算出 相同元素个数的 函数 吗 a 5 b 4 c 2

my @haha.lolo=(3,1,7,2); 我给数组这样命名 提示错误 请问有点符号的数组名 应该如何命名呢

[code]my @rno1 = (100..109); my %rno = ( no1 => "@rno1", ） while ( my ($key,$value) = each(%rno)) { foreach my $var ($value ){ print "$var\n" }[/code]这里输出的是一个数组的形式，不能单个的输出，请教原因