Sobre Awk: aprendi a usá-lo uma vez que percebi que meus MP3s tavam ocupando espaço demais no disco.
Muitos deles estavam a 320kbps, mas não tinham muita diferença pros de bitrate variável (que tinham a metade do tamanho).
Só que eu não ia conferir um por um os arquivos, e mudar a bitrate... no meu caso, não foi Perl, foi no shell mesmo:
#!/bin/bash
find . -name "*.mp3" -exec mp3info -r v -p "%r \"%F\"\n" '{}' \; > list.txt
gawk '$1 == 160 {$1 = ""; print}
$1 == 192 {$1 = ""; print}
$1 == 224 {$1 = ""; print}
$1 == 256 {$1 = ""; print}
$1 == 320 {$1 = ""; print}' list.txt > gran.txt
gawk '{system("lame -v" $0)}' gran.txt
gawk '{system("rm" $0)}' gran.txt
Eu poderia ter resumido as cinco linhas do Awk pra uma só, mas fiquei cabreiro que ele resolvesse embirrar quando o mp3info dissesse que a bitrate é v (variável); então eu disse pra ele manipular só nesses cinco casos, o que já era suficiente pra reduzir meus MP3s pra um espaço aceitável.
Depois descobri que os FLACs tavam ocupando um espaço gigantesco também, mas nesses não encostei... mandei pra um DVD de FLACs e pronto.
