本帖最后由 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]这里输出的是一个数组的形式，不能单个的输出，请教原因

本帖最后由 就这么游来游去 于 2010-07-26 11:57 编辑 请问怎么实现用循环将多组有相同性质的元素赋值给不同的数组阿。 比如说有三组元素分别是 （aaa bbb ccc ddd）(fff ggg hhh jjj) (kkk lll ooo) 要分别赋给@a1 @a2 @a3 .怎么才能用一条赋值语句就实现三种不同情况的赋值阿？？ 望指教 谢谢。 主要是在一个foreach语句里产生的很多数据要分组保存。例： my @a=(eth0 eth1 eth2); my @eth; foreach $a(@...

我定义一个数组：@a， 如果a是一个一维数组，那么非标量环境下，@a是数组的内容； 如果a是一个二维数组，那么非标量环境下，@a是数组的地址(不止一个数组的地址)； 为什么二维的时候@a就成为了地址？