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í: ...
-
- Publicidad
Fecha actual 2024-11-30 11:38 @526
News of Mundo Perl
Site map of Mundo Perl » Foro : Mundo Perl
Eliminar el último salto de línea de un texto
Read more : Eliminar el último salto de línea de un texto | Vistas : 2788 | 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 : 375 | 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 : 3060 | 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 : 3622 | 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 : 540 | 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 : 727 | 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 : 483 | 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 : 1068 | 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 : 1784 | Respuestas : 0 | Foro : Juegos
Recursividad arrays
Buenas,
tengo un problema en una función recursiva, concretamente en el uso de un array. El error que me da el navegador, es el siguiente:
Can't use an undefined value as an ARRAY reference at parseXML.cgi line 1817.
La función recorre una estructura $SubPart que puede tener a su vez $SubPart.
El array $posNiveles lo empleo para saber en qué nivel de profundidad estoy. Ejemplo: $posNiveles significaría: "estoy en el elemento 3 del primer nivel, ...
tengo un problema en una función recursiva, concretamente en el uso de un array. El error que me da el navegador, es el siguiente:
Can't use an undefined value as an ARRAY reference at parseXML.cgi line 1817.
La función recorre una estructura $SubPart que puede tener a su vez $SubPart.
El array $posNiveles lo empleo para saber en qué nivel de profundidad estoy. Ejemplo: $posNiveles significaría: "estoy en el elemento 3 del primer nivel, ...
Read more : Recursividad arrays | Vistas : 751 | Respuestas : 4 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36882 • Temas totales 7430 • Usuarios totales 1981