That's the frustrating error:#!/usr/bin/perl use strict; use warnings; use Archive::Zip; use Archive::Zip::MemberRead; my @numberstocheck = qw(112334 999888 222333 999888 0008877 003344 122 +2334 00009 004443 999888); my $zipfile = "test.zip"; my $zip = Archive::Zip->new( $zipfile ) || die; my @xml = $zip->membersMatching( '.*\.XML' ); #my $xmlfile = XML::XPath->new(ioref => @xml); my $xmlfile = XML::XPath->new(ioerf => $xml[0]->readFileHandle ); foreach my $row ($xmlfile->findnodes('/alllist')) { my $nodeset = $row->find('phnumbers'); foreach my $node ( $nodeset->get_nodelist ) { my $numbers = $node->find( 'numbers')->string_value; print "\n 19 - $numbers \n"; foreach (@numberstocheck) { if (/^($numbers)/g) { print "$numbers - ".$_."\n"; } } } }
not well-formed (invalid token) at line 1, column 24, byte 24: Archive::Zip::MemberRead=HASH(0x2061dfc) =======================^ at C:/Perl/lib/XML/Parser.pm line 187
In reply to Re^6: Open a zip file content question!
by Anonymous Monk
in thread Open a zip file content question!
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |