Re: Placing text onto multiple lines


We don't bite newbies here... much
	PerlMonks

Re: Placing text onto multiple lines

by vladb (Vicar)

on May 11, 2003 at 22:31 UTC ( [id://257293]=note: print w/replies, xml )

Need Help??

in reply to Placing text onto multiple lines

This works for me:

use strict;

while (<DATA>) {
  chomp();
  my ($first, @rest) = split "<job>";
  print "$first<job>$_\n" for @rest;
}

__DATA__
John Smith 25 May 2003 <job>Manager Clean-up
John Smith 25 May 2003 <job>Manager Clean-up <job>Manager Books
John Smith 25 May 2003 <job>Manager Clean-up <job>Manager Books <job>M
+anager Acounts
[download]

And output:

John Smith 25 May 2003 <job>Manager Clean-up
John Smith 25 May 2003 <job>Manager Clean-up
John Smith 25 May 2003 <job>Manager Books
John Smith 25 May 2003 <job>Manager Clean-up
John Smith 25 May 2003 <job>Manager Books
John Smith 25 May 2003 <job>Manager Acounts
[download]

_____________________
"We've all heard that a million monkeys banging on a million typewriters will eventually reproduce
the entire works of Shakespeare. Now, thanks to the Internet, we know this is not true."

Robert Wilensky, University of California