perl count line in double looping、正規表現に1を加えた場合+1

Question

私は、行を配列にすることでファイルを開きます。重複した値を含む正規表現に基づいて、このファイルの内部にあります。正規表現が一致する場合は、それを数えたいと思います。正規表現は次のようになります $b =~ /\/([^\/]+)@@/私は$1値と一致したい。

my @array = do 
{ 
    open my $FH, '<', 'abc.txt' or die 'unable to open the file\n'; 
    <$FH>; 
}; 

以下は私のやり方です。ファイル内に同じ行が表示されます。助けてくれてありがとう。以下は

foreach my $b (@array) 
{ 
    $conflictTemp = 0; 
    $b =~ /\/([^\/]+)@@/; 
    $b = $1; 
    #print "$b\n"; 
    foreach my $c (@array) 
    { 
     $c =~ /\/([^\/]+)@@/; 
     $c = $1; 

     if($b eq $c) 
     { 
      $conflictTemp ++; 
      #print "$b , $c \n" 
      #if($conflictTemp > 1) 
      #{ 
      # $conflict ++; 
      #} 
     } 
    } 
} 

いくつかのサンプルデータであり、2つの文が重複

/a/b/c/d/code/Debug/atlantis_digital/c/d/code/Debug/atlantis_digital.map@@/main/place.09/2 

/a/b/c/d/code/C5537_mem_map.cmd@@/main/place.09/0 

/a/b/c/d/code/.settings/org.eclipse.cdt.managedbuilder.core.prefs@@/main/4 

/a/b/c/d/code/.project_initial@@/main/2 

/a/b/c/d/code/.project@@/main/CSS5/5 

/a/b/c/d/code/.cproject@@/main/CSS5/10 

/a/b/c/d/code/.cdtproject@@/main/place.09/0 

/a/b/c/d/code/.cdtproject@@/main/place.09/0 

/a/b/c/d/code/.cdtbuild_initial@@/main/2 

/a/b/c/d/code/.**cdtbuild@@**/main/CSS5/2 

/a/b/c/d/code/.**cdtbuild@@**/main/CSS5/2 

/a/b/c/d/code/.ccsproject@@/main/CSS5/3 

Answer 1

ているあなたは、配列の各要素を反復パターンマッチを経由して、いくつかのデータを選択し、カウントしようとしているようです死ぬ。あれは正しいですか？

それはに簡単にではないでしょう。（例えば、重複があります）1以上のものを持っている変数については、

my %count_of; 
while (<$FH>) { 
    my ( $val) = /\/([^\/]+)@@/; 
    $count_of{$val}++; 
} 

そして：また

print join "\n", grep { $count_of{$_} > 1 } keys %count_of; 

、あなただけなら「スポットを捨てて」再生したい：

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

my %seen; 
my $match = qr/\/([^\/]+)@@/; 
while (<DATA>) { 
    my ($value) = m/$match/ or next; 
    print if $seen{$value}++; 
} 

__DATA__ 
/a/b/c/d/code/Debug/atlantis_digital/c/d/code/Debug/atlantis_digital.map@@/main/place.09/2 
/a/b/c/d/code/C5537_mem_map.cmd@@/main/place.09/0 
/a/b/c/d/code/.settings/org.eclipse.cdt.managedbuilder.core.prefs@@/main/4 
/a/b/c/d/code/.project_initial@@/main/2 
/a/b/c/d/code/.project@@/main/CSS5/5 
/a/b/c/d/code/.cproject@@/main/CSS5/10 
/a/b/c/d/code/.cdtproject@@/main/place.09/0 
/a/b/c/d/code/.cdtproject@@/main/place.09/0 
/a/b/c/d/code/.cdtbuild_initial@@/main/2 
/a/b/c/d/code/.cdtbuild@@/main/CSS5/2 
/a/b/c/d/code/.cdtbuild@@/main/CSS5/2 
/a/b/c/d/code/.ccsproject@@/main/CSS5/3 

Answer 2

問題は以前の回答で解決されました - 私はただオフにしたいそれは別の味です。正規表現

アウト

• 呪文は、パターンが最初に表示された行を記録するために%seenハッシュを使用します。
• もう少し詳細なレポート

use v5.12; 
use warnings; 

my $regex = qr/ 
       \/    # A literal slash followed by 
       (    # Capture to $1 ... 
        [^\/]+  # ... anything that's not a slash 
       )    # close capture to $1 
       @@    # Must be immdiately followed by literal @@ 
      /x; 

my %line_num ; 
while (<>) { 
    next unless /$regex/ ; 
    my $pattern = $1 ; 
    if ($line_num{ $pattern }) { 
     say "'$pattern' appears on lines ", $line_num{ $pattern }, " and $." ; 
     next ; 
    } 
    $line_num{ $pattern } = $. ; # Record the line number 
} 

# Ran on data above will produce; 
# '.cdtproject' appears on lines 7 and 8 
# '.cdtbuild' appears on lines 10 and 11