REINALDO DE ALMEIDA BONILHO wrote:
> Boa Tarde a Todos !!!
>
> Estou tentando usar esse script em perl para transformar algumas musicas de
> um cd para wav. Para isso quero colocar o nome das m�sicas em um arquivo
> chamado lista.
Olha, tenta isso :
Detalhe, pra ficar bnito, os nomes de arquivos t�o separados por
<RETURN>'s, fica beeem mais legal...
___________________________
#! /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";
system "mpg123 \'".$corrente."\' -w \'".$corrente.".wav\'";
}
close LISTA;
print "\nFeito!\n"
____________________________
Funciona .
Falow
(pra conseguir a lista, fa�a um ls -w1 *.mp3 > lista )
Assinantes em 30/11/2001: 2409
Mensagens recebidas desde 07/01/1999: 144116
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
