← Back to team overview

sslug-teknik team mailing list archive

Re: Sortering af fil

 

#!/usr/bin/perl

print scalar(<>);
while (<>) {
  chomp();
  push(@lines,$_);
}
@result=sort {substr($a,index $a,'/') cmp substr($b,index $b,'/')} @lines;
print join("\n",@result) . "\n";


2011/9/8 Anders M <anders@xxxxxxxxxxx>:
> #EXTM3U



-- 
Til uvedkommende, der læser med: Der er ingen grund til at læse min
mail. Jeg har intet at gøre med FARC, al-Jihad, al-Qaida, Hamas, Hizb
al-Mujahidin eller ETA. Jeg har aldrig gjort Zakat, går ikke ind for
Istishad, har ikke lavet en bilbombe eller kernevåben og jeg ved
dårligt nok, hvad Al Manar og бомба betyder.  Men tak for den udviste
interesse.

Leve Ligemageriet!
Styrk pøbelvældet!
Bevar misundelsesafgifterne og cafepengene!
Hurra for ældrebyrden!


References