topical media & game development
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

talk show tell print

professional-xml-17-perl-iteratecustomers.pl / pl



  use XML::Simple;
  
  my file = 'customers.xml';
  
  my doc = XMLin(file, KeyAttr=>[]);
  
  # Iterate over all customers
  print "Iterate over all customers";
  foreach cust (@{doc->{customer})
  {
          print cust->{company}, "\n";
          print cust->{address}->{street}, "\n";
          print cust->{address}->{city}, , ", ", cust->{address}->{country}, "\n";
          print "\n";
  }
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

(C) Æliens 20/2/2008

You may not copy or print any of this material without explicit permission of the author or the publisher. In case of other copyright issues, contact the author.