Valeu Leo, mas eu gostaria tb, da resolu��o deste aqui, estou tentando ripar
um cd convertendo todas as m�sicas para .wav para depois ripar para mp3. de
uma olhada nesse script, pois esta dando alguns erros.
#!/usr/bin/perl
if ($#ARGV != 0) {
print "*" x 45;
print "\nUse: \n\t$0 lista\n\nOnde lista � uma lista
separada por espa�os
das m�sicas que voc� deseja extrair do CD\n\n";
print "*" x 45 . "\n";
exit 0
}
my $listfile = shift;
open(F,$listfile);
while (<F>) {
print "Extraindo m�sica $_ -> $_.wav ...\n";
system("cdparanoia $_ $_.wav");
}
close(F);
print "Trabalho feito. Boa divers�o !\n\n";
Tem algum erro ????
Muito Obrigado,
----- Original Message -----
From: "Leonardo T. de Carvalho" <[EMAIL PROTECTED]>
To: "REINALDO DE ALMEIDA BONILHO" <[EMAIL PROTECTED]>
Cc: "Linux-Br" <[EMAIL PROTECTED]>
Sent: Friday, November 30, 2001 10:24 AM
Subject: Re: (linux-br) Ajuda com Perl ??? - pode me chamar de ostra
> 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: 2409
Mensagens recebidas desde 07/01/1999: 144134
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
