REINALDO DE ALMEIDA BONILHO wrote:
> Boa Tarde a Todos !!!
>
Bom dia.
Minha abstin�ncia de cafe�na, j� corrigida =o), me
fez enviar AQUILO � lista.
O correto � esse:
_____________________________
#! /usr/bin/perl -w
die "uso : $0 <lista com o nome dos arqs>" unless @ARGV;
open LISTA,'<'.$ARGV[0] || die "\nN�o pude abrir $ARGV[0] por que $!\n";
my $corrente;
while (<LISTA>)
{
chomp($corrente=$_);
print "\nDecodificando $corrente: \n";
$_=~s/mp3\n/wav/i;
my $comando = "mpg123 -w \'".$_."\' \'$corrente\'";
system "$comando";
}
close LISTA;
print "\nFeito!\n"
___________________________________________
Desculpem a escorregada.
Leonardo
Assinantes em 30/11/2001: 2410
Mensagens recebidas desde 07/01/1999: 144126
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
