RE: lug-bg: Perl wizards

[bkrosnov@xxxxxxxxx (Boyan Krosnov)]

Hi all,

mislq che towa ti trqbwa :)

#loadwane na zapisite w nqkakyv hash kato key-a na hash-a ti 
#e neshtoto po koeto iskash da sa unikalni
open(F,"<filename");
while (<>) {
  chomp;
  @a=split(/ /);
  $hash{$a[0]}=$_; 
# twa prawi hash s key poleto do pyrwiq interval .. 
# ako ima redowe s ednakwa pyrwa kolona te shte se zapishat w syshtiq
element na hasha
# t.e. shte ostane posledniq red s tozi key
# zabeleji che e mnogo lesno da prawish unikalnost po proizwolen kriterij
}
close(F);
#pisane na zapisite
open(F,">filename");
while (($key,$value)=each(%hash)) {
  print $value;
}
close(F);
#tolkoz

Regards,

--
Boyan Krosnov (http://www.nat.bg/~bkrosnov)
Network Administrator
Lirex BG Ltd. 

> -----Original Message-----
> From: Peter Georgiev [mailto:peterg@xxxxxxxxxxxxx]
> Sent: Tuesday, October 24, 2000 1:44 PM
> To: LUG-BG
> Subject: lug-bg: Perl wizards
> 
> 
> Hiya all,
> 
> Znachi imam textov file s okolo 200000 zapisa,
> kato vseki zapis e na otdelen red.
> 
> Iskam da izchistia tezi zapisi, koito se dublirat.
> 
> Niakoi mozhe li da drasne edno redche na Perl, che hich me niama...
> 
> TKS in ADV
> Pesho
> ==================================================================
> A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers)
> Otpiswaneto RABOTI !!! : Majordomo@xxxxxxxxxxxxxxxxxx 
> UNSUBSCRIBE LUG-BG
> http://www.linux-bulgaria.org/ Hosted by Internet Group Ltd. 
> - Stara Zagora
> 

==================================================================
A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers)
Otpiswaneto RABOTI !!! : Majordomo@xxxxxxxxxxxxxxxxxx UNSUBSCRIBE LUG-BG
http://www.linux-bulgaria.org/ Hosted by Internet Group Ltd. - Stara Zagora