I am working with the IP::Geolocation::MMDB module which replaces the deprecated modules for GeoIP databases.
I am having trouble understanding how to extract data.
my $ip = "8.8.8.8"; my $db = IP::Geolocation::MMDB->new(file => "$geolitecitydb"); my $geodata = $db->record_for_address($ip); print Dumper($geodata); Using Data::Dumper as above to show the results, I see something like (truncated):
Dumper...........$VAR1 = { 'continent' => { 'geoname_id' => 6255149, 'names' => { 'de' => 'Nordamerika', 'es' => "Norteam\x{e9}rica", 'zh-CN' => "\x{5317}\x{7f8e}\x{6d32}", 'ru' => "\x{421}\x{435}\x{432}\x{435}\x{440}\x{43d}\x{430}\x{44f} \x{410}\x{43c}\x{435}\x{440}\x{438}\x{43a}\x{430}", 'fr' => "Am\x{e9}rique du Nord", 'ja' => "\x{5317}\x{30a2}\x{30e1}\x{30ea}\x{30ab}", 'en' => 'North America', 'pt-BR' => "Am\x{e9}rica do Norte" }, 'code' => 'NA' Supposing I just want to grab the value of continent=>names=>en portion (value: 'North America') and write it to a value -- how would I do this? I'm having problems understanding the documentation I'm reading to deal with hashes of hashes.
Most examples I can find online involve looping through all of this; but in my case, I just want to make $somevar = 'North America.' I'd like to repeat it for other data as well, which is returned in this hash.
It feels like something like:
$geodata{city=>names=>en} should work, but it doesn't.
submitted by /u/SqualorTrawler
[link] [comments]
I have been using version 5.22.1 for years, and it did what I needed to do. After all these years, I need some additional functionality, so I thought installing the latest might help.
Which is when I found that ActiveState has changed the installation process totally. Anyway, I went through the installation of the "recommended" version, and installation seemed to go fine.
I then ran the following simple code through both versions.
use HTTP::Tiny; my $url ='https://www.scrapingcourse.com/ecommerce/' ; my $response = HTTP::Tiny->new->get($url); print $response->{content}; Version 5.22.1 runs this fine and gives me the HTML of the page.
Version 5.36.3 gives me the following errors;
IO::Socket::SSL 1.42 must be installed for https support
Net::SSLeay 1.49 must be installed for https support
When I use the old ppm command for Version 5.22.1, it gives me a list of 271 packages installed.
When I used the new "state" command: "state packages", it showed nothing.
So I used "state" to "install" IO-Socket-SSL, and Net-SSLeay, and now those are the only two that show up in the "state packages" list.
But it did not change functionality. The error messages are still there, and no execution.
It doesn't complain about HTTP::Tiny.
I tried installing Strawberry. But it had a problem with a more complex part of my original project, so I went back to ActiveState 5.22.1, which works fine.
Anybody got any ideas about what I need to do to get 5.36.3 actually working?
submitted by /u/AvWxA
[link] [comments]
[link] [comments]
(di) 10 great CPAN modules released last week
Updates for great CPAN modules released last week. A module is considered great if its favorites count is greater or equal than 12. CGI...niceperl.blogspot.com
[link] [comments]
Bowing to the inevitable - Perl Hacks
Data Munging with Perl was published in February 2001. That was over 23 years ago. It's even 10 years since Manning took the book out of print and the rights to the content reverted to me.Dave Cross (Perl Hacks)
