命令行问题

pony2001mx

大家好：

我有一个文件(test.txt)内容如下：
Chr1  12  33  gene1
Chr2  34  56  gene2

然后我运行

1. perl -e 'open IN, $ARGV[0]; %h=map{@b=split; $x=\@b[0,1,2]; ($x, $_)}<IN>; for $y (keys %h){print "@{$y}\n"} '  test.txt

复制代码

为什么什么也不显示？我认为应该显示以下内容。
Chr1  12  33
Chr2  34  56


注：我这里是个例子，主要是测验code

523066680

回复 1# pony2001mx

感觉你写的很绕。以及，默认情况下不能将引用作为哈希的键。
参考 《Programming Perl》 关于引用的章节

References Don’t Work As Hash Keys
Hash keys are stored internally as strings. If you try to store a reference as a key in a hash, the key value will be converted into a string

1. $ perl -e '%h=map { @b=split; $x=[@b[0,1,2]]; ( $i++, $x ) } <>; for $y (values %h) { print "@{$y}\n" }' test.txt
   

复制代码

OR

1. $ perl -ne 'print join q/ /, (split q/ /, $_)[0,1,2], qq/\n/' a.txt

复制代码

如果一定要将引用作为key，可以试试 Tie::RefHash 模块

pony2001mx

回复 2# 523066680

非常谢谢！“引用不能作为哈希的键”一语中的。谢谢！