grep读取重复行的问题求助

gis11rj

my $rootDir =$ARGV[0];
my $date = $ARGV[1];
my $csvDir = $rootDir . $date ."/csv/";
my $output1 = $rootDir . $date . "/fielname_url_row.csv";
my $output2 = $rootDir . $date . "/url.csv";
my $chongfu = $rootDir . $date . "/chongfu.csv";
my @srcFiles = ();
find sub {push @srcFiles ,$File::Find::name if -f $_ && /\.csv$/i},$csvDir;
my $row = 0;
foreach my $csvFile(@srcFiles){
        print "$csvFile\n";
        $row++;
        my @lines = loadIgnoreTitle($csvFile);
        open RR, ">$output1";
        foreach my $line(@lines){
                my @fields = split(/,/,$line);
                my $url = $fields[6];       
                print RR $url . "\n" ;
        }
        close RR;
        open RH, ">$chongfu";
        my @urls = loadContainTitle($output1);
        my %count = ();
        my @chongfu = grep { $count{$_} == 2 }
                      grep{++$count{$_} > 1 } @urls;
        foreach my $line2(@chongfu){
                print RH $csvFile . $line2 . $row . "\n";
        }
        close RH ;
}




试了n遍 不知道问题出在哪。。。。。。大家帮忙看看
@crops = qw(wheat corn barley rice corn soybean hay
            alfalfa rice hay beets corn hay);
           my %count = ();
@duplicates = grep { $count{$_} == 2 }
              grep { ++$count{$_} > 1 } @crops;
print "@duplicates\n";

我是按照这个例子写的，例子运行都没问题啊。。。。。。。

午夜凋零

例子是重复2次的，你要求的也是重复2次吗？

gis11rj

回复 2# 午夜凋零


    只要是重复的就要！

gis11rj

回复 4# 芙蓉女侠

如果只有这一个条件，就会输出：
    corn rice hay corn hay

gis11rj

回复 6# 芙蓉女侠


    哦，这样啊！我以为它可以像找重复两次那样，直接一次就出结果呢，多谢啊！呵呵

gis11rj

回复 4# 芙蓉女侠


    可是，女侠，我的问题是我自己写的那一段为什么得不到重复的结果呢！例子确实没问题啊.......

午夜凋零

回复 8# gis11rj

1. my %count = ();
   
2. my @chongfu = grep { $count{$_} == 2 }
   
3.                          grep{++$count{$_} > 1 } @urls;
   
4. foreach my $line2(@chongfu){
   
5.     print RH $csvFile . $line2 . $row . "\n";
   
6. }

复制代码

你把这段改成什么了？贴出来看看~

gis11rj

回复 9# 午夜凋零


    find sub {push @srcFiles ,$File::Find::name if -f $_ && /\.csv$/i},$csvDir;
my $row = 0;
foreach my $csvFile(@srcFiles){
        print "$csvFile\n";
        $row++;
        my @lines = loadIgnoreTitle($csvFile);
        open RR, ">$output1";
        foreach my $line(@lines){
                my @fields = split(/,/,$line);
                my $url = $fields[6];        
                print RR $url . "\n" ;
        }
        close RR;
        open RH, ">$chongfu";
        my @urls = loadContainTitle($output1);
        my %count = ();
        my @chongfu = grep { $count{$_} == 2 }
                      grep{++$count{$_} > 1 } @urls;
        foreach my $line2(@chongfu){
                print RH $csvFile . $line2 . $row . "\n";
        }
        close RH ;
}