Hi,
#!/usr/bin/perl -w
my $path = shift;
my $machine = shift;
my (undef,$country, $property) = split /\//,$path;
my $xmlData = qx!./pindown. php $machine!;
my @contacts = $xmlData =~ /property name=\"$property\ "
country=\"$country\ ">.+?<contact type=\"admin\ ">.+?<\/contact> /is;
#print "$&\n";
print @contacts;
This prints "1"
But printing $& prints a block of XML.
Why does the array contacts not contain the pattern matched?(Also tried
assigning the matched pattern to a scalar.)
Thanks,
Kapil.V
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
