
平台论坛博客文库

› 论坛 › 程序设计 › Perl › 如何将文件夹中‘>'多于2个的文件复制到另外一个文件 ...

如何将文件夹中‘>'多于2个的文件复制到另外一个文件夹？ [复制链接]

56836430

白手起家

论坛徽章:: 1

电梯直达

1楼 [收藏(0)] [报告]

发表于 2015-10-12 11:32 |只看该作者 |倒序浏览

本帖最后由 56836430 于 2015-10-12 15:08 编辑

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

程序如下：

#!/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/`);
   }
}

文件夹, 如何