-- for useless use of capturing parens, and also for backslashing < and >
I'm also thinking there's something the OP left out of the specification, because of the stipulation about "must match the first but not the second", so your solution is likely incomplete.
--chargrill
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
| [reply] [d/l] [select] |
Good call...this might do the trick (assuming Roxy is static)
while(<DATA>) {
chomp;
$_ =~ s/rcvtime.*<0a>// unless /Roxy/;
print "$_\n";;
}
__DATA__
rcvtime=2006102600322813316-sndtime=2006102600323042116-msgtext=FRM\3a
+Matd<0a>
rcvtime=2006102611373625516-sndtime=2006102611373640716-msgtext=FRM\3a
+Roxy<0a>
| [reply] [d/l] |