Re: U.S. State Names

[merlyn]

This might be a bit more maintainable:

my %States = q{
        AK Alaska           LA Louisiana        OH Ohio
        AL Alabama          MA Massachusetts    OK Oklahoma
        AR Arkansas         MD Maryland         OR Oregon
        AZ Arizona          ME Maine            PA Pennsylvania
        CA California       MI Michigan         RI Rhode Island
        CO Colorado         MN Minnesota        SC South Carolina
        CT Connecticut      MO Missouri         SD South Dakota
        DE Delaware         MS Mississippi      TN Tennessee
        FL Florida          MT Montana          TX Texas
        GA Georgia          NC North Carolina   UT Utah
        HI Hawaii           ND North Dakota     VA Virginia
        IA Iowa             NE Nebraska         VT Vermont
        ID Idaho            NH New Hampshire    WA Washington
        IL Illinois         NJ New Jersey       WI Wisconsin
        IN Indiana          NM New Mexico       WV West Virginia
        KS Kansas           NV Nevada           WY Wyoming
        KY Kentucky         NY New York
} =~ /\G\s*(\w\w)\s+(\w+(?:\s\w+)?)/g;

Once I discovered \G, "capturing splits" never really do much for me because the logic is usually so reversed.

-- Randal L. Schwartz, Perl hacker

[tachyon]

As it happens neither the \G nor the \s* are required in this case.

my %States = q{
        AK Alaska           LA Louisiana        OH Ohio
        AL Alabama          MA Massachusetts    OK Oklahoma
        AR Arkansas         MD Maryland         OR Oregon
        AZ Arizona          ME Maine            PA Pennsylvania
        CA California       MI Michigan         RI Rhode Island
        CO Colorado         MN Minnesota        SC South Carolina
        CT Connecticut      MO Missouri         SD South Dakota
        DE Delaware         MS Mississippi      TN Tennessee
        FL Florida          MT Montana          TX Texas
        GA Georgia          NC North Carolina   UT Utah
        HI Hawaii           ND North Dakota     VA Virginia
        IA Iowa             NE Nebraska         VT Vermont
        ID Idaho            NH New Hampshire    WA Washington
        IL Illinois         NJ New Jersey       WI Wisconsin
        IN Indiana          NM New Mexico       WV West Virginia
        KS Kansas           NV Nevada           WY Wyoming
        KY Kentucky         NY New York         US United States Of Am
+erica
} =~ /(\w\w)\s+(\w+(?:\s\w+)*)/g;

print "$_ => $States{$_}\n" for keys %States;

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print