| NET :: FREEDB2 NET :: Freedb2 est un module PERL avec une classe de connexion générique Freedb. |
Télécharger maintenant |
NET :: FREEDB2 Classement & Résumé
- Licence:
- Perl Artistic License
- Nom de l'éditeur:
- Vincenzo Zocca
- Site Internet de l'éditeur:
- http://search.cpan.org/~zoccav/HH-Unispool-Config-0.3/lib/HH/Unispool/Config/File/Token/Unnumbered/Bcs.pm
NET :: FREEDB2 Mots clés
NET :: FREEDB2 La description
NET :: Freedb2 est un module Perl avec la classe de connexion générique Freedb. NET :: Freedb2 est un module Perl avec Freedb Generic Connection CLASS.SYNOPSIS # Quick et Sale CD Ripper Utilisation stricte; # Nom du périphérique Utilisez GETOPT :: STD; $ :: opt_d = ''; getopts ('d:'); mon $ dev = $ :: opt_d || '/ dev / cdrom'; # Faire un net :: Freedb2 :: Net d'utilisation de la connexion :: Freedb2; My $ Conn = Net :: Freedb2-> Connexion ({Nom_name => 'QuickRip', Client_version => '1.0',}); # Créer un objet Net :: Freedb2 :: Objet d'entrée avec les informations de la Cd # en $ Dev Utilisation Net :: Freedb2 :: Entrée; My $ Entrée = Net :: Freedb2 :: Entry-> Nouveau ({dev => $ Dev}); # Quertiez la base de données Freedb / CDDB My $ res = $ Connect> requête ($ entrée); $ Res-> HasError () Die ('OOPS, ERREUR QUINGEMENT FREEDB'); # Vérifier les matchs si (! Scalaire ($ res-> getmatches ())) {avertir ("Pas de matchs trouvés"); sortie (0); } # Obtenir le premier match My $ Match = ($ res-> getmatches ()) ; # Lire la correspondance dans une entrée My $ res = $ conn à> lire ($ match); $ RES-> HasError () Die ('OOPS, Erreur de lecture Freedb'); mon $ entrée = $ res-> getentry (); # Faire des commandes CDPharanoia pour déchirer les pistes My $ pistes = scalaire ($ entrée -> getframeOffset ()); mon @cmd = qw (cdparoia); pousser (@cmd, '-d', $ dev); pousser (@cmd, '-b'); pour (mon $ i = 1; $ i getttitlen ($ i); $ title = ~ s / s + / - / g; mon @cmd = (@cmd, $ i); # exécuter la commande imprimée STDERR "@cmdn"; système (@cmd); matrice ('ouops, commande a échoué') si ($? >> 8); # renommer fichier de sortie mon $ src = sprintf ("piste d.cdda.wav", $ i); ma $ DEST = SPRINTF ("D-% S.WAV", $ i, Titre $); Imprimer STDRERR "MV $ SRC $ DSN"; renommer ($ src, $ dest);} Net :: Freedb2 est une autre Freedb / CDDB Hiérarchie de classe d'accès. Les bases sont similaires aux autres modules Freedb / CDDB Perl.Cever, dans l'opinion des écrivains, les détails diffèrent suffisamment pour que cela ait un certain droit d'existence. L'organisation est inspirée par net :: LDAP.Requirements: · Conditions de PERL: · Perl
NET :: FREEDB2 Logiciels associés