Удалить дубликаты мыл из .txt

[Forser]

Нужно удалить дубликаты!
Пример список мыл из .txt:
111@mail.ru
222@mail.ru
333@mail.ru
111@mail.ru
222@mail.ru
333@mail.ru

Подскажите чем удалить дубликаты?

[wildshaman]

Text Dublicate Killer (TDK)

[satana-fu]

http://forum.antichat.ru/showpost.php?p=1945926&postcount=10 (http://tinyurl.com/yf6x34q)


Смотри сколько ответов было там....

[Forser]

Text Dublicate Killer (TDK)
Благодарю!

[CyberHunter]

EmailGrabber

[Redwood]

Нужно удалить дубликаты!
Пример список мыл из .txt:
111@mail.ru
222@mail.ru
333@mail.ru
111@mail.ru
222@mail.ru
333@mail.ru

Подскажите чем удалить дубликаты?


<?php
$list = array_unique(file('list.txt'));
foreach ($list as $value)
echo "$value </br>";
?>

[kaban931]

как перемешать строки?

[Redwood]

как перемешать строки?

<?php
$file = file ('file.txt');
shuffle ($file);
foreach ($file as $value)
echo "$value </br>";
?>

[djoni84]

http://forum.antichat.ru/thread168432.html вот может подойдёт я постоянно с ней пользуюсь.

[shiku]

KeyWordKeeper и перемешает и удалит дубликаты

[YuNi|[c]

#!/usr/bin/perl -w
use strict;
my $origfile = shift;
my $outfile = "no_dupes_" . $origfile;
my %hTmp;
open (IN, "<$origfile") or die "Couldn't open input file: $!";
open (OUT, ">$outfile") or die "Couldn't open output file: $!";
while (my $sLine = <IN>) {
next if $sLine =~ m/^\s*$/; #remove empty lines. Without this, still destroys empty lines except for the first one.
$sLine=~s/^\s+//; #strip leading/trailing whitespace
$sLine=~s/\s+$//;
print OUT qq{$sLine\n} unless ($hTmp{$sLine}++);
}
close OUT; close IN;

для дубликата