Файловый менеджер - Редактировать - /usr/share/doc/libnet-xwhois-perl/examples/creation_time
Назад
#!/usr/bin/perl -I../ use Net::XWhois; use Data::Dumper; my $w = new Net::XWhois; $w->register_parser ( Name => 'INTERNIC', Retain => 1, Parser => { creation_time => 'Record created on (\S*?)\.\n', } ); my $domain = shift; my $whois = new Net::XWhois Domain => $domain; print "$domain --\n"; print "Registrant: ", $whois->registrant (); print "\nCreation Time of $domain: ", $whois->creation_time (); print "\n"; print Dumper $w;
| ver. 1.4 |
Github
|
.
| PHP 5.4.45-1~dotdeb+6.1 | Генерация страницы: 0 |
proxy
|
phpinfo
|
Настройка