Perl & XML. Библиотека программиста

<?xml version="1.0"?>
<spam-document version="3.5" timestamp="2002-05-13 15:33:45">

<!- Автоматически генерируется WarbleSoft Spam, версия 3.5 ->

<customer>

<first-name>Joe</first-name>

<surname>Wrigley</surname>

<address>

<street>17 Beable Ave.</street>

<sity>Meatball</city>

<state>MI</state>

<zip>82649</zip>

</address>

<email>joewrigley@jmac.org</email>

<age>42</age>

</customer>

<customer>

<first-name>Henrietta</first-name>

<surname>Pussycat</surname>

<address>

<street>R.F.D. 2</street>

<city>Flangerville</city>

<state>NY</state>

<zip>83642</zip>

</address>

<email>meow@263A.org</email>

<age>37</age>

</customer>

</spam-document> 

# Программа выполняет замену строчных букв на прописные
# в именах заказчиков по всему XML-документу,

# сформированному приложением WarbleSoft SpamChucker..

# Включение ограничений и предупреждений, в этом случае

# вы знаете что делать.

use strict;

use warnings;

# Импорт модуля XML::Simple.

use XML::Simple;

# Включение файла в хэш-ссылку с помощью процедуры

# "XMLin" из модуля

XML::Simple.

# Также включается опция 'forcearray', поэтому

# все элементы

# содержат ссылки на массив.

my $cust_xml = XMLin('./customers.xml', forcearray=<l);

# Выполнение цикла по каждому субхэшу customer,

# причем все объекты хранятся в виде анонимного

# списка под ключом 'customer'.

for my $customer (@{$cust_xml-<{customer}}) {

# Замена строчных на прописные буквы в элементах

#'first-name' и 'surname' путем выполнения встроенной

# функции Perl, uc().

foreach (qw(first-name surname)) {

$customer-<{$_}-<[0] = uc($customer-<{$_}-<[0]);

}

}

# Повторный вывод на печать хэша в виде XML-документа,

# включающего завершающий символ новой строки

# (для улучшения восприятия кода).

print XMLout($cust_xml);

print "n"; 

<opt version="3.5" timestamp="2002-05-13 15:33:45">
<customer>

<address>

<state>MI</state>

<zip>82649</zip>

<city>Meatball</city>

<street>17 Beable Ave.</street>

</address>

<first-name>JOE</first-name>

<email>i-like-cheese@jfflac.org</email>

<surname>WRIGLEY</surname>

<age>42</age>

</customer>

<customer>

<address>

<state>NY</state>

<zip>83642</zip>

<city>Flangerville</city>

<street>R.F.O. 2</street>

</address>

<first-name>HENRIETTA</first-name>

<email>ineowmeow@augh.org</email>

<surname>PUSSYCAT</surname>

<age>37</age>

</customer>

</opt>