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 2024-11-07 03:48 @200
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.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 : 2471 | Respuestas : 4
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 : 712 | Respuestas : 2
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 : 890 | Respuestas : 3
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 : 1847 | Respuestas : 10
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 : 666 | Respuestas : 2
Expresión regular para Delphi
Tengo un archivo de texto que no puedo modificar y tengo que sacar lo que quiero con una expresión regular precisa porque solo necesito la expresión regular para Delphi. No puedo hacer otra cosa más en Delphi que usar esta expresión regular.
El archivo lo subí acá: http://uploaded.net/file/0wcj751e
El código que tengo hasta ahora es este :
open(FILE,"test.txt");
my $words = <FILE>;
close FILE;
if($words=~/T R O ...
El archivo lo subí acá: http://uploaded.net/file/0wcj751e
El código que tengo hasta ahora es este :
open(FILE,"test.txt");
my $words = <FILE>;
close FILE;
if($words=~/T R O ...
Read more : Expresión regular para Delphi | Vistas : 1172 | Respuestas : 5
Modificar un html, en línea
Hola compañeros,
Un proceso genera un html. Necesito añadirle en el <head> del html la siguiente línea para que me reconozca el encoding:
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
Necesito automatizar este proceso. Con el siguiente comando tendría que añadirme en la 4ª fila del html la línea deseada, pero me peta por las comillas.
perl -pi -e 'print "<meta http-equip="content-type" content="text/html; charset=utf-8">\n" if $. == 4' olas.htm
El mensaje error:
Bareword ...
Un proceso genera un html. Necesito añadirle en el <head> del html la siguiente línea para que me reconozca el encoding:
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
Necesito automatizar este proceso. Con el siguiente comando tendría que añadirme en la 4ª fila del html la línea deseada, pero me peta por las comillas.
perl -pi -e 'print "<meta http-equip="content-type" content="text/html; charset=utf-8">\n" if $. == 4' olas.htm
El mensaje error:
Bareword ...
Read more : Modificar un html, en línea | Vistas : 679 | Respuestas : 2
Obteniendo STDOUT
Hola amigos, un saludo.
El día de hoy, les quiero preguntar lo siguiente.
Si yo ejecuto...
system(qq(./crypter/cifranick "$valor" "$valor"));
¿Puedo obtener la salida del programa 'cifranick'?
# Usando
<STDOUT>; # ¿Es posible?
El día de hoy, les quiero preguntar lo siguiente.
Si yo ejecuto...
system(qq(./crypter/cifranick "$valor" "$valor"));
¿Puedo obtener la salida del programa 'cifranick'?
# Usando
<STDOUT>; # ¿Es posible?
Read more : Obteniendo STDOUT | Vistas : 760 | Respuestas : 2
Duda con Funciones
Hola, tengo un problema con el siguiente código. El problema es que no me devuelve los enlaces que le pido a las dos funciones. Probé sacando download_all() y hacer lo mismo y sí funciona, pero el problema es que cuando está en la función no devuelve nada.
¿ Alguien me podría explicar por qué?
use LWP::UserAgent;
use URI::Split qw(uri_split);
use HTML::LinkExtor;
my $nave = LWP::UserAgent->new;
$nave->agent( "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) ...
¿ Alguien me podría explicar por qué?
use LWP::UserAgent;
use URI::Split qw(uri_split);
use HTML::LinkExtor;
my $nave = LWP::UserAgent->new;
$nave->agent( "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) ...
Read more : Duda con Funciones | Vistas : 929 | Respuestas : 3
Last 10 active topics
Estadísticas
Mensajes totales 36880 • Temas totales 7428 • Usuarios totales 1980