키값들을 카운트 ..

#!/usr/bin/perl
use strict;
use warnings;
 
# A.text 읽고 데이터 구성
my @data_a;
open my $in, "<", "A.text" or die $!;
while ( my $line = <$in> ) {
    chomp $line;
    if ( $line !~ /Sta|Err|active/ ) {
        # 처음 여섯 필드만 명시적으로 뽑아내고 일곱번째 필드부터 끝까지는 $others에 넣음
        my ( $time, $channel, $id, $trans, $state, $dlc, $others ) = split(" ", $line, 7);
 
        # $dlc 에 프레임 바이트 개수가 들어 있으니, $others 에서 해당 개수만큼 필드를 뽑아냄
        my @frame_bytes;
        if ( $dlc > 0 ) {
            @frame_bytes = ( split " ", $others )[ 0 .. $dlc-1 ];
        }
        # 굳이 프레임이 배열일 필요는 없을 것 같으니 다시 문자열로
        my $frame = join " ", @frame_bytes;
 
        # 익명 해시 구성
        # {
        #   id    => '106D4099x',
        #   frame => '00 00 73',
        #   출력할 때 쓰기 위해 라인 전체도 같이 저장
        #   line  => '0.043441 1 106D4099x Rx d 3 00 00 73 Length = 2784638 BitCount = 97 ID = 275595417x'
        # }
        my $tmp_hash = {
            id    => $id,
            frame => $frame,
            line  => $line,
        };
 
        # 익명 해시를 배열에 추가
        push @data_a, $tmp_hash;
    }
}
close $in;
 
 
# B.text 파일의 내용도 마찬가지로 재구성해서 저장해도 되지만, 원하는 게 그저 출력 뿐이라면
# 굳이 다시 저장할 필요 없이 파일을 읽으면서 곧바로 처리합시다.
 
open $in, "<", "B.text" or die $!;
 
while ( my $line = <$in> ) {
    chomp $line;
    if ( $line !~ /Sta|Err|active/ ) {
        # id 와 frame 을 얻는 부분은 위와 동일
        # time, channel 등은 어차피 안 쓰니까 사실 변수도 필요 없음
        my ( undef, undef, $id, undef, undef, $dlc, $others ) = split(" ", $line, 7);
 
        my @frame_bytes;
        if ( $dlc > 0 ) {
            @frame_bytes = ( split " ", $others )[ 0 .. $dlc-1 ];
        }
        my $frame = join " ", @frame_bytes;
 
        # @data_a 에 저장된 원소들 중에 id 키가 일치하는 것이 있나 찾아봄
        # XXX 루프를 쓰는 것은 매우 비효율적
        my $found;
        foreach my $line_a ( @data_a ) {
            if ( $line_a->{id} eq $id ) {
                # id 가 일치하는 것을 찾았음
                $found = $line_a;
 
                # frame 이 다르면 출력
                if ( $line_a->{frame} ne $frame ) {
                    print "SAME ID, DIFFERENT FRAME\n";
                    print "A: ", $line_a->{line}, "\n";
                    print "B: ", $line, "\n";
                }
 
                # 더 이상 루프를 돌 필요가 없으니 탈출
                # (A.text에 있는 라인들끼리는 id가 중복되지 않는다는 가정 하에)
                last;
            }
        }
 
        # 루프가 끝난 이 시점에 $found에 저장된 게 없다면
        # A.text에서 $id 에 해당하는 라인이 없었다는 얘기니까 출력
        if ( ! $found ) {
            print "ONLY IN B: ", $line, "\n";
        }
    }
}
 
close $in;

%hash_a = (
    '10812060x' => {
        'line' => '0.050251 1 10812060x Rx d 1 00 Length = 2274686 BitCount = 80 ID = 276897888x',
        'frame' => '00'
    },
    '1084A060x' => {
        'frame' => '00',
        'line' => '0.052626 1 1084A060x Rx d 1 00 Length = 2248252 BitCount = 79 ID = 277127264x'
    },
    ...
)

# $id, $frame 이 주어졌을 때
if ( exists $hash_a{ $id } ) {
    # A에 $id에 해당하는 라인이 존재함
    if ( $hash_a{ $id }->{frame} ne $frame ) {
        # 프레임 다름
    }
else {
    # 존재하지 않음
}

my %hash_a = map { $_->{id} => { frame => $_->{frame}, line => $_->{line} } } @data_a;

my $INPUT=<STDIN>;
$INPUT = int $INPUT;
 
foreach my $line (@ONLY_ID){
    my @found=();
    my $count=0;
    foreach my $line_s (@ONLY_ID2){
        if($line_s{Id} eq $id){
            push @found, $line_s;
            $count++;
        }
        last;
    }
    if($INPUT == $count){
        foreach my $list (@found){
            print "$list"."\n\n";
        }
    }
    last;
}

        if( ! $found ) {
            # $line 스트링 대신, 해시를 만들고 그 레퍼런스를 저장
#             my %temp_hash = (
#                 id => $id,
#                 line => $line
#             );
#             push @ONLY_ID, \%temp_hash;
 
            # 또는, 처음부터 익명 해시 레퍼런스를 만들어 저장
#             my $temp_hash_ref = {
#                 id => $id,
#                 line => $line
#             };
#             push @ONLY_ID, $temp_hash_ref;
 
            # 또는, 임시 변수를 쓸 필요도 없이 다음과 같이
            push @ONLY_ID, { id => $id, line => $line };
 
            # @ONLY_ID2 는 쓸 필요도 없음
        }

@ONLY_ID = (
          {
            'id' => '100',
            'line' => '3.764043 1 100 Rx d 0 Length = 1408304 BitCount = 51 ID = 256'
          },
          {
            'line' => '3.840844 1 13FFE099x Rx d 0 Length = 2064714 BitCount = 73 ID = 335536281xa',
            'id' => '13FFE099x'
          },
          {
            'line' => '3.846184 1 622 Rx d 8 01 40 00 00 00 00 00 00 Length = 3564590 BitCount = 123 ID = 1570',
            'id' => '622'
          },
          ...
)

foreach my $line ( @ONLY_ID ) {
    ...
    foreach my $line_s ( @ONLY_ID ) {
        if ( $line->{id} eq $line_s->{id} ) {    # 이렇게 비교하면 됨
            ...
        }
    }
}

my %count;
foreach my $line (@ONLY_ID){
#     my $id = $line->{id};
#     $count{$id}++;
 
    # 또는 임시 변수 없이
    $count{ $line->{id} }++;
}

%count = (
  'C7920AFx'  => 1,
  '102340BCx' => 1,
  '13FFE040x' => 1,
  '어떤ID'    => 6;
)