BOL: Remove the duplicated line present only next to each other with Perl

X

BOL wishing you a very and Happy New year

Alternative content

BioScripts
Jit
Remove the duplicated line present only next to each other with Perl

Remove the duplicated line present only next to each other with Perl

By Jit 2531 days ago

#!/usr/bin/perl
use strict;
use warnings;

{
  $_ = <DATA>;
  my $next_line;

  while( $next_line = <DATA> )
  {
    #print "current line: $_ -- next line: $next_line$/";
    print $_ if $_ ne $next_line;
  }
  continue
  {
    $_ = $next_line;
  }
print $_ if eof;
}
__DATA__
apple
apple
plum
vinegar
apple
banana
banana
banana
apple