Perlを使用してファイルから略語を抽出するにはどうすればよいですか？

Question

ABS、TVS、PERLなどのファイルから特定の略語を抽出する必要があります。大文字の略語。私は、通常、これを正規表現で行うのが好きです。どんな助けもありがとうございます。

Answer 1

未テスト：

my %abbr; 
open (my $input, "<", "filename") 
    || die "open: $!"; 
for (< $input >) { 
    while (s/([A-Z][A-Z]+)//) { 
    $abbr{$1}++; 
    } 
} 

は、少なくとも2つの連続した大文字を探すために、それを修正しました。

Answer 2

あなたが特に問題を抱えていた部分を聞くのはうれしいことでした。

my $text; 
# Slurp all text 
{ local $/ = undef; $text = <>; } 
# Extract all sequences of 2 or more uppercase characters 
my @abbrevs = $text =~ /\b([[:upper:]]{2,})\b/g; 
# Output separated by spaces 
print join(" ", @abbrevs), "\n"; 

注POSIX文字クラス[の使用：上部テキストは標準入力から検索し、スペースで区切られた標準出力に見出さ すべての略語を、書き込みする読み取り

my %abbr; 
open my $inputfh, '<', 'filename' 
    or die "open error: $!\n"; 
while (my $line = readline($inputfh)) { 
    while ($line =~ /\b([A-Z]{2,})\b/g) { 
     $abbr{$1}++; 
    } 
} 

for my $abbr (sort keys %abbr) { 
    print "Found $abbr $abbr{$abbr} time(s)\n"; 
} 

Answer 3

#!/usr/bin/perl 

use strict; 
use warnings; 

my %abbrs =(); 

while(<>){ 
    my @words = split ' ', $_; 

    foreach my $word(@words){ 
     $word =~ /([A-Z]{2,})/ && $abbrs{$1}++; 
    } 
} 

# %abbrs now contains all abreviations 

Answer 4

：]は、一致します すべて大文字だけでなく、英語のもの（AZ）。