quarta-feira, 24 de setembro de 2008

Atualização automatica bibliotecas perl

Para atualizar de forma 'parcialmente' automatica as bibliotecas do perl você pode usar a seguinte linha:

cpan -a | awk '{if (p==1) { t++; if ($2 != $3) {i++; print "===>>> INSTALANDO ",$1; system ("cpan -i "$1); } else if ($2 == $3) {u++;print "===>>> ",$1," UP"; } } if ($1=="Package") p=1; if ($0 ~ /^[[:space:]]/) p=0; } END {print "\nTotal:",t,"\nInstalados:",i,"\nNao Alterados",u,"\n";}'

Nenhum comentário: