Net::Whois::Parser(3pm)        User Contributed Perl Documentation        Net::Whois::Parser(3pm)



NAME
       Net::Whois::Parser - module for parsing whois information

SYNOPSIS
           use Net::Whois::Parser;

           my $info = parse_whois( domain => $domain );
           my $info = parse_whois( raw => $whois_raw_text, domain => $domain  );
           my $info = parse_whois( raw => $whois_raw_text, server => $whois_server  );

           $info = {
               nameservers => [
                   { domain => 'ns.example.com', ip => '123.123.123.123' },
                   { domain => 'ns.example.com' },
               ],
               emails => [ 'admin AT example.com' ],
               domain => 'example.com',
               somefield1 => 'value',
               somefield2 => [ 'value', 'value2' ],
               ...
           };

           # Your own parsers

           sub my_parser {
               my ( $text ) = @_;
               return {
                   nameservers => [
                       { domain => 'ns.example.com', ip => '123.123.123.123' },
                       { domain => 'ns.example.com' },
                   ],
                   emails => [ 'admin AT example.com' ],
                   somefield => 'value',
                   somefield2 => [ 'value', 'value2' ],
               };
           }

           $Net::Whois::Parser::PARSERS{'whois.example.com'} = \&my_parser;
           $Net::Whois::Parser::PARSERS{'DEFAULT'}           = \&my_default_parser;

           # If you want to get all values of fields from all whois answers
           $Net::Whois::Parser::GET_ALL_VALUES = 1;
               # example
               # Net::Whois::Raw returns 2 answers
               $raw = [ { text => 'key: value1' }, { text => 'key: value2'}];
               $data = parse_whois(raw => $raw);
               # If flag is off parser returns
               # { key => 'value2' };
               # If flag is on parser returns
               # { key => [ 'value1', 'value2' ] };

           # If you want to convert some field name to another:
           $Net::Whois::Parser::FIELD_NAME_CONV{'Domain name'} = 'domain';

           # If you want to format some fields.
           # I think it is very useful for dates.
           $Net::Whois::Parser::HOOKS{'expiration_date'} = [ \&format_date ];

DESCRIPTION
       Net::Whois::Parser module provides Whois data parsing.  You can add your own parsers for
       any whois server.

FUNCTIONS
       parse_whois(%args)
          Returns hash of whois data. Arguments:

          'domain' -
              domain

          'raw' -
              raw whois text

          'server' -
             whois server

          'which_whois' -
              option for Net::Whois::Raw::whois. Default value is QRY_ALL

CHANGES
       See file "Changes" in the distribution

AUTHOR
       Ivan Sokolov, "<ivsokolov AT cpan.org>"

COPYRIGHT & LICENSE
       Copyright 2009 Ivan Sokolov

       This program is free software; you can redistribute it and/or modify it under the same
       terms as Perl itself.



perl v5.14.2                                2012-01-20                    Net::Whois::Parser(3pm)