Re: tricky perl question - ascending order

The solution [from the FreeBSD mailing list]: perl -00 -e 'print map $_->[0], sort { $a->[1] <=> $b->[1] } map [$_, tr/\n//], <>' < before.txt > after.txt Thank you!! > or maybe in bash.. > script/"one liner" e.g.: input: http://pastebin.com/raw.php?i=pMZPEsMZ > > i want to make this output f

Re: tricky perl question - ascending order

$ perl -e 'while (<>) { push @a,"" if /./ && ($#a < 0 || $a[$#a] =~ /\n \n$/s); $a[$#a] .= $_} print join("",sort @a);' < before.txt > after.txt $ diff before.txt after.txt $ i don't get it, it doesn't work, am i missing something? thank you > Jozsi Vadkan writes: > > > or maybe in bash.. > >

Re: tricky perl question - ascending order

Please god, tell me, how does this "magic" work? http://pastebin.com/raw.php?i=Cr6WzdGv Thank you!! > 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/r

Re: tricky perl question - ascending order

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 reve

tricky perl question - ascending order

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" Does anyone has any "perl magic"