라인별로 비교하고 발생 횟수를보고하십시오.

Question

perl에서 줄 단위로 비교하는 프로그램을 작성하고 줄과 그 발생을보고 할 수 있습니까?

A 4481676 4483063 
A 4481676 4483063 
A 4481676 4483063 
A 4481676 4483063 
A 4483214 4483749 
A 4483214 4483749 
A 4483214 4483749 
A 4483214 4483749 
A 4483214 4483749 
A 4483214 4483749 

인쇄이 출력

A 4481676 4483063 4 
A 4483214 4483749 6 

Answer 1

에서 당신은 한 줄이 작업을 수행하지 않으려면 :

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

my $input = " 
A 4481676 4483063 
A 4481676 4483063 
A 4481676 4483063 
A 4481676 4483063 
A 4483214 4483749 
A 4483214 4483749 
A 4483214 4483749 
A 4483214 4483749 
A 4483214 4483749 
A 4483214 4483749"; 

my %seen; 

while($input =~ /(.+)$/mg){ 
    $seen{$1}++; 
} 

foreach my $key (keys %seen) { 
    print "$key $seen{$key}\n"; 
} 

이것을 나타내는

Live demonstration은 원하는 outp ut. 당신의 입력 파일 인 경우, 단지 while($input =~ /(.+)$/mg)의 장소에서의 FileHandler와 while(<>)를 사용

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

my $file="file.txt"; 
open(DATA, "<" . $file); 
my %seen; 

while(<DATA>){ 
    $seen{$1}++; 
} 

foreach my $key (keys %seen) { 
    print "$key $seen{$key}\n"; 
} 

Answer 2

위와 같지만 펄

perl -n -e 'use Data::Dumper;$a{$_}++; END { print Dumper(\%a)}' file