NAME

MP4::File - Read/Write MP4 files

SYNOPSIS

  use MP4::File;

  $mp4 = MP4::File->new;

  $mp4->Modify($filename);
  $mp4->SetMetadataArtist("Dire Straits");

  $mp4->Close;

  MP4::File->Optimize($filename);

DESCRIPTION

Please refer to the libmp4v2 documentation for details.

FileInfo

  $info = MP4::File->FileInfo($fileName, $trackId = 0)

Optimize

  $ok = MP4::File->Optimize($fileName, $newFileName = 0, $verbosity = 0)

new

  $mp4 = MP4::File->new()

Read

  $ok = $mp4->Read($fileName, $verbosity = 0)

Modify

  $ok = $mp4->Modify($fileName, $verbosity = 0, $flags = 0)

Info

  $info = $mp4->Info($trackId = 0)

Close

  $ok = $mp4->Close()

GetVerbosity

  $verbosity = $mp4->GetVerbosity()

SetVerbosity

  $ok = $mp4->SetVerbosity($verbosity)

FindTrackId

  $trackId = $mp4->FindTrackId($index, $type = 0, $subType = 0)

GetTrackType

  $type = $mp4->GetTrackType($trackId)

$type is one of the following constants that may be imported using:

  use MP4::File qw( :constants );

MP4_AUDIO_TRACK_TYPE

MP4_CLOCK_TRACK_TYPE

MP4_CNTL_TRACK_TYPE

MP4_HINT_TRACK_TYPE

MP4_IPMP_TRACK_TYPE

MP4_MPEG7_TRACK_TYPE

MP4_MPEGJ_TRACK_TYPE

MP4_OCI_TRACK_TYPE

MP4_OD_TRACK_TYPE

MP4_SCENE_TRACK_TYPE

MP4_VIDEO_TRACK_TYPE

GetTrackDuration

  $seconds = $mp4->GetTrackDuration($trackId)

GetTrackBitRate

  $bps = $mp4->GetTrackBitRate($trackId)

GetTrackTimeScale

  $scale = $mp4->GetTrackTimeScale($trackId)

MetadataDelete

  $ok = $mp4->MetadataDelete()

DeleteMetadataName

  $ok = $mp4->DeleteMetadataName()

DeleteMetadataArtist

  $ok = $mp4->DeleteMetadataArtist()

DeleteMetadataWriter

  $ok = $mp4->DeleteMetadataWriter()

DeleteMetadataComment

  $ok = $mp4->DeleteMetadataComment()

DeleteMetadataTool

  $ok = $mp4->DeleteMetadataTool()

DeleteMetadataYear

  $ok = $mp4->DeleteMetadataYear()

DeleteMetadataAlbum

  $ok = $mp4->DeleteMetadataAlbum()

DeleteMetadataGenre

  $ok = $mp4->DeleteMetadataGenre()

DeleteMetadataGrouping

  $ok = $mp4->DeleteMetadataGrouping()

DeleteMetadataCoverArt

  $ok = $mp4->DeleteMetadataCoverArt()

DeleteMetadataTrack

  $ok = $mp4->DeleteMetadataTrack()

DeleteMetadataDisk

  $ok = $mp4->DeleteMetadataDisk()

DeleteMetadataTempo

  $ok = $mp4->DeleteMetadataTempo()

DeleteMetadataCompilation

  $ok = $mp4->DeleteMetadataCompilation()

GetMetadataName

  $string = $mp4->GetMetadataName()

GetMetadataArtist

  $string = $mp4->GetMetadataArtist()

GetMetadataWriter

  $string = $mp4->GetMetadataWriter()

GetMetadataComment

  $string = $mp4->GetMetadataComment()

GetMetadataTool

  $string = $mp4->GetMetadataTool()

GetMetadataYear

  $string = $mp4->GetMetadataYear()

GetMetadataAlbum

  $string = $mp4->GetMetadataAlbum()

GetMetadataGenre

  $string = $mp4->GetMetadataGenre()

GetMetadataGrouping

  $string = $mp4->GetMetadataGrouping()

GetMetadataCoverArtCount

  $number = $mp4->GetMetadataCoverArtCount()

GetMetadataCoverArt

  $binary = $mp4->GetMetadataCoverArt()

GetMetadataTrack

  ($curr, $total) = $mp4->GetMetadataTrack()

GetMetadataDisk

  ($curr, $total) = $mp4->GetMetadataDisk()

GetMetadataTempo

  $tempo = $mp4->GetMetadataTempo()

GetMetadataCompilation

  $bool = $mp4->GetMetadataCompilation()

SetMetadataName

  $ok = $mp4->SetMetadataName($string)

SetMetadataArtist

  $ok = $mp4->SetMetadataArtist($string)

SetMetadataWriter

  $ok = $mp4->SetMetadataWriter($string)

SetMetadataComment

  $ok = $mp4->SetMetadataComment($string)

SetMetadataTool

  $ok = $mp4->SetMetadataTool($string)

SetMetadataYear

  $ok = $mp4->SetMetadataYear($string)

SetMetadataAlbum

  $ok = $mp4->SetMetadataAlbum($string)

SetMetadataGenre

  $ok = $mp4->SetMetadataGenre($string)

SetMetadataGrouping

  $ok = $mp4->SetMetadataGrouping($string)

SetMetadataCoverArt

  $ok = $mp4->SetMetadataCoverArt($binary)

SetMetadataTrack

  $ok = $mp4->SetMetadataTrack($curr, $total)

SetMetadataDisk

  $ok = $mp4->SetMetadataDisk($curr, $total)

SetMetadataTempo

  $ok = $mp4->SetMetadataTempo($tempo)

SetMetadataCompilation

  $ok = $mp4->SetMetadataCompilation($bool)

AUTHOR

Marcus Holland-Moritz <mhx@cpan.org>

cpanm MP4::File

perl -MCPAN -e shell
install MP4::File