Help for this page

Select Code to Download


  1. or download this
    my $ua = Parse::HTTP::UserAgent->new($useragent);
  2. or download this
    $useragent =~ s{ ( [+] ) [[] [^]]+ []] ( [+] ) }{$1$2}msx;
  3. or download this
    #!perl

...
    print $ua->version, qq{\n};
    print $ua->os, qq{\n};
}
  4. or download this
    $ ver_overload_prob.pl
UA: Mozilla/4.06+[en]+(WinNT;+I)
...
Safari
3.002002
Windows XP