Foro - Perl en Español

Código: Seleccionar todo

ExifTool Version Number         : 6.90
File Name                       : video.mpeg
Directory                       : .
File Size                       : 18 MB
File Modification Date/Time     : 2007:08:27 23:41:02
File Type                       : MPEG
MIME Type                       : video/mpeg
Image Width                     : 320
Image Height                    : 240
Aspect Ratio                    : 1:1
Frame Rate                      : 24 fps
Video Bitrate                   : Variable
MPEG Audio Version              : 2
Audio Layer                     : 2
Audio Bitrate                   : 128000
Sample Rate                     : 22050
Channel Mode                    : Single Channel
Mode Extension                  : Bands 4-31
Copyright Flag                  : False
Original Media                  : True
Emphasis                        : None
Image Size                      : 320x240

zozo666 escribiste:En el modulo figura esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

    'Bit32-49' => {
        Name => 'VideoBitrate',
        ValueConv => '$val eq 0x3ffff ? "Variable" : $val * 400',
    },
    # these tags not very interesting
    #'Bit50'    => 'MarkerBit',
    #'Bit51-60' => 'VBVBufferSize',
    #'Bit61'    => 'ConstrainedParamFlag',
    #'Bit62'    => 'IntraQuantMatrixFlag',
);

# composite tags
%Image::ExifTool::MPEG::Composite = (
    Duration => {
        Groups => { 2 => 'Video' },
        Require => {
            0 => 'FileSize',
        },
        Desire => {
            1 => 'AudioBitrate',
            2 => 'VideoBitrate',
        },
        # calculate duration as file size divided by total bitrate
        # (note: this is only approximate!)
        ValueConv => q{
            return undef unless $val[1] or $val[2];
            return undef if $prt[1] and not $prt[1] =~ /^\d+$/;
            return undef if $val[2] and not $val[2] =~ /^\d+$/;
            return (8 * $val[0]) / (($prt[1]||0) + ($val[2]||0));
        },
        PrintConv => q{
            my $h = int($val / 3600);
            my $m = int($val / 60 - $h * 60);
            my $s = $val - $h * 3600 - $m * 60;
            return sprintf("%d:%.2d:%05.2f (approx)",$h,$m,$s);
        },
    },
);

Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4

Ahi algo que no me muestre "duration"???
Voy a trabajar con este modulo, pero quiero estar seguro de que funcione con mpeg.
Con los demas archivos usa las siguientes instrucciones:
3gp -----"duration"

mpg------"duration"

avi------"duration"

mov-----"duration"

asf------"playduration"

wmv-----"PlayDuration"

mpeg-----NO TIENEE