<?xml version="1.0" encoding="UTF-8"?>
<ЖурналТК="ТК">
<Trek>
<Zakazchik>Иван</Zakazchik>
<TrekCod>17</TrekCod>
</Trek>
<Trek>
<Zakazchik>Сергей</Zakazchik>
<TrekCod>2</TrekCod>
</Trek>
<Trek>
<Zakazchik>Алексей</Zakazchik>
<TrekCod>3</TrekCod>
</Trek>
</Trek>
есть Xml !перебрав в цикле все теги Trek
и проверяя у каждого TrekCod
, пробую вывести Zakazchik
,с TrekCod
3
my $xml = XML::Simple->new();
my $list = $xml->XMLin('trek.xml');
for my $Trek ( keys $list->{Trek} ) {
if ($list->{Trek}->{$Trek}->{TrekCod} == 3) {
print "$Trek\n";
}
}
Не работает. В чем может быть ошибка?
Обновление
Исправил XML, но все равно не работает.
<?xml version="1.0" encoding="UTF-8"?>
<TK>
<Trek>
<Zakazchik>Иван</Zakazchik>
<TrekCod>17</TrekCod>
</Trek>
<Trek>
<Zakazchik>Сергей</Zakazchik>
<TrekCod>2</TrekCod>
</Trek>
<Trek>
<Zakazchik>Алексей Экспорт</Zakazchik>
<TrekCod>3</TrekCod>
</Trek>
</TK>
<ЖурналТК="ТК">
и парный к нему</Trek>
- имена этих тегов должны совпадать. А внутри них много вложенныхTrek
, что хоть и корректно, но наводит на раздумия. – KoVadim 22 фев '16 в 13:59