История изменений

Исправление joy4eg, 18.04.17 15:52 (текущая версия) :

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;
use feature qw/say/;
use Socket qw/inet_ntoa/;

my $hex = pack 'N', '134744072';
say inet_ntoa($hex); # 8.8.8.8

Исходная версия joy4eg, 18.04.17 15:51:

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;
use feature qw/say/;
use Socket qw(inet_ntoa);

my $hex = pack 'N', '134744072';
say inet_ntoa($hex); # 8.8.8.8