Net::W...Parser(3pm)

💖 Net::W...Parser — your fave whois whisperer 💖

okay so bestie, welcome to Net::W...Parser(3pm), one of the pages that lives under User Contributed Perl Documentation 🌸. It's the manual for Net::Whois::Parser and honestly? she eats. let's get into it 💅

---

✨ NAME ✨

Net::Whois::Parser — a module for parsing whois information 🦋

---

🎀 SYNOPSIS 🎀

okay so first things first, you pull her in:

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@example.com' ],
    domain => 'example.com',
    somefield1 => 'value',
    somefield2 => [ 'value', 'value2' ],
    ...
};

like, that's the whole vibe — you feed her a domain or some raw text, she hands you back a lil hash full of goodies. nameservers? emails? domain? whatever the server decided to spill? all in there 😌✨

but WAIT, there's more, because you can also write your own parsers, and that's the part that's genuinely iconic:

# 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@example.com' ],
        somefield => 'value',
        somefield2 => [ 'value', 'value2' ],
    };
}

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

yes bestie, you just drop your sub into %Net::Whois::Parser::PARSERS keyed by whois server, and if nobody matches, 'DEFAULT' catches it. main character energy fr fr 👑

and then there's the lil extras, the seasoning, if you will 🍓:

# 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 ];

so $GET_ALL_VALUES decides whether repeated fields collapse down to the last one or pile up into a whole array, %FIELD_NAME_CONV renames fields for you, and %HOOKS lets you run your own formatting on a field — and yeah, dates are literally the perfect use case for that, no cap 🗓️💖

---

🌈 DESCRIPTION 🌈

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

that's it, that's the pitch — she parses whois data, and she's endlessly extendable, so every server can have its own lil handler. obsessed 💜

---

👑 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@cpan.org>" — ty for your service king 💖

---

💅 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. 🎀

---

and that's the whole page bestie, we're done!! this was perl v5.34.0, dated 2022-06-16, and the page you just read is Net::W...Parser(3pm). go forth and parse some whois, you're gonna slay 💖✨🦋🌸💅👑