perl 引号

MMMIX

回复 4# 一串儿葡萄皮


    有这种情况早干吗不说? 这不是浪费大家时间么

MMMIX

回复 7# 一串儿葡萄皮


    把能重现这个问题的输入和你的(能直接执行的)代码都贴上来.

MMMIX

一串儿葡萄皮 发表于 2015-08-12 11:09
while(<W>){
   chomp;
    my$i='"\w+"';
        $i=~s/\"//g;

}

你这就是个空循环, 除了把 W 读了一遍之外, 啥用都没有.

另外, 你把 my $i 写成 my$i 自己看着不糟心么? 多输入个空格是能累着你咋滴?

BTW again, 这都不是代码风格问题, 你这完全是审美观病变坏死的征兆!!!

MMMIX

一串儿葡萄皮 发表于 2015-08-12 11:09
#!/usr/bin/perl    -w
use warnings;

这两句完全就是不求甚解的范例: -w 和 use warnings; 的功能是重复的.

MMMIX

一串儿葡萄皮 发表于 2015-08-12 15:20
(my $Out=$fasta)=~s/(\.[^\.]+)$/_out$1/;

等价于:

1. 
   
2. my $Out = $fasta;
   
3. $Out =~ s/(\.[^\.]+)$/_out$1/;
   

复制代码

MMMIX

b114213903 发表于 2015-08-12 19:54
我这运行正常，不知道什么原因

估计是输入文件不一样吧