1
2
3
4
5
6
7
8
9
10

#!/usr/bin/perl
use strict;
use warnings;

open(F, "file.txt") or die $!;
my @file = <F>;
close(F);

@file = sort{$a cmp $b} @file;
print @file;

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]