http://www.perlmonks.org?node_id=172630


in reply to Re(4):Short and Sweet Browser Detection
in thread Short and Sweet Browser Detection

And that's why we have regular expression, and modules which do these things. Get what you need from the USER_AGENT string and match in your keys. Instead of trying to nay-say suggestions, why don't think think of the whole picture of what is available to be done. So, this guy should keep looping through all the user agents? That's absurd.
(my $user_agent = $ENV{USER_AGENT}) =~ s!<whatever>!!; if (exists $user_agents->{$user_agent}) { # foo } else { # bar }
When you are trying to think outside the box, remember to look at the box.

Cheers,
KM