История изменений
Исправление
DELIRIUM,
(текущая версия)
:
Раз тут все красивостями меряются, то я вот так:
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010; # say
my @list = (1, 2, 3, 4, 5, "penis");
my $last = (reverse @list)[0];
say $last;
Итог:
$ ./test.pl
penis
Исходная версия
DELIRIUM,
:
Раз тут все красивостями меряются, то я вот так:
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010; # say
my @list = (1, 2, 3, 4, 5, "penis");
my $last = (reverse @list)[0];
say $last;
$ ./test.pl
penis