Hola, amigos.
Tal vez sea muy fácil, pero la verdad, no sé cómo hacerlo y les agradecería una ayuda con lo siguiente:
Tengo un archivo de texto con la siguiente información (y pueden ser más polinomios); como la imagen a la cual se refiere ese mapa la he reducido a un 50% de su tamaño original.
<area shape="poly" alt="" coords="215,27,216,66,229,71,222,83,228,146,232,152,239,138,252,139,261,127,275,128,281,124,287,128,288,134,303,144,325,143,330,142,336,151,335,160,337,162,340,165,340,172,346,176,354,177,358,176,365,188,360,224,362,228,364,229,382,224,383,218,391,218,395,215,396,187,394,168,387,153,385,137,380,121,377,112,354,102,353,95,362,85,361,73,355,68,346,68,326,53,302,69,288,69,270,59,253,53,250,37,237,33,230,31,224,28,219,27,214,28" href="munic1.html" title="" />
<area shape="poly" alt="" coords="232,153,243,143,260,140,261,131,269,129,278,132,282,128,284,130,284,136,299,146,324,148,329,147,332,152,333,166,336,165,337,176,346,181,356,180,361,189,357,221,355,225,336,215,325,213,317,207,303,207,293,212,286,213,264,198,262,199,259,211,258,213,243,214,233,206,225,206,225,197,228,191,225,178,226,170,233,163,234,157" href="munic2.html" title="" />
<area shape="poly" alt="" ...
-
- Publicidad
Fecha actual 2024-11-08 17:29 @770
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.Operar sobre TODOS los números de un archivo
Read more : Operar sobre TODOS los números de un archivo | Vistas : 500 | Respuestas : 4
Salida HTML en español
¡Buenas tardes a todos!
Estoy comenzando con Perl y con CGI. Tengo un programa en Perl cuya salida en HTML no me imprime en caracteres utf8. Os dejo el código HTML y el código CGI.
Primero el html (prueba.html):
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<html>
<head>
<title>Prueba de CGI</title>
</head>
<body>
<p>Pregunta lo que quieras saber</p>
<form method="POST" action="http://localhost/cgi-bin/prueba.cgi">
<p><input type="text" name="consulta" size=36><input type="submit" value="Enviar"></p>
</form>
</body>
</html>
Ahora el programa CGI (prueba.cgi) ...
Estoy comenzando con Perl y con CGI. Tengo un programa en Perl cuya salida en HTML no me imprime en caracteres utf8. Os dejo el código HTML y el código CGI.
Primero el html (prueba.html):
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<html>
<head>
<title>Prueba de CGI</title>
</head>
<body>
<p>Pregunta lo que quieras saber</p>
<form method="POST" action="http://localhost/cgi-bin/prueba.cgi">
<p><input type="text" name="consulta" size=36><input type="submit" value="Enviar"></p>
</form>
</body>
</html>
Ahora el programa CGI (prueba.cgi) ...
Read more : Salida HTML en español | Vistas : 756 | Respuestas : 6
Buscando un valor en hash
Hola,
Primero, ¡¡enhorabuena por el foro! Llevo una semana aprendiendo Perl y la verdad es que leyéndolo he solucionado la mayoría de los problemas que he tenido, pero ahora me he topado con uno que no sé muy bien cómo resolver. Espero explicarme bien.
Tengo el siguiente fichero:
GDATADEC.Sistemas 0 default anyone p cyrus lrswipcda root lrswipcda ddoljcto lrswipd gdatmgim lrswipd
GDATADEC.Sistemas.Root 0 default anyone p cyrus lrswipcda root lrswipcda ddoljcto lrsp gdatmgim lrswipd ...
Primero, ¡¡enhorabuena por el foro! Llevo una semana aprendiendo Perl y la verdad es que leyéndolo he solucionado la mayoría de los problemas que he tenido, pero ahora me he topado con uno que no sé muy bien cómo resolver. Espero explicarme bien.
Tengo el siguiente fichero:
GDATADEC.Sistemas 0 default anyone p cyrus lrswipcda root lrswipcda ddoljcto lrswipd gdatmgim lrswipd
GDATADEC.Sistemas.Root 0 default anyone p cyrus lrswipcda root lrswipcda ddoljcto lrsp gdatmgim lrswipd ...
Read more : Buscando un valor en hash | Vistas : 526 | Respuestas : 5
Formulario en Tk
Tengo un problema con el siguiente código. El problema es que tengo una ventana que tiene un botón, el cual abre otra ventana que es como un formulario; en el formulario tienes que poner una palabra y después con un botón del formulario se muestra la variable por pantalla. El problema es que no se puede cargar el segundo formulario dos veces para mostrar la variable del segundo formulario porque aparece un error.
use ...
use ...
Read more : Formulario en Tk | Vistas : 586 | Respuestas : 2
Contador no incrementa variable
Hola, Foro.
Lo que intento conseguir es que en base al siguiente código realice lo siguiente:
Abrir un archivo y leer la última cadena que contenga caracteres; posteriormente guardar esta cadena en un arreglo; una vez guardada realizar una búsqueda de un número que se encuentre en el rango de 0-5; una vez encontrado el número incrementar el valor de este en 1; posteriormente agregar una cadena de caracteres con la variable incrementada al mismo ...
Lo que intento conseguir es que en base al siguiente código realice lo siguiente:
Abrir un archivo y leer la última cadena que contenga caracteres; posteriormente guardar esta cadena en un arreglo; una vez guardada realizar una búsqueda de un número que se encuentre en el rango de 0-5; una vez encontrado el número incrementar el valor de este en 1; posteriormente agregar una cadena de caracteres con la variable incrementada al mismo ...
Read more : Contador no incrementa variable | Vistas : 727 | Respuestas : 3
Problemas con Perl y Postgres
Tengo el siguiente código:
#!/usr/bin/perl
use CGI;
use DBI;
use DBD::Pg;
#use CGI::Carp qw(fatalsToBrowser);
#print error;
#print "Content-type: text/html;charset=UTF-8\n\n";
my $dbh = DBI->connect( "DBI:Pg:dbname=pruebaconex;host=localhost;port=5432",
"directorio", "directorio", { pg_enable_utf8 => 1 } )
or die "Unable to connect: $DBI::errstr\n";
my $sth = $dbh->prepare("SELECT columna,columna1 FROM tabla");
$sth->execute();
while ( @row = $sth->fetchrow_array ) { push( @row1, $row ) }
#print "en el modulo:@row";
$sth = $dbh->disconnect();
print "aki esta el:@row1";
y m arroja el ...
#!/usr/bin/perl
use CGI;
use DBI;
use DBD::Pg;
#use CGI::Carp qw(fatalsToBrowser);
#print error;
#print "Content-type: text/html;charset=UTF-8\n\n";
my $dbh = DBI->connect( "DBI:Pg:dbname=pruebaconex;host=localhost;port=5432",
"directorio", "directorio", { pg_enable_utf8 => 1 } )
or die "Unable to connect: $DBI::errstr\n";
my $sth = $dbh->prepare("SELECT columna,columna1 FROM tabla");
$sth->execute();
while ( @row = $sth->fetchrow_array ) { push( @row1, $row ) }
#print "en el modulo:@row";
$sth = $dbh->disconnect();
print "aki esta el:@row1";
y m arroja el ...
Read more : Problemas con Perl y Postgres | Vistas : 676 | Respuestas : 3
Obtener lista de un Listbox en Tk
Mi pregunta es cómo poder capturar en un array todo el contenido de un Listbox que usa Tk, me refiero a tenerlo en un array para después mostrarlo.
Read more : Obtener lista de un Listbox en Tk | Vistas : 353 | Respuestas : 1
Duda con módulo Email-Send-SMTP
Tengo una pregunta sobre el módulo Email-Send-SMTP. Mi pregunta es cómo poder mandar código HTML en el body, eso es algo que se soluciona usando content type pero en este módulo no sé cómo se hace.
¿ Alguien me puede ayudar ?
¿ Alguien me puede ayudar ?
Read more : Duda con módulo Email-Send-SMTP | Vistas : 694 | Respuestas : 7
HTTP::Date 6 not found
Hola, soy yo de nuevo :D
Esta vez me pasa que he intentado instalar LWP pero necesito varios prerequisitos, uno de los cuales es HTTP::Date, lo instalé con cpanp i HTTP::Date, y se instala satisfactoriamente.
Mi problema es que al volver a intentar instalar LWP me sale el mismo error "Warning: HTTP::Date 6 not found. We have 1.47."
Así que lo instalé manualmente descargándolo desde cpan.org ...
Esta vez me pasa que he intentado instalar LWP pero necesito varios prerequisitos, uno de los cuales es HTTP::Date, lo instalé con cpanp i HTTP::Date, y se instala satisfactoriamente.
Mi problema es que al volver a intentar instalar LWP me sale el mismo error "Warning: HTTP::Date 6 not found. We have 1.47."
Así que lo instalé manualmente descargándolo desde cpan.org ...
Read more : HTTP::Date 6 not found | Vistas : 1173 | Respuestas : 7
cpan no tiene acceso a internet :(
Hola, soy nuevo en Perl, tengo CentOS y la verdad es que ya he buscado mucho por Internet sin encontrar ninguna respuesta a mi problema...
Me pasa que al abrir la shell de cpan (perl -MCPAN -e shell) y al hacer cualquier cosa que requiera salir a Internet me da el siguiente mensaje:
-Esto para install CPAN
Me pasa que al abrir la shell de cpan (perl -MCPAN -e shell) y al hacer cualquier cosa que requiera salir a Internet me da el siguiente mensaje:
-Esto para install CPAN
Is it OK to try to connect to the Internet?
Fetching with LWP:
...
Read more : cpan no tiene acceso a internet :( | Vistas : 561 | Respuestas : 4
Last 10 active topics
Estadísticas
Mensajes totales 36880 • Temas totales 7428 • Usuarios totales 1980