Net :: Freedb2. net :: freedb2 é um módulo Perl com a classe de conexão genérica freedb.
Baixe Agora

Net :: Freedb2. Classificação e resumo

Net :: Freedb2. Tag

Conexão Módulo Perl. Banco de dados livre classe FreeDB Classe de conexão

Net :: Freedb2. Descrição

Net :: FreeDeb2 é um módulo Perl com a classe de conexão genérica freedb. NET :: FREEDB2 é um módulo Perl com classe de conexão genérica freedb.synopsis # rápido e sujo cd ripper use rigoroso; # Faça o nome do dispositivo Use GetOPT :: DST; $ :: Opt_d = ''; GETOPTS ('D:'); Meu $ DEV = $ :: OPT_D || '/ dev / cdrom'; # Faça uma rede :: Freedb2 :: Conexão Use Net :: Freedb2; Minha $ Conn = Net :: FreedB2-> Conexão ({Client_Name => 'QuickRip', Client_version => '1.0',}); # Crie um objeto Net :: FreedB2 :: Entrada com as informações a partir do CD # em $ Dev Use NET :: Freedb2 :: Entrada; Minha $ Entrada = Net :: FreedB2 :: Entry-> Novo ({Dev => $ Dev}); # Consulte o banco de dados Freedb / CDDB Meu $ res = $ Conn-> Consulta ($ Entrada); $ res-> HasEerror () morrer ('Oops, erro que escreve freedb'); # Verifique se há correspondências se (! Scalar ($ res-> GetMatches ())) {advertir ('não fósforos encontrados'); saída (0); } # Obtenha o primeiro jogo My $ match = ($ res-> getMatches ()) ; # Leia a partida em uma entrada Minha $ res = $ Conn-> Ler ($ match); $ res-> HasEerror () morrer ('Oops, erro ao ler freedb'); minha entrada $ = $ res-> getentry (); # Faça comandos CDparanoia para rasgar as faixas Minhas faixas $ Tracks = Scalar ($ Entry-> GetFrameOffset ()); meu @cmd = qw (cdparanoia); empurre (@cmd, '-d', $ DEV); empurrar (@cmd, '-B'); para (meus $ i = 1; $ i getttitlen ($ i); $ title = ~ s / s + / - / g; meu @cmd = (@cmd, $ i); # execute comando Imprimir stderr "@cmdn"; Sistema (@CMD); morrer ('Oops, falhou comando') se ($? >> 8); # Renomear arquivo de saída Meu $ src = sprintf ("faixa d.cdda.wav", $ i); my $ destk = sprintf ("d-% s.wav", $ i, title $, imprimir stderr "mv $ src $ destn"; Renomear ($ SRC, $ DEP);} Net :: Freedb2 é outro freedb / cddb hierarquia de classe de acesso. Os fundamentos são semelhantes aos outros módulos Perl da Freedb / CDDB.However, na opinião dos escritores, os detalhes diferem o suficiente para que ele tenha um certo direito de existência. Sua organização é inspirada pela Net :: LDAP.Requirements: · Requisitos de Perl: · Perl.

Net :: Freedb2. Software Relacionado