tricky perl question - ascending order

[Sam Varshavchik]

Jozsi Vadkan writes:

> or maybe in bash..
> script/"one liner" e.g.: input: http://pastebin.com/raw.php?i=pMZPEsMZ
> 
> i want to make this output from it:
> http://pastebin.com/raw.php?i=kH8VxT0A
> 
> 
> So from the input, i want to make an ascendant order, how many things
> are under a "SOMETHING-XX"

You reversed your URLs.

perl -e 'while (<>) { push @a,"" if /./ && ($#a < 0 || $a[$#a] =~ /\n\n$/s); 
$a[$#a] .= $_} print join("",sort @a);'

-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 198 bytes
Desc: not available
Url : http://lists.fedoraproject.org/pipermail/users/attachments/20100523/065453db/attachment.bin