in reply to Re: tagging question
in thread tagging question

I'm pretty sure you can make this code shorter if you really want to, but I am curious why you chose to substitute all lines. That, to me, looks like a lot of useless hassle ;)

Anyways, for the OP, my €0,02:

while(<DATA>) { 
   print "<$1>$1$2<$1>" if $_ =~ m|(\w{2})(.*)|;
}
__DATA__
il yadayadayada
df yadayadayada

[download]
--
b10m

All code is usually tested, but rarely trusted.

Replies are listed 'Best First'.
Re^2: tagging question
by LassiLantar (Monk) on Jul 24, 2004 at 04:03 UTC
    <snappy comeback> Well, he said each line had a tag on the beginning of it, so I figured it would be extra to deal with checking whether it did. </snappy comeback>

    <real excuse> Didn't think of it =) </real excuse>

    Peace,
    LA

[reply]

In Section Seekers of Perl Wisdom