NET :: Freedb2 NET :: Freedb2 is een PERL-module met Freedb Generic Connection Class.
Download nu

NET :: Freedb2 Rangschikking & Samenvatting

NET :: Freedb2 Tags

Verbinding Perl-module GratisDB Freedb-klasse verbinding klasse

NET :: Freedb2 Beschrijving

NET :: Freedb2 is een PERL-module met Freedb Generic Connection Class. NET :: Freedb2 is een PERL-module met Freedb Generic Connection Class.Synopsis # Snelle en vuile en vuile CD-ripper strikt; # Maak apparaatnaam Gebruik Getopt :: STD; $ :: opt_d = ''; Getopts ('D:'); mijn $ dev = $ :: opt_d || '/ dev / cdrom'; # Maak een net :: Freedb2 :: Verbinding Gebruik Net: Freedb2; Mijn $ Conn = Net :: Freedb2-> Aansluiting ({client_name => 'Quickrip', client_version => '1.0',}); # Maak een net :: Freedb2 :: Entry Object met de informatie erin vanaf de CD # in $ Dev Gebruik Net :: Freedb2 :: Invoer; Mijn $ Entry = NET :: Freedb2 :: Invoer-> Nieuw ({dev => $ dev}); # Vraag de Freedb / CDDB-database My $ Res = $ CONCONLUSSE-query ($ invoer); $ Res-> HasError () sterven ('Oeps, Fout Quiting Freedb'); # Controleer voor wedstrijden if (! Scalar ($ RES-> GATMATCHES ())) {Warn ('Geen overeenkomsten gevonden'); afsluiten (0); } # Verkrijg de eerste wedstrijd My $ Match = ($ RES-> GATMATCHES ()) ; # Lees de wedstrijd in een item My $ Res = $ Conn-> Read ($ Match); $ Res-> HasError () sterven ('Oeps, foutenlezing freedb'); mijn $ Entry = $ RES-> GETENTRY (); # Maak CDPARANOIA-opdrachten om de tracks te scheuren Mijn $ Tracks = Scalar ($ Entry-> GetFramEffset ()); mijn @CMD = QW (CDPARANOIA); duwen (@cmd, '-d', $ dev); duwen (@cmd, '-b'); Want (mijn $ i = 1; $ i getttitlen ($ i); $ title = ~ s / s + / - / g; mijn @cmd = (@cmd, $ i); # uitvoeren opdracht print Stderr "@cmdn"; System (@cmd); Die ('Oeps, Command Failed') if ($? >> 8); # Hernoemen uitvoerbestand My $ SRC = Sprintf ("Track D.CDDA.WAV", $ I); mijn $ Dest = Sprintf ("D-% S.WAV", $ I, $ TITEL); PRINT STDERR "MV $ SRC $ DSTN"; Hernoemen ($ SRC, $ DEST);} NET :: Freedb2 is een andere Freedb / CDDB Access Class Hiërarchie. De basisprincipes zijn vergelijkbaar met de andere Freedb / CDDB Perl-modules. In de mening van de schrijvers verschillen de details voldoende om een bepaald recht van het bestaan te hebben. De organisatie is geïnspireerd op NET :: LDAP.Requirements: · Perl-vereisten: · Perl

NET :: Freedb2 Gerelateerde software