pupok
Задание №1
my @array = (1,2,3,4,5);
my %Hash;
map {
$Hash{$_} = $array[$_];
} (0 .. $#array);
Задание №2
причем тут регексп? :
my $string = "abcdefg";
print length $string;
но если хотите:
my $string = "abcdefg";
my $length=0;
map {$length++}($string =~/./g);
print $length;
Задание №3
блять, вот преподам надо за это руки отрезать!!!
какой в пезду "Первичный ключ" !!!??? Что за терминология?
долбоебизм:
use Data::Dumper;
my $data;
$data = [
{futs=>"apple", futs_faworite=>1, futs_not_faworite=>0, futs_tasty=>1, futs_not_tasty=>0},
{futs=>"orange", futs_faworite=>1, futs_not_faworite=>1, futs_tasty=>1, futs_not_tasty=>1},
];
print Dumper $data;