Split words

rajkrishna89 has asked for the wisdom of the Perl Monks concerning the following question:

Hi monks , is there any way to split a word in a .txt file based on a condition ..for eg consider a line

perl monks wisdom
monks perl wisdom
[download]

I want the above lines to be splitted as follows:-

perl
monks
wisdom

monks
perl wisdom
[download]

I want the words prefix or suffix of the "monks" to be printed in a new line..i tried something but i cant get the idea to implement it..Thanks Monks

Comment on Split words Select or Download Code

Replies are listed 'Best First'.
Re: Split words by jwkrahn (Abbot) on Jul 11, 2012 at 14:54 UTC
`$ echo "perl monks wisdom monks perl wisdom" \| perl -lne'print for split /\s(monks)\s/' perl monks wisdom monks perl wisdom` [download]	[reply] [d/l]
Re: Split words by ww (Archbishop) on Jul 11, 2012 at 15:05 UTC
Is your intention to create a new line only upon the appearance of the word "monks?" If not, please refine your spec. If so, `split` is your friend. As split explains (recommended reading!), the function offers the option to -- relevant here -- retain the term upon which you're splitting. Here's one long-winded (and not quite perfect) approach: `#!/usr/bin/perl use 5.014; my @arr = ( "line1 perl monks wisdom", "line2 monks perl wisdom", "line3 perl perl monks monks wisdom", "line4 perl perl monks monks monkly wisdom", ); my $matchword = qr/monks/; for my $line (@arr) { if ( $line =~ $matchword ) { my @arr_out = split /($matchword)/, $line; for my $arr_element(@arr_out) { say $arr_element; } } } =head OUTPUT line1 perl monks wisdom line2 monks perl wisdom line3 perl perl monks monks wisdom line4 perl perl monks monks monkly wisdom =cut` [download]	[reply] [d/l] [select]
Re: Split words by aitap (Curate) on Jul 11, 2012 at 14:53 UTC
Another way to do it: `join("\n",split(/(monks)/,$string));` Sorry if my advice was wrong.	[reply] [d/l]
Re: Split words by Utilitarian (Vicar) on Jul 11, 2012 at 14:57 UTC
`perl -e ' while(<>){@monk_split=split(/\s(monks)\s/);print join"\n", +@monk_split}' ~/tmp/tmp.dat perl monks wisdom monks perl wisdom` [download] `print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."`	[reply] [d/l] [select]
Re: Split words by cheekuperl (Monk) on Jul 11, 2012 at 14:45 UTC
`while($line=<DATA>) { if($line=~/(.)(monks)(.)/) { print "\n$1\n$2\n$3"; } } __DATA__ perl monks wisdom monks perl wisdom` [download]	[reply] [d/l]
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]