| NET :: FREEDB2 NET :: FREEDB2 es un módulo PERL con una clase de conexión genérica FREEDB. |
Descargar ahora |
NET :: FREEDB2 Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Vincenzo Zocca
- Sitio web del editor:
- http://search.cpan.org/~zoccav/HH-Unispool-Config-0.3/lib/HH/Unispool/Config/File/Token/Unnumbered/Bcs.pm
NET :: FREEDB2 Etiquetas
NET :: FREEDB2 Descripción
NET :: FREEDB2 es un módulo Perl con la clase de conexión genérica FREEDB. NET :: FREEDB2 es un módulo PERL con Clase de conexión genérica freedb.Synopsis # Ripper de CD rápido y sucio Use estricto; # Hacer el nombre del dispositivo Use GetOPT :: STD; $ :: OPT_D = ''; Getopts ('D:'); My $ dev = $ :: opt_d || '/ dev / cdrom'; # Hacer una red :: freedb2 :: Conexión Use Net :: FreedB2; MY $ CONN = NET :: FREDB2-> Conexión ({Client_Name => 'QuickRip', Client_version => '1.0',}); # Crear una red :: FreedB2 :: Objeto de entrada con la información en ello desde el CD # en $ dev Use Net :: FreedB2 :: Entrada; My $ ENTRY = NET :: FREEDB2 :: Entry-> Nuevo ({dev => $ dev}); # Consulta la base de datos FREDB / CDDB MY $ res = $ CONNISE-> Consulta ($ entrada); $ res-> hasError () Die ('Ups, Error Puring FreedB'); # Compruebe si hay coincidencias si (! Scalar ($ Res-> GetMatches ())) {Warn ('No se ha encontrado coincidencias'); Salida (0); } # Obtenga el primer partido My $ Match = ($ Res-> GetMatches ()) ; # Lea el partido en una entrada My $ res = $ Conn-> Leer ($ coincidencia); $ res-> Haserror () Die ('Ups, Error leyendo freedb'); MY $ ENTRADA = $ Res-> GetEntry (); # Hacer comandos de CDPARANIAIA para rasgar las pistas My $ pistas = escalar ($ Entry-> GetframeOffset ()); mi @cmd = qw (cdparanoia); PUSH (@cmd, '-d', $ DEV); PUSH (@cmd, '-b'); para (MIS $ I = 1; $ i gettitlen ($ i); $ title = ~ s / s + / - / g; mi @cmd = (@cmd, $ i); # ejecutar comando impresión stderr "@cmdn"; Sistema (@cmd); DIE ('Ups, Command Falled') Si ($? >> 8); # Cambiar nombre archivo de salida My $ src = sprintf ("pista d.cdda.wav", $ i); mi $ DEST = SPRIRTF ("D-% S.WAV", $ I, Título de $ $); PRINT STDERR "MV $ SRC $ DESTIN"; Cambiar nombre ($ src, $ dest);} net :: freedb2 es otra freedb / cddb Jerarquía de clase de acceso. Los conceptos básicos son similares a los otros módulos FREEDB / CDDB PERL. Sin embargo, en la opinión de los escritores, los detalles difieren lo suficiente para que tenga un cierto derecho de existencia. Es una organización inspirada en Net :: Ldap.Requesements: · Requisitos de Perl: · Perl
NET :: FREEDB2 Software relacionado