AudioCD::MacAudioCD::Mac is a MacPerl extension for controlling Audio CDs. | |
Download |
AudioCD::Mac Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Chris Nandor
- Publisher web site:
- http://search.cpan.org/~cnandor/Devel-FindGlobals-0.03/FindGlobals.pm
AudioCD::Mac Tags
AudioCD::Mac Description
AudioCD::Mac is a MacPerl extension for controlling Audio CDs. AudioCD::Mac is a MacPerl extension for controlling Audio CDs.SYNOPSIS #!perl -w use AudioCD; use strict; my $cd = new AudioCD; $cd->volume(255); $cd->play(2); print "Now playingn" if $cd->status == CD_PLAY; printf "Volume is %dn", $cd->volume; sleep(5); $cd->pause; print "Now pausedn" if $cd->status == CD_PAUSE; sleep(5); $cd->volume(100); $cd->continue; print "Now playingn" if $cd->status == CD_PLAY; printf "Volume is %dn", $cd->volume; sleep(5); my @info = $cd->info; printf "Currently at track %d, %.2d:%.2dn", @info; $cd->stop; my $status = $cd->status; print "Now stoppedn" if ($status == CD_FINISH || $status == CD_STOP); if (do 'CDDB.pm') { # sold separately my $cddb = new CDDB; my @cddb_info = $cddb->calculate_id( $cd->cddb_toc ); my @discs = $cddb->get_discs(@cddb_info); print "You were probably listening to $discs->n"; } $cd->eject;This is the MacPerl module to be used by the AudioCD module. Other modules can be written for other platforms, but this one is Mac specific, calling Mac OS APIs to control the CD player.Requirements:· PerlWhat's New in This Release:· Significant clean up of Perl and XS code, lots of misc. changes.· Hopefully fixed cd_toc to give all the right values.· Fixed eject problems. "no pointer is a pointer, too" -- Matthias Neeracher
AudioCD::Mac Related Software