Re: Parsing a line from a line with one line of perl code.

i'm not sure just what you're after here, but the following regex satisfies the requirement for the specific example given.

my $string = '<Prompt><![CDATA[Please ... question).  ]]></Prompt>';
my ($extract) = $string =~ m{ \[CDATA\[ (.*) ]]> }xms;
[download]

Comment on Re: Parsing a line from a line with one line of perl code. Download Code

Replies are listed 'Best First'.
Re^2: Parsing a line from a line with one line of perl code. by Fletch (Bishop) on Nov 09, 2007 at 18:09 UTC
Don't parse (arbitrary) XML with a regex; you're asking for a world of hurt. If you're going to parse a relatively fixed XML input (a one off; a very static source that's not going to change how it creates its XML output), you most likely want to use non-greedy modifiers because it's extremely easy to get something that "looks" like it'll work but is brittle (as has already been recommended elsewhere in this thread). `$ cat foo.pl use strict; use warnings; my $string = qq{<Prompt><![CDATA[Please ... question ). ]]> <![CDATA[[ + FAIL. ]]></Prompt>}; my( $fail ) = $string =~ m{ \[CDATA\[ (.) ]]> }xms; print $fail, "\n"; my( $better ) = $string =~ m{ \[ CDATA \[ (.?) \]\] }x; print $better, "\n"; $ perl foo.pl Please ... question ). ]]> <![CDATA[[ FAIL. Please ... question ).` [download] Addendum: I mean it's not like this topic gets discussed every other week around here or something . . . We're looking for a Perl and Database Developer for Corporate Investments Group.	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Parsing a line from a line with one line of perl code.
by Fletch (Bishop) on Nov 09, 2007 at 18:09 UTC

Don't parse (arbitrary) XML with a regex; you're asking for a world of hurt.
If you're going to parse a relatively fixed XML input (a one off; a very static source that's not going to change how it creates its XML output), you most likely want to use non-greedy modifiers because it's extremely easy to get something that "looks" like it'll work but is brittle (as has already been recommended elsewhere in this thread).

$ cat foo.pl
use strict;
use warnings;

my $string = qq{<Prompt><![CDATA[Please ... question ). ]]> <![CDATA[[
+ FAIL. ]]></Prompt>};
my( $fail ) = $string =~ m{ \[CDATA\[ (.*) ]]> }xms;
print $fail, "\n";

my( $better ) = $string =~ m{ \[ CDATA \[ (.*?) \]\] }x;
print $better, "\n";
$ perl foo.pl
Please ... question ). ]]> <![CDATA[[ FAIL. 
Please ... question ).
[download]

Addendum: I mean it's not like this topic gets discussed every other week around here or something . . .

We're looking for a Perl and Database Developer for Corporate Investments Group.

[reply]
[d/l]