I have the following code, dying a horribly ugly death. Basically, it falls through to the else portion and assigns that value to $vehicle. But when I call $rec{'equipment'}, it shows the value I'm testing for. I've put print statements into the various loops, and it boils down to eq not working. Has anyone been confronted with this? I can't find any other way to test these values.
elsif ($rec{'equipment'} eq "R") { $vehicle = "Reefer"; }
elsif ($rec{'equipment'} eq "V") { $vehicle = "Van"; }
elsif ($rec{'equipment'} eq "F/R/V") { $vehicle = "Flatbed/Reefer/Van"; }
elsif ($rec{'equipment'} eq "R/V") { $vehicle = "Reefer/Van"; }
elsif ($rec{'equipment'} eq "F/V") { $vehicle = "Flatbed/Van"; }
elsif ($rec{'equipment'} eq "SD") { $vehicle = "Step Deck"; }
elsif ($rec{'equipment'} eq "DD") { $vehicle = "Double Deck"; }
elsif ($rec{'equipment'} eq "LB") { $vehicle = "Low Boy"; }
elsif ($rec{'equipment'} eq "HS") { $vehicle = "Hot Shot"; }
elsif ($rec{'equipment'} eq "AC") { $vehicle = "Auto Carrier"; }
elsif ($rec{'equipment'} eq "CV") { $vehicle = "Curtain Van"; }
elsif ($rec{'equipment'} eq "T") { $vehicle = "Tanker"; }
elsif ($rec{'equipment'} eq "DB") { $vehicle = "Dry Bulk"; }
elsif ($rec{'equipment'} eq "HB") { $vehicle = "Hopper Bottom"; }
elsif ($rec{'equipment'} eq "ALL") { $vehicle = "All Trucks"; }
else { $vehicle = "Truck Not Specified"; }
Code:
if ($rec{'equipment'} eq "F") { $vehicle = "Flatbed"; } elsif ($rec{'equipment'} eq "R") { $vehicle = "Reefer"; }
elsif ($rec{'equipment'} eq "V") { $vehicle = "Van"; }
elsif ($rec{'equipment'} eq "F/R/V") { $vehicle = "Flatbed/Reefer/Van"; }
elsif ($rec{'equipment'} eq "R/V") { $vehicle = "Reefer/Van"; }
elsif ($rec{'equipment'} eq "F/V") { $vehicle = "Flatbed/Van"; }
elsif ($rec{'equipment'} eq "SD") { $vehicle = "Step Deck"; }
elsif ($rec{'equipment'} eq "DD") { $vehicle = "Double Deck"; }
elsif ($rec{'equipment'} eq "LB") { $vehicle = "Low Boy"; }
elsif ($rec{'equipment'} eq "HS") { $vehicle = "Hot Shot"; }
elsif ($rec{'equipment'} eq "AC") { $vehicle = "Auto Carrier"; }
elsif ($rec{'equipment'} eq "CV") { $vehicle = "Curtain Van"; }
elsif ($rec{'equipment'} eq "T") { $vehicle = "Tanker"; }
elsif ($rec{'equipment'} eq "DB") { $vehicle = "Dry Bulk"; }
elsif ($rec{'equipment'} eq "HB") { $vehicle = "Hopper Bottom"; }
elsif ($rec{'equipment'} eq "ALL") { $vehicle = "All Trucks"; }
else { $vehicle = "Truck Not Specified"; }