On 4/29/06, Alan Campbell <[EMAIL PROTECTED]> wrote:
hello folks,
I'm trying to do a 'medium' greediness regular expression. Here's what I
mean. I need to grab all of the DW_TAG_TI_reserved stuff and kill it (italics
below)
<die id='0x157'>
<tag>DW_TAG_TI_assign_register</tag>
<attribute>
<type>DW_AT_location</type>
<value>
<block>DW_OP_reg0</block>
</value>
</attribute>
</die>
[snip]
A couple of thoughts: If you read this list regularly, you already
know the advice you're going to get: there are hundreds of xml modules
on CPAN. Use them! Don't reinvent the wheel.
If you really insist on doing this by hand, we need to see more code.
How are you approaching this? On the surface, it looks pretty simple:
{
$lf = "\n";
local $/ = "</die>" . $lf;
whlie (<>) {
print unless /DW_TAG_TI_reserved/;
}
}
Your question, though, leads me to think there's more going on.
So let me just reiterate my original advice again: use a mudule.
HTH,
-- jay
--------------------------------------------------
This email and attachment(s): [ ] blogable; [ x ] ask first; [ ]
private and confidential
daggerquill [at] gmail [dot] com
http://www.tuaw.com http://www.dpguru.com http://www.engatiki.org
values of β will give rise to dom!
