¿¿Para guardar los datos de un formulario en mysql debo usar los módulos de DBI y CGI::Lite o ya hay algún script hecho que lo solucione??
¿¿¿¿Alguien podría darme una idea????
Gracias
-
- Publicidad
Fecha actual 2024-12-22 08:28 @394
News of Foro - Perl en Español
Site map of Foro - Perl en Español » Foro : Foro - Perl en Español
La comunidad de programadores en Perl de habla-hispana.Insertar en base de datos
Read more : Insertar en base de datos | Vistas : 2194 | Respuestas : 1 | Foro : Bases de datos
Interpretar fichero CSV
Hola a todos,
Tengo que implementar un script Perl que haga lo siguiente:
Tengo que implementar un script Perl que haga lo siguiente:
- Leer fichero del tipo CSV (campos separados por el carácter ';' )
- Dicho fichero tiene una primera línea y última línea que debo ignorar, o mejor dicho, copiar literalmente en el fichero de salida.
- A partir de la segunda línea del fichero, encontramos los campos separados por ';'.
- El primer campo de la línea lo llamare CARF y su valor puede aparecer ...
Read more : Interpretar fichero CSV | Vistas : 1285 | Respuestas : 5 | Foro : Básico
Histograma
Necesito ayuda. Necesito un histograma de porcentajes de uso de discos y de la memoria del servidor.
Creo que debo utilizar los comandos df y free del sistema.
Debe ser en html. Aquí tengo algo. Ayuda plz
#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
print "Content-type: text/html\n\n";
print "<html><head><title>Ejercicio 2</title></head>\n";
print "<body>\n";
print "<center><h1> <font color=\"blue\">Ejercicio 2</font></h1></center>\n";
print "<br><br>\n";
print "Mostrando Histograma<br>\n";
print "<br>";
print "<br>\n";
print "<br>\n";
print "</body>";
print ...
Creo que debo utilizar los comandos df y free del sistema.
Debe ser en html. Aquí tengo algo. Ayuda plz
#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
print "Content-type: text/html\n\n";
print "<html><head><title>Ejercicio 2</title></head>\n";
print "<body>\n";
print "<center><h1> <font color=\"blue\">Ejercicio 2</font></h1></center>\n";
print "<br><br>\n";
print "Mostrando Histograma<br>\n";
print "<br>";
print "<br>\n";
print "<br>\n";
print "</body>";
print ...
Read more : Histograma | Vistas : 1025 | Respuestas : 3 | Foro : Básico
Búsqueda rápida en bases de datos
Buenas,
Soy nuevo con Perl, pero me han comentado que ofrece los mejores resultados en cuanto a tiempo de respuesta en búsquedas en bases de datos de cierto tamaño. Y por tamaño me refiero a entre 20.000 y 500.000 registros.
Tengo claro que no voy a tener los resultados en 1 milisegundo, pero me gustaría saber si es posible tenerlo relativamente rápido. Es para un programa web y no quisiera tener a mis clientes esperando ...
Soy nuevo con Perl, pero me han comentado que ofrece los mejores resultados en cuanto a tiempo de respuesta en búsquedas en bases de datos de cierto tamaño. Y por tamaño me refiero a entre 20.000 y 500.000 registros.
Tengo claro que no voy a tener los resultados en 1 milisegundo, pero me gustaría saber si es posible tenerlo relativamente rápido. Es para un programa web y no quisiera tener a mis clientes esperando ...
Read more : Búsqueda rápida en bases de datos | Vistas : 4136 | Respuestas : 6 | Foro : Bases de datos
Javascript: Desplegar imagenes aleatoriamente
hola nuevamente amigos...quiero pedirles una idea de cómo hacer lo siguiente:
Tengo el siguiente código:
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="163" bgcolor="#FF8D3A"><table width="163" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="123" align="center"><img src="fotos/foto1.jpg" width="158" height="118" /></td>
</tr>
<tr>
<td height="123" align="center"><img src="fotos/foto2.jpg" width="158" height="118" /></td>
</tr>
<tr>
<td height="123" align="center"><img src="fotos/foto3.jpg" width="158" height="118" /></td>
</tr>
<tr>
<td height="40"><div align="center"><img src="images/ver.jpg" width="121" height="19" /></div></td>
</tr>
</table>
Luego de ver el código me gustaría hacer lo siguiente: en ...
Tengo el siguiente código:
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="163" bgcolor="#FF8D3A"><table width="163" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="123" align="center"><img src="fotos/foto1.jpg" width="158" height="118" /></td>
</tr>
<tr>
<td height="123" align="center"><img src="fotos/foto2.jpg" width="158" height="118" /></td>
</tr>
<tr>
<td height="123" align="center"><img src="fotos/foto3.jpg" width="158" height="118" /></td>
</tr>
<tr>
<td height="40"><div align="center"><img src="images/ver.jpg" width="121" height="19" /></div></td>
</tr>
</table>
Luego de ver el código me gustaría hacer lo siguiente: en ...
Read more : Javascript: Desplegar imagenes aleatoriamente | Vistas : 4694 | Respuestas : 1 | Foro : HTML
error use of uninitialized value in concatenation
Hola a todos, les comento que soy nuevo en la programación en Perl y estoy corrigiendo un programa que tengo que convierte unos archivos binarios en ASCII. El problema que tengo es que un proceso me genera estos archivos en binario; algunos archivos los procesa y otros no.
En aquellos caso de los que no me procesa me muestra el siguiente error.
c:\perl\tap3.bat c:\tap_process\CDBRASPGTMSC00324
use of uninitialized value in concatenation (.) or string at c:\perl\lib\tap3\tap3edit.pm ...
En aquellos caso de los que no me procesa me muestra el siguiente error.
c:\perl\tap3.bat c:\tap_process\CDBRASPGTMSC00324
use of uninitialized value in concatenation (.) or string at c:\perl\lib\tap3\tap3edit.pm ...
Read more : error use of uninitialized value in concatenation | Vistas : 1345 | Respuestas : 2 | Foro : Intermedio
Tpage y Ttree
Buenas me gustaría saber si conocen un buen tutorial en español o que ustedes mismos me expliquen como es el manejo de un tpage y de un ttree, lo que pasa es que intente realizar una pero este no me funciona y no se por qué, también lo que he leído me indica que debo guardar en templat.tt en una carpeta de Perl pero no me indica cual.
Gracias por la ayuda que me puedan ...
Gracias por la ayuda que me puedan ...
Read more : Tpage y Ttree | Vistas : 1411 | Respuestas : 0 | Foro : Web
expresiones regulares...
hola a todos...
resulta que estoy extrayendo valores de un fichero de configuración de formato:
tengo el siguiente código.
while (<LOG>) {
chomp;
next if !/^\s*(\w+)\s*=\s*(\w+\w)\s*$/;
$var{$1} = $2;
}
este me funciona... PEROOOOO si una de las cadenas tiene un punto (.) ya no me lo toma.... ¿¿¿ cómo podría modificar la linea de la expresión regular para poder obtener el valor ???
Gracias por ...
resulta que estoy extrayendo valores de un fichero de configuración de formato:
- Code: Seleccionar todo
nombre1 = cadena1
nombre2 = cadena2
......
tengo el siguiente código.
while (<LOG>) {
chomp;
next if !/^\s*(\w+)\s*=\s*(\w+\w)\s*$/;
$var{$1} = $2;
}
este me funciona... PEROOOOO si una de las cadenas tiene un punto (.) ya no me lo toma.... ¿¿¿ cómo podría modificar la linea de la expresión regular para poder obtener el valor ???
Gracias por ...
Read more : expresiones regulares... | Vistas : 1516 | Respuestas : 4 | Foro : Intermedio
Ejemplos XML::CSV
Por favor si alguno tuviera un ejemplo de cómo utilizar esta librería exactamente en este ejemplo:
use XML::CSV;
$csvo = XML::CSV->new();
$csvo->{column_heading} = \@arr_of_headings;
$csvo->parse_doc("A.csv");
$csvo->print_xml("Z.xml", {format => " ", file_tag = "x.xml", parent_tag => "alfa"});
me sale un error :
use XML::CSV;
$csvo = XML::CSV->new();
$csvo->{column_heading} = \@arr_of_headings;
$csvo->parse_doc("A.csv");
$csvo->print_xml("Z.xml", {format => " ", file_tag = "x.xml", parent_tag => "alfa"});
me sale un error :
- Code: Seleccionar todo
Can't modify constant item in scalar assignment at arch.pl line 5, near "x.xml","
Read more : Ejemplos XML::CSV | Vistas : 1828 | Respuestas : 9 | Foro : Básico
Pregunta sobre XML y Perl
Hola Amigos Perlianos :
Estoy batallando un poquito al tratar de recibir datos en XML dentro de un script en Perl y estoy un poco confundido.
Estoy utilizando XML::Simple, con la instrucción XLMin();
Mi Script es el siguiente :
use strict;
print "Content-type:text/html\n\n";
use XML::Simple;
$xml = new XML::Simple ();
$reservas = $xml->XMLin();
$action = $reservas->{action};
$propid = $reservas->{PropertyID};
$propname = $reservas->{PropertyName};
$chaincode = $reservas->{ChainCode};
# ... y asi sucesivamente armo la estructura de datos ...
Estoy batallando un poquito al tratar de recibir datos en XML dentro de un script en Perl y estoy un poco confundido.
Estoy utilizando XML::Simple, con la instrucción XLMin();
Mi Script es el siguiente :
use strict;
print "Content-type:text/html\n\n";
use XML::Simple;
$xml = new XML::Simple ();
$reservas = $xml->XMLin();
$action = $reservas->{action};
$propid = $reservas->{PropertyID};
$propname = $reservas->{PropertyName};
$chaincode = $reservas->{ChainCode};
# ... y asi sucesivamente armo la estructura de datos ...
Read more : Pregunta sobre XML y Perl | Vistas : 2001 | Respuestas : 5 | Foro : Intermedio
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981