[英]How can I extract abbreviations from a file using Perl?
我需要从文件中提取某些缩写,例如ABS,TVS和PERL。 大写字母的任何缩写。 我最好使用正则表达式执行此操作。 任何帮助表示赞赏。
听到您特别烦恼的那部分会很高兴。
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";
}
从标准输入中读取要搜索的文本,并将找到的所有缩写写到标准输出中,并用空格分隔:
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字符类[:upper:]的使用,它将匹配所有大写字符,而不仅仅是英语(AZ)。
未经测试:
my %abbr;
open (my $input, "<", "filename")
|| die "open: $!";
for ( < $input > ) {
while (s/([A-Z][A-Z]+)//) {
$abbr{$1}++;
}
}
修改它以查找至少两个连续的大写字母。
#!/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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.