PERL：重複行

Question

我正在寫一個perl代碼，用於打印按鈕/發送郵件，如果在文件中找到重複行。 我迄今爲止代碼：

#!/usr/bin/perl 
use strict; 
my %prv_line; 
open(FILE, "somefile") || die "$!"; 
while(<FILE>){ 
    if($prv_line{$_}){ 
     $prv_line{$_}++; 
    } 
    #my problem: print I saw this line X times 
    } 
close FILE 

我的問題：如何生成與輸出靜態信息：打印「我看到這行X次」不打印腳本輸出 感謝

Answer 1

您的原始代碼非常接近。做好了use strict並將$!放入die字符串中。您還應始終使用use warnings，使用open的三參數形式，並使用詞法文件句柄。

這個程序應該可以幫到你。

use strict; 
use warnings; 

my %prv_line; 
open (my $FILE, '<', 'somefile') || die $!; 
while (<$FILE>) { 
    if ($prv_line{$_}) { 
    print "I saw this line $prv_line{$_} times\n"; 
    } 
    $prv_line{$_}++; 
} 

Answer 2

可能，這裏就是你想要：

#!/usr/bin/perl 
use strict; 
use warnings; 

my %lines; 

while(<DATA>) { 
    chomp; 
    $lines{$_}++; 
} 

while (my($key, $value) = each %lines) { 
    print "I saw the line '$key' $value times\n"; 
} 

__DATA__ 
abc 
def 
def 
def 
abc 
blabla 

avaddv 

bla 
abc 

當然，它可以改進。