---

Hjelp!

Er det noen der ute som har et lite script som lar deg åpne en fil, sortere
linjene alfabetisk, og lagre fila igjen?
Har laget en database som skal sorteres, men denne kan jeg klare selv, men
jeg klarer ikke å sortere fila,

si at vi har følgende linjer i fila "liste.txt"

...
boheme
nichole
anna
smith
...

Det skal da selvfølgelig bli til slutt,
...
anna
boheme
nichole
smith
...

Hvis noen der ute har litt tid til overs, vil dere være til uuanværlig hjelp
for meg!

Med hilsen,
Kim Steinhaug
kim@steinhaug.com
www.steinhaug.com

---

"Kim Steinhaug" <kim@steinhaug.com> writes:

> Er det noen der ute som har et lite script som lar deg åpne en fil, sortere
> linjene alfabetisk, og lagre fila igjen?

sort liste.txt > liste.txt.whullawhullahophop && mv liste.txt.whullawhullahophop liste.txt


ObPerl:

perl -e '$file = $ARGV[0]; open FH, ">$file"; @data = <FH>; close FH; open FH, "<$file"; print FH sort(@data);' liste.txt

---

Peter Makholm <peter@makholm.net> writes:

> "Kim Steinhaug" <kim@steinhaug.com> writes:
>
> > Er det noen der ute som har et lite script som lar deg åpne en
> > fil, sortere linjene alfabetisk, og lagre fila igjen?
>
> ObPerl:
>
> perl -e '$file = $ARGV[0]; open FH, ">$file"; @data = <FH>; close FH; open FH, "<$file"; print FH sort(@data);' liste.txt

perl -i.bak -0777wne 'print sort split /^/' fil

perl -we 'print sort <>' < innfil > utfil

Peter

--
#!/local/bin/perl5 -wp -*- mode: cperl; coding: iso-8859-1; -*-
# matlab comment stripper (strips comments from Matlab m-files)
s/^((?:(?:[])}\w.]'+|[^'%])+|'[^'\n]*(?:''[^'\n]*)*')*).*/$1/x;