NET :: FREEDB2. NET :: FREEDB2 è un modulo Perl con Classe di connessione Generic Greenb.
Scarica ora

NET :: FREEDB2. Classifica e riepilogo

NET :: FREEDB2. Tag

Connessione modulo Perl FreeDB Classe freedb. classe di connessione

NET :: FREEDB2. Descrizione

NET :: FREEDB2 è un modulo perl con Classe di connessione Generic Greenb. NET :: FREEDB2 è un modulo Perl con FREEDB Generico Connection Class.synopsis # RIPPER CD rapido e sporco Usa rigoroso; # Rendi il nome del dispositivo Usa Getopt :: STD; $ :: op_d = ''; GETTOPTS ('D:'); My $ dev = $ :: op_d || '/ dev / cdrom'; # Crea una rete :: FREEDB2 :: Connection use :: free freeb2; My $ CONN = NET :: free freeb2-> connessione ({client_name => 'quickrip', client_version => '1.0',}); # Crea una rete :: FREEDB2 :: Oggetto di ingresso FREEDB2 con le informazioni in esso dal CD # in $ dev uso net :: freebyb2 :: entry; My $ entry = net :: free freeb2 :: entry-> nuovo ({dev => $ dev}); # Query il database FREEDB / CDDB MY $ RES = $ Conn-> Query ($ entry); $ res-> haserror () muoiono ('oops, error horing freebingb'); # Controlla le partite se (! Scalare ($ res-> getmatches ())) {warn ('nessuna corrispondenza trovata'); Esci (0); } # Ottieni la prima partita My $ match = ($ res-> getmatches ()) ; # Leggi la partita in una voce My $ res = $ Conn-> Leggi ($ corrispondenza); $ res-> haserror () die ('oops, errori lettura free freeb'); My $ entry = $ res-> gattingry (); # Rendi i comandi di Cdparanoia per strappare le tracce My $ Tracks = Scalare ($ entry-> getframeoffset ()); il mio @cmd = qw (cdparanoia); spingere (@cmd, '-d', $ dev); spingere (@cmd, '-b'); per (il mio $ i = 1; $ i getttitlen ($ i); $ title = ~ s / s + / - / g; my @cmd = (@cmd, $ i); # Esegui comando Stampa STDERR "@CMDN"; sistema (@cmd); Die ('oops, comando non riuscito') se ($? >> 8); # # Rinomina file di output my $ src = sprintf ("traccia d.cdda.wav", $ i); Dest = Sprintf ("D-% s.wav", $ i, $ Titolo); Stampa STDERR "MV $ SRC $ DESN"; RENAME ($ SRC, $ DEST);} NET :: free freeb2 è un altro freedb / cddb Gerarchia della classe di accesso. Le basi sono simili agli altri moduli FREEDB / CDDB Perl. Tuttavia, nell'opinione degli scrittori, i dettagli differiscono abbastanza per avere un certo diritto di esistenza. La sua organizzazione è ispirata da rete :: ldap.requirements :: · Requisiti perl: · Perl.

NET :: FREEDB2. Software correlato