yitzle wrote:
Issues with both methods:
John's doesn't work for this data:
aaaaaa
aaaaaa
bbb
cccccc
cccccc
I would expect:
aaaaaa
bbb
cccccc
I would get:
aaaaaa
bbb
cccccc
cccccc
It works for me:
$ perl -le'
my $data = q[aaaaaa
aaaaaa
bbb
cccccc
cccccc
];
print $data;
$data =~ s/(.*\n)(?=\1)//g;
print $data;
'
aaaaaa
aaaaaa
bbb
cccccc
cccccc
aaaaaa
bbb
cccccc
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
