Есть задача, раз в час запускается скрипт который выполняет некоторые действия по группам. Надо вести статистику результотов.
К примеру есть файл правил
[dejstvije1]
cp aaa bbb
mv aaa ~/tmp/
[dejstvije2]
rm aaa
mv bbb ccc
Хотелось бы в конце дня иметь статистику, сколько раз удачно завершилось каждое из действий.
Для этого я подумал хорошо бы при выполнении скрипта результаты сразу-же писать в DBM хеш, при этом, есчё лучшу было бы, чтоб этот хеш был двухмерным, то-есть такого вида:
$h{'dejstvije1'}{cp aaa bbb}=....(число сработавших раз)
$h{'dejstvije1'}{cp aaa ~/tmp/}=....(число сработавших раз)
вот, возможно ли это использую DBM
и второй вопрос как можно в цыкле получить значения из втрого хеша?
Пробую так не получается.
$h{'a0'}{bin}="BIN";
$h{'a0'}{term}="TERM";
$h{'a1'}{bin}="BIN1";
$h{'a1'}{term}="TERM1";
while ( ($key,%t) = each %h) {
print $key;
while ( $k,$value = each %t) {
print " $k -> $value\n";
}
}
Выводит:
a1 -> HASH(0x804cc3c)
a0 -> HASH(0x804ce04)
Тут должно быть приобразование типов?
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Похожие темы
- Форум Perl - помогите найти ошибку (2013)
- Форум Добавление элементов в hash reference в рекурсивной функции (2015)
- Форум Как получить двухмерный массив (2018)
- Форум Массив на PERL (2011)
- Форум perl + трехмерный массив (2007)
- Форум [Perl] Хэш или массив? (2011)
- Форум Как убить массив?!! Perl (2004)
- Форум Двухмерный vector (2006)
- Форум perl добавить элементы в массив, cоздать массив... (2017)
- Форум Perl подскажите как обработать массив (2005)