Хеши

С помощью функции exists о можно проверить существование элемента хеша:
%Mass = ("Один" => 1, "Два" => 2, "Три" => 3) ; if (exists($Mass{"Один"})) {
print ’’Переменная \$Mass{"Один"} определена”;
}
else {
print "Переменная \$№ass{"Один’} не определена\п";
} # Выведет Переменная $Mass{"Один"} определена
Ассоциативные массивы удобно использовать для подсчета вхождений слова в строку. Произведем подсчет вхождений и выведем результат в текущем по¬рядке, по возрастанию и по убыванию количества вхождений:
#!/usr/bin/perl -w
# Выводим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n";
@Mass=qw(flBa три два один три три один два три
три один два один один один);
for($i=0; $i<@Mass; $i++) {
$Mass2{$Mass[$i]}++;
}
while (($key, $value) = each(%Mass2)) { print "$key => $value ";
} # Выведет один => б два => 4 три => 5
print "<BR>";
# Вывод с сортировкой по возрастанию
foreach (sort { $Mass2{$a} <=> $Mass2{$b} } keys(%Mass2)) { print "$_ => $Mass2{$_} ";
} # Выведет два => 4 три => 5 один => б
print "<BR>";
# Вывод с сортировкой по убыванию
foreach (sort { $Mass2{$b} <=> $Mass2{$a} } keys(%Mass2)) { print "$_ => $Mass2{$_} ";
} # Выведет один => б три => 5 два => 4



Страница: 1 | 2