view release on metacpan or  search on metacpan

Quicktime_PL.pm  view on Meta::CPAN

    ## some digital cameras which are able to record Quicktime videos
    ## include a preview picture:

    if (length($file->pict)>0) {
        print "Outputing PICT file\n";
        my $oi = 'eg/mov_preview.pict';
        open(O,">$oi") || warn("Couldn't open $oi: $!\n");
        binmode(O);  # set the file to binary mode in working on Windows
        # Image::Magick methods will only recognize this file as 
        # PICT if there exists a leading header of zeros:
        print O "\x00" x 512;
        print O $file->pict;
        close(O);
    }


=head1 DESCRIPTION

This module provides cursory access to the header information of

t/VIQt_PL_b.t  view on Meta::CPAN

ok( $file->title    , undef);     
ok( $file->copyright, undef);

ok( md5_base64($file->pict), 'xomFZwnON6waoaaVTNbp5Q' );

# if (length($file->pict)>0) {
#     print "Outputing PICT file\n";
#     my $oi = 'eg/mov_preview.pict';
#     open(O,">$oi") || warn("Couldn't open $oi: $!\n");
#     binmode(O);
#     # Image::Magick methods will only recognize this file as 
#     # PICT if there exists a leading header of zeros:
#     print O "\x00" x 512;
#     print O $file->pict;
#     close(O);
# }


do {
    print 'achans    '    .$file->achans       ."\n";
    print 'arate     '    .$file->arate        ."\n";