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

Discussion in 'Уязвимости Mail-сервисов' started by Forser, 6 Apr 2010.

  1. Forser

    Forser Member

    Joined:
    21 Sep 2009
    Messages:
    32
    Likes Received:
    6
    Reputations:
    1
    #1 Forser, 6 Apr 2010
  2. wildshaman

    wildshaman Elder - Старейшина

    Joined:
    16 Apr 2008
    Messages:
    477
    Likes Received:
    483
    Reputations:
    99
    Text Dublicate Killer (TDK)
     
    #2 wildshaman, 6 Apr 2010
  3. Uex Urgent

    Uex Urgent Злостный Смайлик

    Joined:
    6 Feb 2009
    Messages:
    236
    Likes Received:
    463
    Reputations:
    452
    _________________________
    #3 Uex Urgent, 6 Apr 2010
  4. Forser

    Forser Member

    Joined:
    21 Sep 2009
    Messages:
    32
    Likes Received:
    6
    Reputations:
    1
    Благодарю!
     
    #4 Forser, 6 Apr 2010
  5. CyberHunter

    CyberHunter Active Member

    Joined:
    6 Jan 2010
    Messages:
    601
    Likes Received:
    116
    Reputations:
    37
    EmailGrabber
     
    #5 CyberHunter, 6 Apr 2010
  6. kaban931

    kaban931 New Member

    Joined:
    14 Oct 2009
    Messages:
    6
    Likes Received:
    2
    Reputations:
    0
    как перемешать строки?
     
    #6 kaban931, 7 Apr 2010
  7. djoni84

    djoni84 Active Member

    Joined:
    20 Jun 2009
    Messages:
    82
    Likes Received:
    151
    Reputations:
    0
    http://forum.antichat.ru/thread168432.html вот может подойдёт я постоянно с ней пользуюсь.
     
    #7 djoni84, 8 Apr 2010
  8. shiku

    shiku Member

    Joined:
    6 Aug 2009
    Messages:
    0
    Likes Received:
    25
    Reputations:
    1
    KeyWordKeeper и перемешает и удалит дубликаты
     
    #8 shiku, 11 Apr 2010
  9. YuNi|[c

    YuNi|[c Elder - Старейшина

    Joined:
    17 Sep 2006
    Messages:
    293
    Likes Received:
    33
    Reputations:
    18
    Code:
    #!/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;
    для дубликата
     
    #9 YuNi|[c, 11 Apr 2010
(You must log in or sign up to post here.)
Language
English (US)
    ANTICHAT ™ © 2001-2027 Antichat Kft.