
miller
User
Apr 27, 2011, 12:03 AM
Post #2 of 2
(4448 views)
|
Re: [sgurumukhi] Need to write a regular expression.
[In reply to]
|
Can't Post
|
|
use XML::Simple
use XML::Simple; use strict; my $data = do {local $/; <DATA>}; my $xml = XMLin($data); use Data::Dumper; print Dumper($xml); __DATA__ <ResourceCompile> <PreprocessorDefinitions>INTL_US;NDEBUG;%(PreprocessorDefinitions)</PreprocessorDefinitions> <Culture>0x0409</Culture> <AdditionalIncludeDirectories>res\us;res;..\dlls;..\qw;..\ictls;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> <ResourceOutputFileName>$(IntDir)$(ProjectName).res</ResourceOutputFileName> </ResourceCompile>
(This post was edited by miller on Apr 27, 2011, 12:04 AM)
|