IB
где?
Size: a a a
2020 July 17
SZ
Ладно, тогда скриптом закину просто.
Так сделай в одну строку
Либо если нужно несколько ip, то можно так:
$ perl -e 'printf "::FFFF".":%X%X"x2, split /\./, shift' 64.233.165.100Либо если нужно несколько ip, то можно так:
$ echo 64.233.165.100 | perl -ne 'printf+join(":%X%X"x2,::FFFF,$/),split/\./'SZ
@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');Хотя, конечно, это не совсем корректное решение
SZ
коллеги, и, если можно, мне тоже: как преобразовать IPv4 адрес в IPv6 с использованием какой-нибудь тулзы или perl'а?
А тебе с какой целью нужно?
2020 July 19
D
🙈
D
ipv6calc
P
P
В этом архиве есть mojolicious, перл пока не нашел)
DF
Потому что перл только недавно там появился
DF
Или не появился ещё
DF
А, ну норм. Раньше то только зеркало было
2020 July 20
W
Так, господа.... Закончили оффтоп сами или я покараю всех непричастных. Это не про Перл.
W
Вадим пошел в блок на недельку
AR
W
Всем желающим продолжить тот срач - идите к Вадиму в курилку.
2020 July 21
AT
А есть какие-то ссылки или размышления, какой Try Catch модуль использовать и в каких случаях?
MA
eval или try::tiny
AT
и если используешь eval, то не факт что тебе прилетит изначальный $@, поэтому надо проверять возвращаемое из eval блока значение, так?
ТО
eval { ... 1; } or do {} точно мимо не пролетит