AudioCD::Mac

AudioCD::Mac is a MacPerl extension for controlling Audio CDs.
Download

AudioCD::Mac Ranking & Summary

Advertisement

  • Rating:
  • 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