Regular expression 1

[shlomyb]

Which regular expression should I use to catch:
<?xml version="1.0" encoding="iso-8859-1"?>

When version can be "<number>.<number>"
And encoding can be some iso number ?

 

[rharsh]

This might help:

my ($version,$encode);

if (m/<?xml\s+version="([^"]+)"\s+encoding="([^"]+)"/) {
    ($version,$encode) = ($1, $2);
    print "$version\|$encode\n";
} else {
    print "No match!";
}

If all your trying to get out of this is the xml version and encoding, by all means, use a regex. If you're trying to parse and entire XML document, that is a fairly non-trivial task that's better left to modules you can download from CPAN. XML::Simple may be of use, depending on how complex your XML structure is - or there are plenty of other modules for you to experiement with.

 

[shlomyb]

Thanks for your answer ....

What about the "?>" at the end ...

 

[MillerH]

One small oversight with rharsh's regular expression. The question mark literal needs to be escaped:

my ($version,$encode);

if (m/<[COLOR=red]\[/color]?xml\s+version="([^"]+)"\s+encoding="([^"]+)"/) {
    ($version,$encode) = ($1, $2);
    print "$version\|$encode\n";
} else {
    print "No match!";
}

 

[rharsh]

Thanks for catching that MillerH.

What about the "?>" at the end ...

Why do you need to match it?