.(BASH|ZSH)_HISTORY CLEANER - Delete duplicate rows as keeping the order.

history_cleaner.pl

#!/usr/bin/env perl
use strict;
use warnings;
use feature qw(say);

my @lines;
while (<>) {
    chomp;
    next unless $_;
    push @lines, $_;
}
my %seen;
my @uniq = grep { ++$seen{$_} < 2 } @lines;
say $_ for @uniq;

__END__

=head1 NAME

.(BASH|ZSH)_HISTORY CLEANER

=head1 DESCRIPTION

Delete duplicate rows as keeping the order.

=head1 USAGE

cat ~/.zsh_history | perl history_cleaner.pl > ~/.zsh_history.tmp; mv ~/.zsh_history.tmp ~/.zsh_history

usage.txt

cat ~/.zsh_history | perl history_cleaner.pl > ~/.zsh_history.tmp; mv ~/.zsh_history.tmp ~/.zsh_history