trideni textoveho souboru

[znouza]

nebo takto (pokud ty radky jsou shodne)


#!/usr/bin/perl
@in=<STDIN>;
foreach(@in) {
 $pole{$_}++;
}
while(($key)=each %pole) {
 print STDOUT "$key";
}

a pouzijete to jako cat soubor | program.pl > neco.txt

t.

On Thu, 8 Jun 2000, AlexII wrote:

> mnooo zacal by som experimentovat
> 
> cat moj_zdrojovy_subor |sort +2 |uniq  >> moj_filtrovany_subor
> 
> to cislo s pluskom je stlpec podla ktoreho ches triedit (vid. man sort)
> 
> 
>                             .========================.
>                             | -=<o>=- AlexII -=<o>=- |
>                             |      Svec Richard      |
>                             |     AlexII na point.sk    |
>                             `========================'
>                                 Close the Windows
>                                        and
>                                   shutdown Gates.
>                              
>