LINUX.ORG.RU

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

Исправление gh0stwizard, (текущая версия) :

#!perl

use strict;
use warnings;

my @ponies =
    qw/ rarity rainbow fluttershy twilight pinkie applejack /;

print my $ponies = @ponies;

Это называется динамическое сопоставление типов. Вот это тебя может удивить:

#!perl

use strict;
use warnings;

my %pirates = (
    "Cpt. Jack" => 1,
    "Ehhhh" => 1,
);

print my $pirates = %pirates;

Исходная версия gh0stwizard, :

#!perl

use strict;
use warnings;

my @ponies =
    qw/ rarity rainbow fluttershy twilight pinkie applejack /;

print my $ponies = @ponies;

Это называется динамическое сопоставление типов. Вот это тебя может удивить:

#!perl

use strict;
use warnings;

my %pirates = (
    "Cpt. Jack" => 1,
    "Ehhhh" => 1,
);

print my $pirates = %pirates;
[/perl]