Re: U.S. State Names

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;
[download]

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

-- Randal L. Schwartz, Perl hacker

Comment on Re: U.S. State Names Download Code

Replies are listed 'Best First'.
Re: Re: U.S. State Names by tachyon (Chancellor) on Oct 30, 2001 at 18:55 UTC
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; [download] cheers tachyon s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: U.S. State Names
by tachyon (Chancellor) on Oct 30, 2001 at 18:55 UTC

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;
[download]

cheers

tachyon

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

[reply]
[d/l]