MPEG :: libmpeg3. MPEG :: libmpeg3 é uma interface Perl para o módulo libmpeg3.
Baixe Agora

MPEG :: libmpeg3. Classificação e resumo

MPEG :: libmpeg3. Tag

Módulo Perl. perl Interface Perl. Interface libmpeg3 libmpeg3.

MPEG :: libmpeg3. Descrição

MPEG :: libmpeg3 é uma interface Perl para o módulo libmpeg3. MPEG :: libmpeg3 é uma interface perl para o módulo libmpeg3.synopsis use rigoroso; Use MPEG :: libmpeg3; meu $ MPEG = MPEG :: libmpeg3-> novo ($ filename); $ mpeg-> set_cpus (1); ## Eu só tenho 1 CPU, mas você pode colocar qualquer $ MPEG-> set_mmx (1); ## mas tem instruções do MMX Printf "fluxos de áudio:% dn", $ MPEG-> Astreams; para (0 .. $ MPEG-> Astreams () - 1) {Imprimir "fluxo # $ _ n"; printf "tachans:% dn", $ MPEG-> ACHANS ($ _); printf "tarate:% dn", $ MPEG-> arate ($ _); Printf "Taformat:% SN", $ MPEG-> Acodec ($ _); printf "tduration:% 0.2fn", $ MPEG-> Adura ($ _); Imprimir "n"; } Printf "streams de vídeo:% dn", $ MPEG-> vstreams; para (0 .. $ MPEG-> vstreams () - 1) {imprimir "fluxo # $ _ n"; Printf "Twidth:% DN", $ MPEG-> Largura ($ _); Printf "Theight:% DN", $ MPEG-> Altura ($ _); Printf "Taspect Ratio:% DN", $ MPEG-> aspecto ($ _); Printf "TFAME:% 0.2FN", $ MPEG-> FPS ($ _); Printf "Quadros TTOTAL:% DN", $ MPEG-> vFrames ($ _); Printf "TCOLOR MODELO:% DN", $ MPEG-> ColorModel ($ _); Printf "TDuration:% 0.2FN", $ MPEG-> VDuração ($ _); Imprimir "dumping frames como yuvn"; para (meus $ i = 0; $ i <$ mpeg-> vFrames; $ i ++) {my $ output_rows = $ mpeg-> get_yuv; meu $ Frame_yuv = sprintf ("% s- d.yuv", $ file, $ i); # Printf "abertura $ frame_yuvn"; imprimir '.'; abrir, "> $ frame_yuv" ou morrer "não é possível abrir o arquivo $ frame_yuv para a saída: $! N"; Imprimir $ Output_Rows; fechar; se ($ i> 1 $ i% $ MPeg-> FPS ($ _) == 0) {printf "% 0.0f sec / sn", $ i / $ MPEG-> FPS ($ _); }} Printf "% 0.2F SEC / SN", $ MPEG-> duração; } O grupo de especialistas em movimento (MPEG) é um grupo de trabalho responsável pelo desenvolvimento de padrões para representação codificada de áudio digital e video.mpeg áudio e clipes de vídeo são onipresentes, mas usando o Perl para coletar informações programaticamente sobre esses bitstreams. Um kludge no Best.Se módulo usa a biblioteca libmpeg3 para analisar e extrair informações do bitstraems. Ele suporta os seguintes tipos de arquivos: MPEG-1 Camada II Audio MPEG-1 Camada III Audio MPEG-2 Camada III Audio MPEG-1 Transmissão de programas MPEG-2 Streams MPEG-2 Transporte Transporte AC3 Audio MPEG-2 Video MPEG-1 Video IFO Arquivos VOB FilesRequirements: · Requisitos de Perl: · Perl.

MPEG :: libmpeg3. Software Relacionado