Reinaldo,
Mande para a prog-br esse tipo de mensagem. Mas vamos l�!
> 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.
>
> #!/usr/bin/perl
> if ( $#ARGV == -1) {
> 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
> }
> while ( $X = shift ) {
> print "Extraindo m�sica $X -> ${X}.wav ...\n";
> system("cdparanoia $X ${X}.wav");
> }
> print "Trabalho feito. Boa divers�o !\n\n";
> exit 0
inicio aqui -------------------------------------------------
#!/usr/bin/perl
if ($#ARGV != 0) {
bl� bl� e sai fora..
}
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";
fim ---------------------------------------------------------
Atenciosamente,
--
+-------------------------------------------------+
| F�bio Berbert de Paula -> www.vivaolinux.com.br | ... e ele disse:
| [EMAIL PROTECTED] ========= ICQ: 6399331 | "Viva o LinuX !!"
+-------------------------------------------------+ ~~~~~~~~~~~~
Assinantes em 29/11/2001: 2410
Mensagens recebidas desde 07/01/1999: 144028
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
