求帮助： 请问如何将文件夹中‘>'字符多于2个的文件复制到另外一个文件夹？

56836430

一个文件夹中有许多fasta文件，想将文件中字符 “>”多于2个的文件复制到另外一个文件夹。

自己写了一个小程序，但是一直不对，请各位帮忙看一下哪里出了问题！！

程序如下：


#!/usr/bin/perl -w

my $infile = shift;

open FD,$infile;

while (<FD>){
        my $pattern = '>';
        my $count = ($pattern =~  s/\>/\>/g ) ;      
    if ($count > 2) {              
          system  (`cp $infile /home/aa/`);
       }
   }