Perl script to remove duplicated lines !

Rahul Nayak — Mon, 27 Jan 2020 04:48:56 -0600

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

{
  $_ = ;
  my $next_line;

  while( $next_line =  )
  {
    #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

BOL: Perl script to remove duplicated lines !

Perl script to remove duplicated lines !