Hola, ¿qué tal...?
Quisiera ver si me podrían ayudar con este problema que tengo...
Estoy haciendo un código en el cual tengo que contar un par de palabras que son "Pre y Post"... pero algo anda mal ya que me sí me imprime cuántas veces se encontraron dichas palabras pero tengo la duda de cómo separar mi archivo por el ">" que está al principio de cada línea para así hacerlo por segmentos...
Espero y ...
-
- Publicidad
Fecha actual 2024-11-15 07:06 @337
News of Básico
Site map of Básico » Foro : Básico
¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.Contador de palabras por secuencia
Read more : Contador de palabras por secuencia | Vistas : 649 | Respuestas : 6
Duda con bucles
Hola, buenas. Soy nuevo en Perl y poco a poco voy haciendo cosillas, pero aquí os pongo un par de dudas.
$busqueda=~ m/<b>(.*)<\/b><\/font><\/a><span class="mstrucos"><\/span> /;
En $busqueda tengo guardado un fichero de texto línea a línea. Contiene el código HTML del resultado de una búsqueda.
Con esta primera línea, guardo el nombre del primer cliente en $1, pero en $2, no me guarda la segunda coincidencia. ¿¿¿ Cómo podría coger las demás coincidencias ???
while ...
$busqueda=~ m/<b>(.*)<\/b><\/font><\/a><span class="mstrucos"><\/span> /;
En $busqueda tengo guardado un fichero de texto línea a línea. Contiene el código HTML del resultado de una búsqueda.
Con esta primera línea, guardo el nombre del primer cliente en $1, pero en $2, no me guarda la segunda coincidencia. ¿¿¿ Cómo podría coger las demás coincidencias ???
while ...
Read more : Duda con bucles | Vistas : 455 | Respuestas : 3
Gráficas de barras
Siguiendo el tutorial de graficación del foro, compiló el programa correctamente y al ejecutarlo obtengo una serie de caracteres ilegibles y no entiendo qué tengo que hacer. El programa es:
#!/usr/bin/perl -w
use strict;
use CGI ':standard';
use GD::Graph::bars;
# <img src="http://localhost:8080/Perl Express/sripts/Grafica de barras.cgi" alt="Visitas Mensuales"> ;
# Defino los arreglos y la matriz
my @campos = ('Oct 2003','Nov 2003','Dec 2003','Ene 2004','Feb 2004');
my @valores = ('547','2282','2798','2354','4326');
my @graf = (\@campos, \@valores);
my $grafico ...
#!/usr/bin/perl -w
use strict;
use CGI ':standard';
use GD::Graph::bars;
# <img src="http://localhost:8080/Perl Express/sripts/Grafica de barras.cgi" alt="Visitas Mensuales"> ;
# Defino los arreglos y la matriz
my @campos = ('Oct 2003','Nov 2003','Dec 2003','Ene 2004','Feb 2004');
my @valores = ('547','2282','2798','2354','4326');
my @graf = (\@campos, \@valores);
my $grafico ...
Read more : Gráficas de barras | Vistas : 571 | Respuestas : 1
Problemas con HTML::TableExtract
Estimados..
Estoy tratando de obtener la información de una tabla HTML con el módulo HTML::TableExtract, pero no funciona nada de nada...
He probado un ejemplo dado por explorer link, pero no me muestra absolutamente nada :s
#!/usr/bin/perl
use LWP::Simple;
use HTML::TableExtract;
my $pagina = get('http://www.bcentral.cl/');
my $te = HTML::TableExtract->new( attribs => { summary => 'Indicadores diarios' } );
$te->parse($pagina);
foreach $tabla ($te->tables) {
foreach $fila ($tabla->rows) {
print " ", join(', ', @$fila), ...
Estoy tratando de obtener la información de una tabla HTML con el módulo HTML::TableExtract, pero no funciona nada de nada...
He probado un ejemplo dado por explorer link, pero no me muestra absolutamente nada :s
#!/usr/bin/perl
use LWP::Simple;
use HTML::TableExtract;
my $pagina = get('http://www.bcentral.cl/');
my $te = HTML::TableExtract->new( attribs => { summary => 'Indicadores diarios' } );
$te->parse($pagina);
foreach $tabla ($te->tables) {
foreach $fila ($tabla->rows) {
print " ", join(', ', @$fila), ...
Read more : Problemas con HTML::TableExtract | Vistas : 527 | Respuestas : 2
Paginación en tabla HTML
Hola, a ver si podéis ayudarme.
Utilizo un template HTML con una tabla para mostrar los datos recuperados de una base de datos.
Me gustaría mostrarlos de 10 en 10. ¿Algún método recomendable y sencillo?
<HTML>
<HEAD>
<title> My users</title>
</HEAD>
<p ALIGN = "center" ><a href="?mode=new">Create new user</a>
<a href="?mode=upd">Update my account</a></p>
<br>
<h2 >List of users created by </h2>
<body>
<FORM METHOD=POST ACTION="app.pl">
<input type="hidden" name="mode" value="mod">
<table border=2 width="60%" ...
Utilizo un template HTML con una tabla para mostrar los datos recuperados de una base de datos.
Me gustaría mostrarlos de 10 en 10. ¿Algún método recomendable y sencillo?
<HTML>
<HEAD>
<title> My users</title>
</HEAD>
<p ALIGN = "center" ><a href="?mode=new">Create new user</a>
<a href="?mode=upd">Update my account</a></p>
<br>
<h2 >List of users created by </h2>
<body>
<FORM METHOD=POST ACTION="app.pl">
<input type="hidden" name="mode" value="mod">
<table border=2 width="60%" ...
Read more : Paginación en tabla HTML | Vistas : 6022 | Respuestas : 21
GTK2 - Resolución de la pantalla
Hola a todos,
Estoy buscando las forma de obtener la resolución de la pantalla para redimensionar unas ventanas. He visto unos ejemplos que hablan sobre usar una librería llamada "Gtk2::Gdk::Screen" y según lo que he buscado, esta librería viene en el paquete "libgtk2-perl-doc" pero aunque lo he instalado, ésta librería no la logro usar porque sigue sin estar disponible en el sistema.
¿¿¿ Alguien me podría dar una ayudita ???
Gracias.
P.D.: Uso Ubuntu 10.10.
Estoy buscando las forma de obtener la resolución de la pantalla para redimensionar unas ventanas. He visto unos ejemplos que hablan sobre usar una librería llamada "Gtk2::Gdk::Screen" y según lo que he buscado, esta librería viene en el paquete "libgtk2-perl-doc" pero aunque lo he instalado, ésta librería no la logro usar porque sigue sin estar disponible en el sistema.
¿¿¿ Alguien me podría dar una ayudita ???
Gracias.
P.D.: Uso Ubuntu 10.10.
Read more : GTK2 - Resolución de la pantalla | Vistas : 494 | Respuestas : 3
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 : 2770 | Respuestas : 6
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 : 370 | Respuestas : 1
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 : 3601 | Respuestas : 9
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 : 526 | Respuestas : 4
Last 10 active topics
Estadísticas
Mensajes totales 36880 • Temas totales 7428 • Usuarios totales 1980