Size: a a a

2020 July 17

AK

Andrey Konovalov in Modern::Perl
коллеги, и, если можно, мне тоже: как преобразовать IPv4 адрес в IPv6 с использованием какой-нибудь тулзы или perl'а?
источник

IB

Ivan Bessarabov in Modern::Perl
@PerlBanjoBot
sub get_ipv6_from_ipv4 {
   my ($ipv4) = @_;
   my @numbers = split /\./, $ipv4;
   
   my $ipv6 = sprintf(
       '0:0:0:0:0:FFFF:%X%X:%X%X',
       @numbers,
   );
   
   return $ipv6;
}

say get_ipv6_from_ipv4('64.233.165.100');
источник

P

PerlBanjoBot in Modern::Perl
Ivan Bessarabov
@PerlBanjoBot
sub get_ipv6_from_ipv4 {
   my ($ipv4) = @_;
   my @numbers = split /\./, $ipv4;
   
   my $ipv6 = sprintf(
       '0:0:0:0:0:FFFF:%X%X:%X%X',
       @numbers,
   );
   
   return $ipv6;
}

say get_ipv6_from_ipv4('64.233.165.100');
0:0:0:0:0:FFFF:40E9:A564
https://PerlBanjo.com/95ba203b29
источник

AK

Andrey Konovalov in Modern::Perl
Мама... А человечество вообще ничего для этого не придумало попроще?
источник

AK

Andrey Konovalov in Modern::Perl
Мне просто в инструкцию вставить... Хм
источник

IB

Ivan Bessarabov in Modern::Perl
Вставляй"
источник

VG

Vadim Goncharov in Modern::Perl
если целевая софтина умеет такое парсить, то просто препендится префикс к v4-адресу
источник

IB

Ivan Bessarabov in Modern::Perl
"наберите в гугле 'convert ipv4 to ipv6', найдтите инструмент и преобразуйте айпи адрес"
источник

VG

Vadim Goncharov in Modern::Perl
ибо форматов IPv6-адресом несколько... и не все умеют полностью))
источник

AK

Andrey Konovalov in Modern::Perl
Ivan Bessarabov
"наберите в гугле 'convert ipv4 to ipv6', найдтите инструмент и преобразуйте айпи адрес"
Именно это я и сделал :) Вот потому и сюда пришёл: нету нифига
источник

AK

Andrey Konovalov in Modern::Perl
Ладно, тогда скриптом закину просто.
источник

IB

Ivan Bessarabov in Modern::Perl
источник

IB

Ivan Bessarabov in Modern::Perl
у нас с тобой какие-то разные гуглы
источник

AK

Andrey Konovalov in Modern::Perl
CLI
источник

IB

Ivan Bessarabov in Modern::Perl
ну заверни эту сабу в простой perl скрипт и дай пользователям
источник

AK

Andrey Konovalov in Modern::Perl
CLI-утилита нужна в Linux, которая yum install ...
источник

AK

Andrey Konovalov in Modern::Perl
Да, thanks, пожалуй, так и сделаю :) Некогда думать уже :)
источник

IB

Ivan Bessarabov in Modern::Perl
Andrey Konovalov
Именно это я и сделал :) Вот потому и сюда пришёл: нету нифига
ты не понял, я не предлагал тебе искать, а предложил вставить в доку инфу про online инструмент
источник

AK

Andrey Konovalov in Modern::Perl
Онлайн у нас не очень катит, это сеть банка, где IE 11 через какую-то жопу, а на серверах вообще нет интернета ни в каком виде. Я твой код скопировал в тулзу - такое решение точно ОК
источник

AT

Askar Timirgazin in Modern::Perl
... а потом окажется, там sql-инъекция была!
источник