Deane.Rothenmaier@walg... <> wrote:

: Can anyone suggest a prettier alternative?

my %table = (
    '1A' => 1,
    '1B' => 2,
    '2A' => 3,
    '2B' => 4,
    '3A' => 5,
    '3B' => 6,
    '4A' => 7,
    '4B' => 8,
    '5A' => 9,
    '5B' => 10,
    '5C' => 11,
    '6A' => 12,
    '6B' => 13,
);

my $column = $table{"$num$letter"};

HTH,

Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328


_______________________________________________
ActivePerl mailing list
ActivePerl@list...
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs