Re: Split words

while($line=<DATA>)
{
    if($line=~/(.*)(monks)(.*)/)
    {
            print "\n$1\n$2\n$3";
    }
}
__DATA__
perl monks wisdom
monks perl wisdom
[download]

Comment on Re: Split words Download Code

Replies are listed 'Best First'.
Re^2: Split words by ww (Archbishop) on Jul 11, 2012 at 15:18 UTC
fails when the split word, `monks`, is repeated: `__DATA__ perl monks wisdom monks perl wisdom perl perl monks monks wisdom perl perl monks monks monkly wisdom` [download]	[reply] [d/l] [select]
Re^3: Split words by cheekuperl (Monk) on Jul 11, 2012 at 15:41 UTC
Nice observation! However, for repeating "monks" all we need is this: while($line=<DATA>) { while($line=~m/monks/g) { print "\n==>$`\nmonks\n$'"; } } [download] Now I've assumed prefix of "monks" means whatever precedes "monks" in the string (even if it contains previous "monks") Same goes for postfix.	[reply] [d/l]