Hola buenas, acá va una consulta interesante, a ver si con vuestra ayuda puedo solucionarlo; si es en Perl, mejor.
Tengo un programa que genera imágenes y las guarda en un formato sin extensión (no entiendo el porqué, pero bueno). Necesito saber cuál es el formato de las mismas o cómo convertirlas a jpg, bmp o algún formato conocido con algún script.
El programa fuente está en C++ y no encuentro más información que ésta ...
-
- Publicidad
Fecha actual 2025-02-18 17:06 @754
News of Mundo Perl
Site map of Mundo Perl » Foro : Mundo Perl
Imágenes sin extensión a convertir con script
Read more : Imágenes sin extensión a convertir con script | Vistas : 3833 | Respuestas : 14 | Foro : Intermedio
Eliminar el último salto de línea de un texto
Tengo el siguiente código:
open( PASS, "< test.txt" );
my @contenido = <PASS>;
foreach my $linea (@contenido) {
chomp $linea;
print $linea;
}
close(PASS);
test.txt:
hola amigo
Hasta ahí todo funciona bien, pero si el archivo tiene más de una línea, la cosa se complica:
test.txt:
hola amigo
cómo estás
salida:
hola amigocomo estas
Lo que necesito es eliminar el salto de línea respetando las dos líneas para que quede así: ...
open( PASS, "< test.txt" );
my @contenido = <PASS>;
foreach my $linea (@contenido) {
chomp $linea;
print $linea;
}
close(PASS);
test.txt:
hola amigo
Hasta ahí todo funciona bien, pero si el archivo tiene más de una línea, la cosa se complica:
test.txt:
hola amigo
cómo estás
salida:
hola amigocomo estas
Lo que necesito es eliminar el salto de línea respetando las dos líneas para que quede así: ...
Read more : Eliminar el último salto de línea de un texto | Vistas : 2864 | Respuestas : 6 | Foro : Básico
Perl sin errores
Programo en C, a un nivel aceptable, me defiendo. Estoy iniciando con Perl, en la librería nada más encontré este libro, ¿alguien lo conoce? ¿Me lo recomienda? Busqué el libro del mismo autor manual de referencia pero no me lo consiguieron.
Read more : Perl sin errores | Vistas : 388 | Respuestas : 1 | Foro : Básico
Expresión regular control edades
Estoy teniendo problemas con una expresión regular que detecta las edades.
La idea es que si en el texto se encuentra el patrón "P X años", donde "X" es un número de 1 a 3 dígitos, y "P" es una palabra distinta a "hace", "durante" y "por".
Esta última parte es la que no consigo que funcione, no sé cómo indicar en la expresión regular que no aparezcan ninguna de esas 3 palabras. Lo he ...
La idea es que si en el texto se encuentra el patrón "P X años", donde "X" es un número de 1 a 3 dígitos, y "P" es una palabra distinta a "hace", "durante" y "por".
Esta última parte es la que no consigo que funcione, no sé cómo indicar en la expresión regular que no aparezcan ninguna de esas 3 palabras. Lo he ...
Read more : Expresión regular control edades | Vistas : 3098 | Respuestas : 3 | Foro : Intermedio
Html a PDF usando HTML::HTMLDoc
Estimados:
Tengo el siguiente script para generar un PDF a partir de un html. Crea un archivo PDF.pdf, pero con cero byte :s..
#!/usr/bin/perl
use HTML::HTMLDoc;
use strict;
my $str1 = '
<html>
<body>
hola
</body>
</html>
';
my $html = new HTML::HTMLDoc(); # Start instance
$html->set_page_size('letter'); # set page size
$html->set_bodyfont('Arial'); # set font
$html->set_left_margin(1, 'in'); # set margin
$html->set_html_content($str1); # contents to convert
my $pdf = $html->generate_pdf(); # generate document
$pdf->to_file('pdf.pdf'); # ...
Tengo el siguiente script para generar un PDF a partir de un html. Crea un archivo PDF.pdf, pero con cero byte :s..
#!/usr/bin/perl
use HTML::HTMLDoc;
use strict;
my $str1 = '
<html>
<body>
hola
</body>
</html>
';
my $html = new HTML::HTMLDoc(); # Start instance
$html->set_page_size('letter'); # set page size
$html->set_bodyfont('Arial'); # set font
$html->set_left_margin(1, 'in'); # set margin
$html->set_html_content($str1); # contents to convert
my $pdf = $html->generate_pdf(); # generate document
$pdf->to_file('pdf.pdf'); # ...
Read more : Html a PDF usando HTML::HTMLDoc | Vistas : 3682 | Respuestas : 9 | Foro : Básico
Ejecutar programas Perl desde otro ambiente
¿Cómo puedo ejecutar programas en Perl llamados desde un desarrollo en Java o .Net? ¿O es posible generar un programa ejecutable de Perl?
Read more : Ejecutar programas Perl desde otro ambiente | Vistas : 582 | Respuestas : 4 | Foro : Básico
Spreadsheet::WriteExcel, agrupar celdas
Estoy utilizando la siguiente propiedad pero cuando ingreso todos los parámetros sale error:
setRow($row, $height, $format = null, $hidden = true, $level = 0)
Estoy tratando de agrupar celdas en Excel, ¿cómo podría hacerlo?
setRow($row, $height, $format = null, $hidden = true, $level = 0)
Estoy tratando de agrupar celdas en Excel, ¿cómo podría hacerlo?
Read more : Spreadsheet::WriteExcel, agrupar celdas | Vistas : 755 | Respuestas : 1 | Foro : Básico
GTK2 - Ventana sin bordes ni barras
Bueno, acá de nuevo con otra duda.
¿Alguien sabrá si es posible crear dos ventanas sin bordes ni barras como la que que se crea con los botones de cerrar, maximizar, minimizar, etc?
Necesito crear una ventana con estas características de tal forma que pueda colocar una ventana con un tamaño bien reducido (100x100) encima y en una esquina de otra que será más grande para conseguir el efecto "picture in picture".
Espero que sea ...
¿Alguien sabrá si es posible crear dos ventanas sin bordes ni barras como la que que se crea con los botones de cerrar, maximizar, minimizar, etc?
Necesito crear una ventana con estas características de tal forma que pueda colocar una ventana con un tamaño bien reducido (100x100) encima y en una esquina de otra que será más grande para conseguir el efecto "picture in picture".
Espero que sea ...
Read more : GTK2 - Ventana sin bordes ni barras | Vistas : 521 | Respuestas : 2 | Foro : Básico
Cómo hacer un array en base a la entrada de otro array
Buen día, soy nuevo programando en Perl.
En estos días he tenido que hacer un programilla.
Realizo una conexión con una tabla de MySQL para observar los datos de la tabla, los cuales se guardan en un array. Que sucede yo necesito sacar un campo de ese array, el cual contiene a su vez unos registros.
Ejemplo, tengo lo siguiente:
while( @data = $consulta->fetchrow_array() ){
my $name = $data;
my $history_type_id = $data;
my $ticket_id ...
En estos días he tenido que hacer un programilla.
Realizo una conexión con una tabla de MySQL para observar los datos de la tabla, los cuales se guardan en un array. Que sucede yo necesito sacar un campo de ese array, el cual contiene a su vez unos registros.
Ejemplo, tengo lo siguiente:
while( @data = $consulta->fetchrow_array() ){
my $name = $data;
my $history_type_id = $data;
my $ticket_id ...
Read more : Cómo hacer un array en base a la entrada de otro array | Vistas : 1158 | Respuestas : 8 | Foro : Básico
Disponible Box2D para Perl
Box2D es un motor de física, usado en juegos, como el popular Angry Birds.
Kartik ha realizado un enlazado con esta biblioteca, permitiendo su uso en Perl. Hay un enlace a un vídeo de demostración.
Artículo (en inglés)
Kartik ha realizado un enlazado con esta biblioteca, permitiendo su uso en Perl. Hay un enlace a un vídeo de demostración.
Artículo (en inglés)
Read more : Disponible Box2D para Perl | Vistas : 1810 | Respuestas : 0 | Foro : Juegos
Last 10 active topics
Estadísticas
Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981