Boa Tarde Pessoal !!!
Gostaria de saber se h� algo de errado nesse script abaixo, ele serve para
ripar cds de m�sicas convertendo para .wav.
Ele funciona ou deveria funcionar assim, tem uma lista com os nomes das
m�sicas e ele iria ler isso e ripar o cd.
#!/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";
Olha s� o erro que da:
Ripping from sector 0 (track 1 [0:00.00])
to sector 18031 (track 1 [4:00.31])
outputting to Farol_das_Estrelas
(== PROGRESS == [ | 018031 00 ] == :^D * ==)
Done.
sh: 1: command not found
sh: .wav: command not found
Trabalho feito. Boa divers�o !
ele n�o esta pondo a extens�o do arquivo alem de dar outro erro que n�o
consegui achar.
Qualquer ajuda � bem vinda , Muito Obrigado
Assinantes em 30/11/2001: 2410
Mensagens recebidas desde 07/01/1999: 144150
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
