Re: regex problem

It think this solves your problem:

foreach my $email (@split_msg)
{
   my ($title, $tags, $msg);

   $email =~ m/\[title\](.+)\[title\]/i;
   $title = $1;

   # match in single line mode
   $email =~ m/\[message\](.*)\[message\]/is;
   $msg = $1; # match is again in $1

   print "TITLE:$title\nMESSAGE:$msg\n";
}
[download]

Comment on Re: regex problem Download Code

Replies are listed 'Best First'.
Re^2: regex problem by jaimon (Sexton) on Mar 18, 2011 at 14:08 UTC
And while you are at it, why not shrink the code to `foreach (...) { my ($title,$tag,$message) = $email =~ /\[title](.)\[title].\[tags](. +)\[tags].\[message](.*)\[message]/is; ... }` [download]	[reply] [d/l]
Re^3: regex problem by arkturuz (Curate) on Mar 22, 2011 at 12:53 UTC
Yeah, sure, but I didn't want to confuse the OP.	[reply]

In Section Seekers of Perl Wisdom