Script na parsovani souboru kvuli internetovym adresam? (dodatek)

[Ing. Vlastimil Pospíchal]

On Thu, Apr 17, 2003 at 10:07:13AM +0200, Tomas Kouba wrote:
> > Jak tak na to koukám, nakonec bude stačit jeden řádek Perlu, který si poradí
> > i s těmi duplicitami. Naučit se regulární výrazy se určitě vyplatí.
> 
> Mohl byste se o ten jeden radek podelit ? Docela by me zajimalo prave to
> jak se vyporadate s duplicitami.
> Diky
> -- Tomas Kouba

Zde je příklad, jak se v Perlu vypořádat s duplicitami. Možná by se to vešlo
na jeden delší řádek, ale pro přehlednost to napíši na více řádků. Určitě to
lze napsat ještě lépe.

#!/usr/bin/perl
open(DATA,"maily.txt");
while(<DATA>){
 $hash{"$_"}=1;
};
open(DATA,">>maily.txt");
while(<>){
 if(!exists($hash{"$_"})){
  $hash{"$_"}=1;
  print DATA;
 }
};

Kit
-- 
Ing. Vlastimil Pospíchal
http://www.hoteldrnholec.cz