Using perl Syntax Highlighting
- use Net::Whois::Raw;
- $ip = "127.0.0.1";
- print "\n\n";
- print "\t\tExtrayendo info de $ip\t\t\n\n";
- $dominfo = whois('perl.com');
- ($dominfo, $whois_server) = whois('funet.fi');
- $reginfo = whois('REGRU-REG-RIPN', 'whois.ripn.net');
- $arrayref = get_whois("$ip", undef, 'QRY_ALL');
- $text = get_whois("$ip", undef, 'QRY_LAST');
- my $hola = ($text, $srv) = get_whois("$ip", undef, 'QRY_FIRST');
- print $reginfo;
- print $text;
- print $arrayref;
- print "\n";
- print "Good Bye\n\n";
- exit 1;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Y me tira un error: Undefined subroutine utf8::SWASHGET ¿Alguien me explica cómo hago para arreglarlo?