• Publicidad

Módulo Video::Info

Así que programas sin strict y las expresiones regulares son otro modo de hablar. Aquí encontrarás respuestas de nivel avanzado, no recomendable para los débiles de corazón.

Módulo Video::Info

Notapor zozo666 » 2007-08-29 08:41 @404

Buenos días, quería hacer una consulta sobre este módulo (Video::Info). ¿Hay alguna forma especial de hacerlo funcionar? Mi código es este:
Sintáxis: [ Descargar ] [ Ocultar ]
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();
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:
Sintáxis: [ Descargar ] [ Ocultar ]
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)
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
zozo666
Perlero nuevo
Perlero nuevo
 
Mensajes: 139
Registrado: 2007-05-26 10:36 @483

Publicidad

Notapor explorer » 2007-08-29 09:55 @455

Sería interesante ver el texto completo del error en la instalación.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor zozo666 » 2007-08-29 10:34 @482

Primero y principal, figura como instalado el modulo Video-Info-0.993.tar.gz. Ahora... cuando pongo en la consola de Linux "cpan install Video::info" me tira el siguiente error:

Warning: Cannot install Video::Info, don't know what it is.
Try the command

i /Video::Info/

to find objects with matching identifiers.


Luego si pongo en la consola "cpan install Video::Info::MPEG" me instala y al final me tira esta información que no logro entender:

Subroutine MMSS redefined at blib/lib/Video/Info/MPEG.pm line 143.
t/MPEG.........ok 1/19Use of uninitialized value in -s at blib/lib/Video/Info/MPEG.pm line 117.
Use of uninitialized value in -s at blib/lib/Video/Info/MPEG.pm line 117.
Use of uninitialized value in addition (+) at blib/lib/Video/Info/MPEG/System.pm line 91.
Use of uninitialized value in string eq at blib/lib/Video/Info/MPEG.pm line 196.
t/MPEG.........ok
t/Quicktime....Can't locate Video/OpenQuicktime.pm in @INC (@INC contains: t ./blib/lib /home/juliangre/.cpan/build/Video-Info-0.993/blib/lib /home/juliangre/.cpan/build/Video-Info-0.993/blib/arch /home/juliangre/.cpan/build/Class-MakeMethods-1.01/blib/arch /home/juliangre/.cpan/build/Class-MakeMethods-1.01/blib/lib /home/juliangre/.cpan/build/MP3-Info-1.23/blib/arch /home/juliangre/.cpan/build/MP3-Info-1.23/blib/lib /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.6 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.8/i386-linux-thread-multi /usr/lib/perl5/5.8.8 .) at blib/lib/Video/Info/Quicktime.pm line 4.
BEGIN failed--compilation aborted at blib/lib/Video/Info/Quicktime.pm line 4.
Compilation failed in require at t/Quicktime.t line 19.
BEGIN failed--compilation aborted at t/Quicktime.t line 19.
t/Quicktime....dubious
Test returned status 2 (wstat 512, 0x200)
DIED. FAILED tests 1-18
Failed 18/18 tests, 0.00% okay
t/RIFF.........ok
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/Quicktime.t 2 512 18 36 200.00% 1-18
Failed 1/9 test scripts, 88.89% okay. 18/157 subtests failed, 88.54% okay.
make: *** [test_dynamic] Error 255
/usr/bin/make test -- NOT OK


Esos son los errores que me tiran cuando trato de instalarlo, me figuran como que ya están instalados en el cpan>builds, pero no logro entender por qué no andan, o por qué mi script está mal.
zozo666
Perlero nuevo
Perlero nuevo
 
Mensajes: 139
Registrado: 2007-05-26 10:36 @483

Notapor explorer » 2007-08-29 11:16 @511

No es cpan install Video::Info, sino cpan Video::Info.

El mensaje de error dice que no puede testear Video::Info::Quicktime porque no está instalado Video::OpenQuicktime.

Intenta primera ejecutar el comando cpan que te he indicado. Si funciona bien, debe pedirte permiso para instalarte estos tres módulos adicionales:

* Video::OpenQuicktime
* Class::MakeMethods o Class::MakeMethods::Emulator
* MP3::Info
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor zozo666 » 2007-08-29 12:17 @553

No, no funciona, cpan Video::info no funciona, ¿qué otra forma hay de instalarlo?
zozo666
Perlero nuevo
Perlero nuevo
 
Mensajes: 139
Registrado: 2007-05-26 10:36 @483

Notapor explorer » 2007-08-29 13:05 @587

Es cpan Video::Info, no cpan Video::info.

Si no te deja porque está a medias de instalar, prueba con cpan -f Video::Info.

Otra forma de instalarlo es siguiendo las instrucciones del fichero README.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor zozo666 » 2007-08-30 09:20 @430

Esa forma no anduvo. Me figura como instalado así que la verdad que no reconozco el error. Quisiera saber si tienen o se le ocurren un script que ande si o si? Solamente para probar que la instalación del módulo es correcta. Muchas Gracias.
zozo666
Perlero nuevo
Perlero nuevo
 
Mensajes: 139
Registrado: 2007-05-26 10:36 @483

Notapor explorer » 2007-08-30 10:08 @464

Si los módulos están en el directorio build, no quiere decir que estén instalados en el sistema.

Para que un módulo esté correctamente instalado, debe pasar la prueba de ejecución mínima:
Sintáxis: [ Descargar ] [ Ocultar ]
Using bash Syntax Highlighting
perl -MVideo::Info -e 1
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Si da un mensaje de error, es que perl no encuentra el módulo en ninguno de los directorios en los que normalmente se almacenan los módulos instalados en el sistema. Esos directorios se guardan en la variable especial @INC.

Yo borraría todos los directorios build donde residan los módulos problemáticos, me conectaría a Internet y volvería a probar con el comando cpan (siempre y cuando sepa que tengo un comando cpan en mi sistema, que funcione bien).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor zozo666 » 2007-08-30 10:14 @468

Me tira el siguiente mensaje:

Can't locate Video/Info.pm in @INC (@INC contains: /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.6 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.8/i386-linux-thread-multi /usr/lib/perl5/5.8.8 .).
BEGIN failed--compilation aborted.


Seguro que es de error. No importa, ahora lo voy a usar sin instalar para probar una cosa, ¿tendría alguien un cgi que labore con esto?, que sepa que funcione.

Muchas gracias
zozo666
Perlero nuevo
Perlero nuevo
 
Mensajes: 139
Registrado: 2007-05-26 10:36 @483

Notapor explorer » 2007-08-30 10:47 @491

El error dice claramente que el módulo NO está instalado, o que al menos no lo encuentra en ninguno de los directorios de instalación.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Siguiente

Volver a Avanzado

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 33 invitados

cron