Good morning, I am a newbie at Perl and trying to figure out how to use the whois command in a loop and I am getting syntax errors at this line use Net::Whois::IP qw(whoisip_query); and im not really sure what I am doing wrong it looks really similar to what I have seen others do. I also try'd a simple foreach loop but ran in to trouble with that here are those errors. syntax error near unexpected token `(' my @domains = ('192.168.22.12','192.168.22.13');'
#!/usr/bin/perl -w use strict; use warnings; use Net::Whois::IP qw(whoisip_query); use Net::Whois; my @domains = ('192.168.22.12','192.168.22.13'); foreach my $domain(@domains) { my ($response) = whoisip_query($domain); foreach (sort keys(%{$response}) ) { print "$_ $response->{$_} \n\n"; } }
#!/usr/bin/perl -w use Net::Whois; use strict; use warnings; my @domains = ('192.168.22.12','192.168.22.13'); foreach$domain(@domains) { whois($domain); }
Any help is greatly appreciated
In reply to Whois Syntax Issue by rlcoca01
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |