正則表達式查找在perl中包含至少兩個大寫字母的字符串

我正在尋找一個匹配特定字符串的正則表達式，該字符串在perl中至少有兩個大寫字母。我完全卡住解決這個任何指針將不勝感激。正則表達式查找在perl中包含至少兩個大寫字母的字符串

2013-02-28 partha

你申請的任何努力？ – 2013-02-28 06:25:19

@Krishna：那不符合'AaaaaB'。 – Blender 2013-02-28 06:27:03

是的。進行更改。 – 2013-02-28 06:30:09

爲什麼堅持只ASCII字母？

這將匹配任何語言的兩個大寫字母使用Unicode character properties。

/\p{Lu}.*\p{Lu}/

\p{Lu}是Unicode character property匹配具有小寫變體

又見perlretut: More on characters, strings, and character classes

小測試大寫字母：

my @input = ("foobar", "Foobar", "FooBar", "FÖobar", "fÖobÁr"); 

foreach my $item (@input) { 
    if ($item =~ /\p{Lu}.*\p{Lu}/) { 
     print $item . " has at least 2 uppercase!\n" 
    } else { 
     print $item . " has less than 2 uppercase!\n" 
    } 
}

輸出：

foobar有不到2個大寫！
Foobar有不到2個大寫！
FooBar至少有2個大寫字母！
FÖobar至少有2個大寫！
fÖobÁr至少有2個大寫！

來源

2013-02-28 06:46:57 stema

嘗試使用這樣的：

/^.*[A-Z].*[A-Z].*$/

來源

2013-02-28 06:28:24 irregularexpressions

不知道到底你需要什麼：

perl -lane 'for(@F){if(/[A-Z]/){$count++ for m/[A-Z]/g}if($count >=2){print $_};$count=0}'

測試下方

> echo "ABC DEf Ghi" | perl -lane 'for(@F){if(/[A-Z]/){$count++ for m/[A-Z]/g}if($count >=2){print $_};$count=0}' 
ABC 
DEf

來源

2013-02-28 06:36:54 Vijay

正則表達式查找在perl中包含至少兩個大寫字母的字符串

回答

相關問題