| MPEG :: LIBMPEG3 MPEG :: LIBMPEG3, LIBMPEG3 modülüne perl arayüzüdür. |
Şimdi İndirin |
MPEG :: LIBMPEG3 Sıralama ve Özet
- Lisans:
- Perl Artistic License
- Yayıncı adı:
- Benjamin R. Ginter
- yayıncı web sitesi:
- http://search.cpan.org/~brg/MPEG-LibMPEG3-0.01/LibMPEG3.pm
MPEG :: LIBMPEG3 Etiketler
MPEG :: LIBMPEG3 Açıklama
MPEG :: LibMPEG3 libmpeg3 modülüne bir Perl arayüzüdür. MPEG :: LibMPEG3 libmpeg3 module.SYNOPSIS kullanım katı için bir Perl arayüzü; MPEG kullanımı :: LibMPEG3; benim $ mpeg = MPEG :: LibMPEG3-> yeni ($ dosya); $ MPEG> set_cpus (1); ## Yalnızca 1 cpu su vardır ama sen koymak ne olursa olsun $ MPEG> set_mmx (1); ":% Dn Ses Akışları", $ MPEG> astreams; ## ancak MMX yönergeleri Printf vardır (0 .. $ MPEG> astreams () - 1) için {print "Akış # $ _ n"; printf "tachans:% dn", $ MPEG> achans ($ _); printf "tarate:% dn", $ MPEG> arate ($ _); printf "taformat:% sn", $ MPEG> acodec ($ _); printf "tduration:% 0.2fn", $ MPEG> aduration ($ _); "n" yazdırın; } Printf "Video Akışları:% dn", $ MPEG> vstreams; (0 .. $ MPEG> vstreams () - 1) için {print "Akış # $ _ n"; Printf "tWidth:% dn", $ MPEG> genişliği ($ _); printf "tHeight:% dn", $ MPEG> yükseklik ($ _); Printf "tAspect Oranı:% dn", $ MPEG> yönü ($ _); printf "TFrame Oranı:% 0.2fn", $ MPEG> fps ($ _); printf "Ttoplam Çerçeveler:% dn", $ MPEG> vframes ($ _); printf "TColor Modeli:% dn", $ MPEG> colormodel ($ _); printf "tDuration:% 0.2fn", $ MPEG> vduration ($ _); "YUVn olarak Damping kareleri" yazdırmak; için (benim $ i = 0; $ i <$ mpeg> vframes; $ i ++) {benim $ output_rows = $ MPEG> get_yuv; Benim $ frame_yuv = sprintf ( "% s-d.yuv", $ dosya, i $); # Printf "Açılış $ frame_yuvn"; Yazdır '.'; açık OUT, "> $ frame_yuv" ya da öl "Can çıkış için dosyası açılamıyor $ frame_yuv:! $ n"; $ Output_rows OUT yazdırmak; Kapatmak; Eğer ($ i> 1 $% i $ MPEG> fps ($ _) == 0) {Printf "% 0.0f sn / sn", $ i / $ MPEG> fps ($ _); }} Printf "% 0.2f sn / sn", $ MPEG> süresi; } Moving Picture Experts Group (MPEG) dijital ses ve video.MPEG ses ve video kliplerin kodlu gösterimi için standartların geliştirilmesinden sorumlu bir çalışma grubu her yerde vardır ama bu çatılma hakkında programlı toplamak bilgilere Perl kullanarak bugüne kadar bir konudur best.This modülünde bir kludge ayrıştırmak ve bitstraems çıkartmasına bilgilerin libmpeg3 kitaplığını kullanır. Bu aşağıdaki dosya türlerini destekler: MPEG-1 Katman II Ses MPEG-1 Katman III Ses MPEG-2 Katman III Ses MPEG-1 programı MPEG-2 program MPEG-2 taşıma akışları akışları AC3 Ses MPEG-2 Video MPEG-1 akışları · Perl Gereksinimleri: video IFO VOB filesRequirements dosyaları: · Perl
MPEG :: LIBMPEG3 İlgili Yazılım