Pastable version of deldup

<pre class='prettyprint' language='perl'>#!/usr/bin/perl -w
use strict;

if (!$ARGV[0]) {
    die &quot;useage ./delete.pl [file] [options]\n&quot;;
}
my $list = $ARGV[0];
my $option = $ARGV[1];

if ($option eq '-h' or $list eq '--help') {
    print &quot;-b           =&gt; backup the file\n&quot;;
    die &quot;-h || --help =&gt; this menu\n&quot;;
}

my @words;
open(LS, &quot;$list&quot;) || die &quot;couldnt open list\n&quot;;
foreach my $pass (&lt;LS&gt;) {
    push(@words, $pass);
}
close(LS);

if ($option eq '-b') {
    open(BK, &quot;&gt;$list&quot; . '.bak') || die &quot;couldnt open backup list\n&quot;;
    foreach (@words) {
        print BK $_;
    }
    print &quot;File Backed up\n&quot;;
}

my %final;
foreach my $word (@words) {
    $final{$word} = 1;
}
my @final;

foreach (keys %final) {
    push(@final, $_);
}
open(LS, &quot;&gt;$list&quot;) || die &quot;couldnt open list for edit\n&quot;;

foreach (@final) {
    print LS &quot;$_&quot;;
}
close(LS);
print &quot;complete\n&quot;;
exit 0;</pre>
<a href="http://www.refactormycode.com/codes/668-deldup" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>

Refactor :my => 'code'

Recent

Popular

Pastable version of deldup