view release on metacpan or  search on metacpan

README  view on Meta::CPAN

print "Artist is $tags->{ARTIST}\n" if $tags->{ARTIST};

my ($track, $count) = $qt->tracks;
my $new_track_number = 3;
my $total_tracks_on_CD = 17;
$qt->tracks($new_track_number, $total_tracks_on_CD);

use Audio::M4P::Decrypt;

my $mp4file = 'myfile';
my $outfile = 'mydecodedfile';
my $decrypt = new Audio::M4P::Decrypt;
$decrypt->DecryptFile($mp4file, $outfile);



To install the module...

perl Makefile.PL
make
make test

lib/Audio/M4P.pm  view on Meta::CPAN

    use Audio::M4P::QuickTime;

    my $mp4file = "file.m4p";
    my $qt = new Audio::M4P::QuickTime(file => $mp4file);
    my $tags = $qt->GetMetaInfo;
    print "Artist is $tags->{ARTIST}\n" if $tags->{ARTIST};


    use Audio::M4P::Decrypt;

    my $outfile = 'mydecodedfile';
    my $deDRMS = new Audio::M4P::Decrypt;
    $deDRMS->DeDRMS($mp4file, $outfile);

    See also the individual pod documentation for Audio::M4P::QuickTime
    and Audio::M4P::Decrypt.

    
=head1 AUTHOR 

    William Herrera B<wherrera@skylightview.com>. 

lib/Audio/M4P/Decrypt.pm  view on Meta::CPAN

Audio::M4P::Decrypt -- DRMS decryption of Apple iTunes style MP4 player files

=head1 DESCRIPTION
    
Originally derived from the DeDRMS.cs program by Jon Lech Johansen

=head1 SYNOPSIS

 use Audio::M4P::Decrypt;

 my $outfile = 'mydecodedfile';
 my $deDRMS = new Audio::M4P::Decrypt;
 $deDRMS->DeDRMS($mp4file, $outfile);


=head1 METHODS

=over 4

=item B<new>