open (OWO, "+>$owo") or die $!;
[download]

    @ary = <OWO>;
[download]

    %hsh;
[download]

    undef @hsh {@ary};
[download]

    @list = keys %hsh;
[download]

I would write the code somewhat like this (untested, may contain errors):

 
    open my $fh => "+< $owo" or die "Failed to open $owe: $!\n";
    my %seen;
    my @unique = grep {!$seen {$_} ++} <$fh>;
    seek $fh, 0, 0 or die "Failed to seek $owe: $!\n";
    print $fh @uniqe;
    truncate $fh => tell $fh or die "Failed to truncate $owe: $!\n";
    close $fh;
[download]

    system "sort -u $owe > $owe.tmp; mv $owe.tmp $owe";
[download]

-- Abigail

Not quite sure what this is supposed to do. @ary is empty. So, you are undefining nothing at all. But, even if there was something to undefine, all it undefines is values, while the rest of the code uses keys. Hence, it seems to be pointless in stereo.

No it' not pointless in stereo. undef undefes values, correct. But undef *defines* the *keys* of the values.

       all
  it undefines is values

For a moment you had it there, to bad you didn't read your post.

Having said that, let's try again:

use strict;
use IO::File;

my $owo = IO::File->new('owo.txt') or die "no open $!";
my %hash  = ();
my @list  = ();

# updated, i was on crack or something - i actually said
# to localize $/ to slurp the contents into an array . . . DOH!
my @ary = <$owo>;

foreach my $item (@ary) {
    push(@list,$item) unless $hash{$item}++;
}

print join("\n", @list), "\n";
[download]

Second pointer, i like IO::File, you don't have to use it, but if you like OO style, i highly recommend it.

Third, go buy The Cookbook . . . that's where i learned to do this. :)

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--

use strict;

my ($owo) = "c:/script/owo.txt";

open (OWO, $owo) || die $!;
my (@array, %hash);
foreach (<OWO>) {

    #   push the read line of the file into @array only if it has
    #   not already been encountered
    #
    push (@array, $_) unless (defined($hash{$_}));

    #   store the line as a key of a hash showing that it has been
    #   read previously
    #
    $hash{$_} = 1;
};
close (OWO);

#   Print the unduplicated collection of lines out to the file
#
open (OWO, ">$owo") || die $!;
print OWO join("", @array);
close (OWO);

exit 0;
[download]

Ooohhh, Rob no beer function well without!

perldoc -q duplicate

open (OWO, "+>$owo") or die $!;
#in read-write mode seems to clear it

#this line made it work fine for me... (in linux anyway)
open (OWO, $owo) or die $!;
[download]

chomp(@ary = <OWO>);
[download]

if you do care about order from the file, you the suggestions others have posted.

                - Ant

$owo = "c:/scripts/owo.txt";

open(FILE,"<$owo") || die $!;           # read file
my @list = keys %{{map{$_,1} <FILE>}};  # remove duplicates
close(FILE);

open(FILE,">$owo") || die $!;           # write file
foreach (@list) { chomp; print FILE "$_\n"; }
close(FILE);
[download]