Cara menukar IP ke lokasi negara menggunakan perl dan geoipfree

Konfigurasi ini akan memberikan anda skrip Perl yang mudah yang boleh digunakan untuk mencari nama negara dari alamat IP. Pertama kita perlu memasang libgeo-iPfree-Perl Perpustakaan Perl:

Ubuntu/debian # apt-get pemasangan libgeo-ipfree-perl 

Seterusnya, buat skrip misalnya. IP2Location.pl dengan kod berikut:

#!/usr/bin/env Perl Gunakan geo :: ipfree; saya $ geo = geo :: ipfree-> new; saya ($ kod, $ negara) = $ geo-> lookup ($ argv [0]); Cetak "Negara: $ negara \ n" . "Kod Negara: $ kod \ n" 

Jadikan skrip boleh dilaksanakan:

$ chmod +x ip2location.pl 

Kami IP2Location.pl Skrip Menerima hujah baris arahan tunggal dan itu adalah alamat IP yang kami ingin menukar/mencari nama negara. Contohnya kita melaksanakan skrip dengan hujah 213.213.65.125:

./IP2Location.PL 213.213.65.125 Negara: Kod Negara Itali: Ia 

Skrip di atas boleh digunakan sebagai alat baris arahan mudah untuk menukar alamat IP ke lokasi negara atau ia juga boleh digunakan sebagai contoh untuk menganalisis Apache akses.log dan menukar semua alamat IP ke lokasi negara:

$ untuk i dalam $ (awk 'print $ 1' akses.log | Susun | uniq); lakukan Perl IP2Location.PL $ i; selesai 

Tambahan pula, Perl Geo :: ipfree Perpustakaan juga boleh digunakan untuk mencari nama host:

$ ./IP2Location.PL GNU.Negara Org: Kod Contry Amerika Syarikat: Kami 

Tutorial Linux Berkaitan:

• Cara Membina Aplikasi TKInter Menggunakan Objek Berorientasikan ..
• Ungkapan biasa python dengan contoh
• Advanced Bash Regex dengan contoh
• Pasang Arch Linux di Workstation VMware
• Tutorial Debugging GDB untuk Pemula
• Cara Bekerja Dengan API Rest WooCommerce dengan Python
• Cara menguruskan repositori git dengan python
• Gelung bash dengan contoh
• Cara menyambung ke pelayan FTP menggunakan python
• Cara Menyiapkan Pelayan OpenVPN di Ubuntu 20.04