• Publicidad

Convertir jpg en tiff

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Convertir jpg en tiff

Notapor piero66 » 2008-06-03 10:27 @477

Quiero convertir varias imágenes jpg en un archivo .tiff. El código que tengo es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
use Image::Magick;

$p = Image::Magick->new;
$p->Read('i.jpg');
$p->Read('p.jpg');
$p->Read('x.jpg');
$p->set(compress=>'zip');
$p->Write('archivo.tiff');
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Aparentemente me lo ejecuta bien, pero a la hora de visualizar las imágenes en el archivo.tiff aparecen las tres páginas (las 3 jpg [i,p,x]) pero todas negras, es decir, hora de ver el archivo.tiff éstas se ven obscuras.

Espero me puedan ayudar.
piero66
Perlero nuevo
Perlero nuevo
 
Mensajes: 95
Registrado: 2008-05-22 12:00 @541

Publicidad

Notapor explorer » 2008-06-03 12:22 @557

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

Ayuda para instalar el ImageMagick 6.4.1

Notapor piero66 » 2008-06-04 11:34 @524

Tengo un archivo que requiere la librería ImageMagick; este archivo corría bien, convertía varias imágenes jpg en un archivo tiff, pero a la hora de visualizar (el Tiff) las imágenes aparecían obscuras, solo aparecen el número de páginas, pero todas obscuras. Para esto decidí instalar el ImageMagick 6.4.1 y seguí las instrucciones de instalación.

Código: Seleccionar todo
tar xvfz ImageMagick.tar.gz
cd ImageMagick-6.?.?
  ./configure
  make
 make install

-->¡¡ nunca había instalado un paquete, ni librerías !!

No sé si algo hice mal... porque ahora me vota el siguiente error,
es decir... ahora ya ni me ejecuta mi archivo.

Código: Seleccionar todo
Can't load '/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/auto/Image/Magick/Magick.so'
for module Image::Magick: libMagickCore.so.1: no se puede abrir el fichero del objeto compartido: No existe el fichero o  el directorio at /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/DynaLoader.pm line 230.
 at convierte.pl line 1
Compilation failed in require at convierte.pl line 1.
BEGIN failed--compilation aborted at convierte.pl line 1.


Espero me puedan ayudar... ¡¡Creo que instalé mal la librería!!

¡¡ Gracias !!
piero66
Perlero nuevo
Perlero nuevo
 
Mensajes: 95
Registrado: 2008-05-22 12:00 @541

Notapor explorer » 2008-06-04 14:25 @642

Mira aquí

Orden de instalación de módulos Perl en Linux/Unix.

Yo probaría con un
Código: Seleccionar todo
cpan Image::Magick
desde la línea de comandos, siendo root.

Naturalmente, en mi OpenSuse Linux, no hace falta usar ese comando, porque existe el paquete software perl-PerlMagick v6.3.5.10-2, por lo que además me aseguro de que se instalan todas las librerías correctas. En mi caso:
Código: Seleccionar todo
libc.so.6(GLIBC_2.1.3)
libc.so.6(GLIBC_2.3.4)
libc.so.6
libc.so.6(GLIBC_2.0)
libc.so.6(GLIBC_2.4)
libfreetype.so.6
libz.so.1
libMagick.so.10
perl == 5.8.8
libWand.so.10
ImageMagick == 6.3.5.10
Y todo con pulsar un par de botones. Nada de compilaciones.
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

No se pudo

Notapor piero66 » 2008-06-05 09:21 @431

¡¡Ya hice esa parte, gracias!! ¡¡¡ pero no me quita el error, ni me ejecuta nada !!! :cry: ...

No sé si tengo que hacer algo extraño, ¡¡por la mala instalación que ya realicé!!... si sabes algo ahí te encargo un tip, ¡¡para poder instalar o reinstalar!! esa librería.
piero66
Perlero nuevo
Perlero nuevo
 
Mensajes: 95
Registrado: 2008-05-22 12:00 @541

Notapor explorer » 2008-06-05 10:41 @487

Para saber si está bien instalado, haz un

Sintáxis: [ Descargar ] [ Ocultar ]
Using bash Syntax Highlighting
perl -MImage::Magick -e 1
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
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

mando error perl -MImage::Magick -e 1

Notapor piero66 » 2008-06-05 11:07 @505

ya ejecute el comando y mando el siguiente error !!

[root@linuxdu test]# perl -MImage::Magick -e 1
Can't load '/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/auto/Image/Magick/Magick.so'
for module Image::Magick: libMagickCore.so.1: no se puede abrir el fichero del objeto compartido:
No existe el fichero o el directorio at /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/DynaLoader.pm line 230.
at -e line 0
Compilation failed in require.
BEGIN failed--compilation aborted.
piero66
Perlero nuevo
Perlero nuevo
 
Mensajes: 95
Registrado: 2008-05-22 12:00 @541

Notapor explorer » 2008-06-05 11:18 @512

Efectivamente, está mal instalado.

Intenta borrar todos los ficheros mal instalados (entre como root en los directorios Perl y borra toda referencia a Image/Magick). Repasa todos los directorios indicados por la variable especial @INC.

Luego, vuelve a probar a ejecutar el comando cpan Image::Magick o mejor, antes, mira a ver si en tu sistema operativo existe ese paquete como software instalable con tu gestor de software del sistema.
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 piero66 » 2008-06-05 11:29 @520

¿Esta variable dónde la veo o que rollo?

Todos los directorios indicados por la variable especial @INC.

Perdón, pero la verdad soy bastante inexperto.
piero66
Perlero nuevo
Perlero nuevo
 
Mensajes: 95
Registrado: 2008-05-22 12:00 @541

Notapor explorer » 2008-06-05 11:35 @524

Claro, yo te doy respuestas de acuerdo al foro en que estamos (Intermedio).

Para sacar los valores de la variable @INC tienes dos opciones básicas:

Código: Seleccionar todo
perl -V

perl -e 'print "@INC"'
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 Básico

¿Quién está conectado?

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

cron