CODEWITHSUNDEEP
perluser-agent
sfactor
sfactor

Reputation: 13062

How can I make a simple browser user-agent parser in Perl?

I needed to make a simple browser user agent parser in Perl. I have found a PHP code that does this but my knowledge is rather limited (esp. in regular expressions). So, here is the code whose Perl equivalent I want to write.

if ($l = ereg($pattern, $agent, $a = array()))
        {
          array_push($found, array("product" => $a[1], "version" => $a[3], "comment" => $a[6]));
          $agent = substr($agent, $l);
        }

The $agent is the user-agent string passed as argument, and returns an array of associative arrays $found, each one defining a product/comment in the agent string (key of the associative array are product, version, comment). The $pattern is the user-agent regular expression I am searching which I already know.

So, how would this look like in Perl?

Edit: Seems like there is an confusion about whether I want a Perl compatible regex or an equivalent function in Perl. I am looking for an Perl function and syntax that does the same thing.

Upvotes: 4

Views: 984

Answers (3)

Toto
Toto

Reputation: 91385

Your PHP script could be written in Perl like :

my @found;
if ($agent =~ s/$pattern//) {
  push @found, {product => $1, version => $3, comment => $6};
}

In order to print the content of array @found :

use Data::Dumper;
print Dumper(\@found);

Upvotes: 1

Gordon
Gordon

Reputation: 316969

You can use the CPAN module HTTP::BrowserDetect to sniff out various information about the browser and the device it runs on, including but by far not limited to version, engine and vendor.

Upvotes: 10

cypher
cypher

Reputation: 6992

Using POSIX (ereg_*) functions is deprecated as of PHP 5.3.0. If you use PCRE (preg_*) functions istead, they will work in perl as well. PCRE is an abbreviation for Perl Compatible Regular Expressions. If you need any help with rewriting the pattern for PCRE, post the original pattern.

Upvotes: -1

Related Questions