Perl Regex-返回正则表达式的结果

Question

我有一个包含一系列字符串的文件。我需要2个字母的状态和zip。

"C:\Users\{userName}\AppData\Local\lynda.com\Lynda.com Desktop App\offline\ldc_dl_courses

Answer 1

您需要列表上下文来获取匹配的子字符串。您可以通过将参数括在my括号中来强制列表上下文：

if (my ($stateCode) = $token =~ /\b(AL|AK|AS|AZ|AR|CA|CO|CT|DE|DC|FL|GA|GU|HI|ID|IL|IN|IA|KS|KY|LA|ME|MD|MH|MA|MI|FM|MN|MS|MO|MT|NE|NV|NH|NJ|NM|NY|NC|ND|MP|OH|OK|OR|PW|PA|PR|RI|SC|SD|TN|TX|UT|VT|VA|VI|WA|WV|WI|WY)\s{1,} \d{5,}\b/) {
    print $stateCode, "\n";