Using perl Syntax Highlighting
#! /usr/bin/perl -w
use Video::Info;
my $prueba = Video::Info->new(-file=>'lalala.mpg');
print "content-type: text/html \n\n";
print $prueba->width();
print $prueba->fps();
use Video::Info;
my $prueba = Video::Info->new(-file=>'lalala.mpg');
print "content-type: text/html \n\n";
print $prueba->width();
print $prueba->fps();
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Bueno, lo probé en un servidor Linux y no tengo respuestas. El módulo cuando lo trato de testear, me muestra el error WARNING: CANNOT TEST Video::Info........
No sé si será esto, ya que cuando pruebo los otros módulos que lo comprenden (Video::Info:MPEG, Video::ASF, etc) me da un 86% de ok en el test.
Tengo también acá otro script que también probé pero no funciona:
Using perl Syntax Highlighting
#! /usr/bin/perl -w
use strict;
use Video::Info::MPEG;
my $video = Video::Info::MPEG->new( -file => 'lalala.mpg');
$video->probe();
print $file->type; ## MPEG
## Audio information
print $file->acodec; ## MPEG Layer 1/2
print $file->acodecraw; ## 80
print $file->achans; ## 1
print $file->arate; ## 128000 (bits/sec)
print $file->astreams ## 1
## Video information
printf "%0.2f", $file->fps ## 29.97
print $file->height ## 240
print $file->width ## 352
print $file->vstreams ## 1
print $file->vcodec ## MPEG1
print $file->vframes ## 529
print $file->vrate ## 1000000 (bits/sec)
use strict;
use Video::Info::MPEG;
my $video = Video::Info::MPEG->new( -file => 'lalala.mpg');
$video->probe();
print $file->type; ## MPEG
## Audio information
print $file->acodec; ## MPEG Layer 1/2
print $file->acodecraw; ## 80
print $file->achans; ## 1
print $file->arate; ## 128000 (bits/sec)
print $file->astreams ## 1
## Video information
printf "%0.2f", $file->fps ## 29.97
print $file->height ## 240
print $file->width ## 352
print $file->vstreams ## 1
print $file->vcodec ## MPEG1
print $file->vframes ## 529
print $file->vrate ## 1000000 (bits/sec)
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
De este tampoco recibo respuestas. ¿Tienen algún script que sepan que le halla funcionado?, para probar si el módulo está instalado correctamente por lo menos. Muchas gracias