Search Results

Right. Brackets' escapes are unnecessary in Perl regexes:perl -pe 's/^\[.*- (.*.mp3)/\1/' file

I don't think you need to escape ( in a perl regex. But perl -e doesn't work that way, it expects a perl program, not a sed statement.

Your regex looks more complicated than it needs to be,...

Try:perl -pe 's/^\[.*- \(.*.mp3\)/\1/' file

That is a useless use of cat (http://partmaps.org/era/unix/award.html), and won't work since you're not sorting on the right column.

Perhaps awk isn't needed though, just sort -rn -k 2 < filename...

perl -e '@x=(3,6,2,8,1);@y=(8,2,11,7,9);for($i=0;$i<=$#x;$i++){$sum+=($x[$i]+$y[$i])};print $sum'