Hola, amigos del foro.
Tengo un archivo que que tiene 5 columnas, la primera corresponde a fecha y hora juntos -AAAAMMDDHH- (por ejemplo, 2012010100) pero falta un día (es el año 2012 completo) e hice un script para que buscara esa fecha, y es obvio que estoy haciendo algo mal porque el resultado muestra una fecha, pero al revisar el archivo esa fecha sí está.
Agradezco mucho si me ayudan. Adjunto mi script:
#!/usr/bin/perl ...
-
- Publicidad
Fecha actual 2025-02-22 03:49 @200
News of Mundo Perl
Site map of Mundo Perl » Foro : Mundo Perl
Buscar dato en archivo
Read more : Buscar dato en archivo | Vistas : 3277 | Respuestas : 16 | Foro : Básico
Usar un convertidor online desde perl
Otra vez pasando por aquí.
Tengo un problema. Al tratar de automatizar el uso de este convertidor online a través de perl usé el LWP::UserAgent pero no funciona. No funciona porque el servidor es algo especial y sumado a mis pocos conocimientos es fatal pero creo conocer lo básico. Paso a explicar lo que he podido analizar con este servidor:
Primero aislé el form que hace una petición POST al servidor (al parecer hacía una ...
Tengo un problema. Al tratar de automatizar el uso de este convertidor online a través de perl usé el LWP::UserAgent pero no funciona. No funciona porque el servidor es algo especial y sumado a mis pocos conocimientos es fatal pero creo conocer lo básico. Paso a explicar lo que he podido analizar con este servidor:
Primero aislé el form que hace una petición POST al servidor (al parecer hacía una ...
Read more : Usar un convertidor online desde perl | Vistas : 3727 | Respuestas : 10 | Foro : Web
Pasos para crear una aplicación CGI en Tomcat
He seguido estos pasos:
1. Modificar el archivo context.xml
<Context privileged="true"> ...
2. Modificar el archivo web.xml, descomentando lo referente a cgi
3. Crear el archivo "ejecutable.cgi", lo coloco en webapps/ROOT/miCarpeta/WEB-INF/cgi/ejecutable.cgi
El archivo "ejecutable,cgi" es el siguiente:
#!c:/perl/bin/perl.exe
print "Content-type:text/html\r\n\r\n";
print '<html>';
print '<head>';
print '<title>Hola desde un script Perl</title>';
print '</head>';
print '<body>';
print '<h2>Primer programa CGI</h2>';
print '</body>';
print '</html>';
1;
El servidor es Apache Tomcat, funciona correctamente, el ...
1. Modificar el archivo context.xml
<Context privileged="true"> ...
2. Modificar el archivo web.xml, descomentando lo referente a cgi
3. Crear el archivo "ejecutable.cgi", lo coloco en webapps/ROOT/miCarpeta/WEB-INF/cgi/ejecutable.cgi
El archivo "ejecutable,cgi" es el siguiente:
#!c:/perl/bin/perl.exe
print "Content-type:text/html\r\n\r\n";
print '<html>';
print '<head>';
print '<title>Hola desde un script Perl</title>';
print '</head>';
print '<body>';
print '<h2>Primer programa CGI</h2>';
print '</body>';
print '</html>';
1;
El servidor es Apache Tomcat, funciona correctamente, el ...
Read more : Pasos para crear una aplicación CGI en Tomcat | Vistas : 3906 | Respuestas : 9 | Foro : Web
Generar nombres y apellidos al azar
Hola a todos,
tengo un problemilla de novato con Perl, a ver si alguien me puede echar una mano.
Tengo que hacer un programa que genere nombres y apellidos al azar y luego otro programa que lea el archivo donde se guardan los nombres y los cuente indicando por pantalla las veces que se repite cada uno.
Hasta aquí todo bien. El problema que tengo es que el nombre del archivo debe ser variable y ...
tengo un problemilla de novato con Perl, a ver si alguien me puede echar una mano.
Tengo que hacer un programa que genere nombres y apellidos al azar y luego otro programa que lea el archivo donde se guardan los nombres y los cuente indicando por pantalla las veces que se repite cada uno.
Hasta aquí todo bien. El problema que tengo es que el nombre del archivo debe ser variable y ...
Read more : Generar nombres y apellidos al azar | Vistas : 2529 | Respuestas : 4 | Foro : Básico
Base de datos
Tengo un problema con esta base de datos.
if ( database( "nicks", "nicks.db", "$nickR" ) ) {
screen(qq($BOTS{"nick"} P $UserDest :Ese nick ya se encuentra registrado, Por favor escoja otro.\n));
screen(qq($BOTS{"nick"} P $UserDest :Por ejemplo '$nickR$options' -> $aa\n));
}
else { &make_nick( "$nickR", "nicks.db", "nicks" ); }
sub make_nick {
my ( $regadd, $data, $dir ) = ( shift, shift, shift );
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) ...
if ( database( "nicks", "nicks.db", "$nickR" ) ) {
screen(qq($BOTS{"nick"} P $UserDest :Ese nick ya se encuentra registrado, Por favor escoja otro.\n));
screen(qq($BOTS{"nick"} P $UserDest :Por ejemplo '$nickR$options' -> $aa\n));
}
else { &make_nick( "$nickR", "nicks.db", "nicks" ); }
sub make_nick {
my ( $regadd, $data, $dir ) = ( shift, shift, shift );
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) ...
Read more : Base de datos | Vistas : 769 | Respuestas : 2 | Foro : Básico
Aclaración http::server::simple
Buenos días.
Quiero realizar una aplicación de escritorio basada en web, como si de una página web se tratara, pero en local.
No quiero instalar ningún servidor web en mi máquina.
He leído algo sobre http::server::simple pero los ejemplos que he visto no me aclaran la duda de si con este módulo se podría crear un mini servidor en localhost que aceptara cgi y ejecutarlos, o si habría otro módulo que cubriera mis necesidades, que ...
Quiero realizar una aplicación de escritorio basada en web, como si de una página web se tratara, pero en local.
No quiero instalar ningún servidor web en mi máquina.
He leído algo sobre http::server::simple pero los ejemplos que he visto no me aclaran la duda de si con este módulo se podría crear un mini servidor en localhost que aceptara cgi y ejecutarlos, o si habría otro módulo que cubriera mis necesidades, que ...
Read more : Aclaración http::server::simple | Vistas : 957 | Respuestas : 3 | Foro : Básico
Contar las veces en que aparece un símbolo
Compañeros, primero que nada les deseo éxitos en su vida cotidiana. Seguido de mi corto pero caluroso saludo, pasaré a exponerles mi problema para verificar si me pueden entregar una solución. De antemano, ¡¡¡MUCHAS GRACIAS!!!
Tengo un archivo de varias líneas que, conforme a un bucle, voy ingresándolo en una variable:
$string="aquí un valor= aquí otro valor"
Lo que me ha estado dando un poco de problema es que a veces viene la línea ...
Tengo un archivo de varias líneas que, conforme a un bucle, voy ingresándolo en una variable:
$string="aquí un valor= aquí otro valor"
Lo que me ha estado dando un poco de problema es que a veces viene la línea ...
Read more : Contar las veces en que aparece un símbolo | Vistas : 1970 | Respuestas : 10 | Foro : Básico
Transformar imagen en base 64
Hola, un colega me está enviado una imagen codificada en base64, o sea, un poco de cadena de caracteres... pero no sé cómo recibirlo en Perl y mostrarlo en un HTML...
Él sólo tenía que enviarme un mensaje desde una aplicación Windows Phone con una foto y yo generar un html.
Él sólo tenía que enviarme un mensaje desde una aplicación Windows Phone con una foto y yo generar un html.
Read more : Transformar imagen en base 64 | Vistas : 1197 | Respuestas : 1 | Foro : Intermedio
Foreach dentro de un eval
Estoy utilizando un eval, para controlar múltiples inserciones en una base de datos transaccional. la idea es ejecutar un foreach dentro del eval, y por cada elemento foreach hacer una inserción en tabla.
eval {
foreach my $elemento (@arreglo) {
insertar en tabla
}
};
.... otras sentencias ...
La pregunta es, que no sé por qué razón NO INGRESA dentro del eval y ejecuta el foreach. Directamente está ejecutando las sentencias ...
eval {
foreach my $elemento (@arreglo) {
insertar en tabla
}
};
.... otras sentencias ...
La pregunta es, que no sé por qué razón NO INGRESA dentro del eval y ejecuta el foreach. Directamente está ejecutando las sentencias ...
Read more : Foreach dentro de un eval | Vistas : 1234 | Respuestas : 1 | Foro : Intermedio
Problema con salto de línea
Hola,
Tengo un problema que no veo en el foro cómo resolver. Seguro que es una tontería, pero no lo veo :-(
Estoy intentando sacar el año, mes y día mediante:
#!/usr/bin/perl
### Variables
my %mon2num = qw(
Jan 01 Feb 02 Mar 03 Apr 04 May 05 Jun 06
Jul 07 Aug 08 Sep 09 Oct 10 Nov 11 Dec 12
);
my $year;
my ...
Tengo un problema que no veo en el foro cómo resolver. Seguro que es una tontería, pero no lo veo :-(
Estoy intentando sacar el año, mes y día mediante:
#!/usr/bin/perl
### Variables
my %mon2num = qw(
Jan 01 Feb 02 Mar 03 Apr 04 May 05 Jun 06
Jul 07 Aug 08 Sep 09 Oct 10 Nov 11 Dec 12
);
my $year;
my ...
Read more : Problema con salto de línea | Vistas : 699 | Respuestas : 2 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981