in reply to Perl Regex Multiline Matching
This
prints#!/usr/bin/perl use strict; use warnings; my $data = join "", <DATA>; # slurp DATA-section while( $data =~ /<property name="(.*?)"\s+value="(.*?)"/gs ) { print qq|$1 -> "$2"\n|; } __DATA__ <?xml version="1.0" encoding="utf-8" standalone="yes"?> <set name="01" id="test" catId="81679" > <cdsets> <cdset id="cdset" name="CD Compilation"> <property name="Own" value=""/> <property name="Type" value="Record"/> <property name="Text" value="Sample text more sample text more more same text]."/> <property name="Unique" value="yes"/> </cdset> </cdsets> </set>
Own -> "" Type -> "Record" Text -> "Sample text more sample text more more same text]." Unique -> "yes"
|
|---|
| Replies are listed 'Best First'. |
|---|