From 5e9897fd23205368561cf118645256e058e79365 Mon Sep 17 00:00:00 2001
From: Jay Hannah <jay@jays.net>
Date: Wed, 21 Jul 2010 16:33:23 -0500
Subject: [PATCH] XML::Twig demo for Przemek

---
 Przemek/go.pl     | 17 +++++++++++++++++
 Przemek/input.xml | 29 +++++++++++++++++++++++++++++
 2 files changed, 46 insertions(+)
 create mode 100644 Przemek/go.pl
 create mode 100644 Przemek/input.xml

diff --git a/Przemek/go.pl b/Przemek/go.pl
new file mode 100644
index 0000000..7d3f520
--- /dev/null
+++ b/Przemek/go.pl
@@ -0,0 +1,17 @@
+use strict;
+use XML::Twig;
+
+my $twig = XML::Twig->new();
+$twig->parsefile('input.xml');
+my $root = $twig->root;
+foreach my $imp ($root->children('important')) {
+   my $name = $imp->att('name');
+   my $arg  = $imp->first_child('imp_arg')->att('arg');
+   my $ele  = $imp->first_child('imp_element')->text;
+   print join ",", $name, $arg, $ele;
+   print "\n";
+}
+
+
+
+
diff --git a/Przemek/input.xml b/Przemek/input.xml
new file mode 100644
index 0000000..a1079b9
--- /dev/null
+++ b/Przemek/input.xml
@@ -0,0 +1,29 @@
+<document>
+<smth>xxx</smth>
+<important name="1">
+<imp_arg arg="a"></imp_arg>
+<not_imp arg= "123"></not_imp>
+<imp_element>"A"</imp_element>
+</important>
+<important name="2">
+<imp_arg arg= "b"></imp_arg>
+<not_imp arg= "123"></not_imp>
+<imp_element>"B"</imp_element>
+</important>
+<important name="3">
+<imp_arg arg= "c"></imp_arg>
+<not_imp arg= "123"></not_imp>
+<imp_element>"C"</imp_element>
+</important>
+<important name="4">
+<imp_arg arg= "d"></imp_arg>
+<not_imp arg= "123"></not_imp>
+<imp_element>"D"</imp_element>
+</important>
+<important name="5">
+<imp_arg arg= "e"></imp_arg>
+<not_imp arg= "123"></not_imp>
+<imp_element>"E"</imp_element>
+</important>
+<nothing_special></nothing_special>
+</document>