Hola a todos.
Tengo un problemilla al obtener el mes en la llamada al sistema "date" de esta forma.
my %meses=( ......
'noviembre' => "Noviembre",
'diciembre' => "Diciembre",
);
my $timestamp=`date "+%d de $meses{%B} del %Y"`;
No me muestra el mes en mi formato cuando hago print "$timestamp"...
Sin embargo sí que lo muestra si no hago referencia al hash...
Muchas gracias por adelantado.
Un saludo.
-
- Publicidad
Fecha actual 2025-01-24 08:05 @378
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.Fecha con mi formato
Read more : Fecha con mi formato | Vistas : 709 | Respuestas : 5 | Foro : Básico
Pasar varios hash desde subrutina
Hola de nuevo.
Hace poco me surgía la duda con los array y ahora con los hash.
Si quiero retornar varios hashes desde una función:
return (\%hash_1, \%hash_2, \%hash_3);
La llamada, la haré, como en el caso de los arrays, de la siguiente forma, puesto que es una referencia lo que pasa:
my ($ref_1, $ref_2, $ref_3) = miFuncion();
¿Y para usar los valores?. Esta es mi duda.
Con los arrays, por ejemplo hubiésemos hecho algo ...
Hace poco me surgía la duda con los array y ahora con los hash.
Si quiero retornar varios hashes desde una función:
return (\%hash_1, \%hash_2, \%hash_3);
La llamada, la haré, como en el caso de los arrays, de la siguiente forma, puesto que es una referencia lo que pasa:
my ($ref_1, $ref_2, $ref_3) = miFuncion();
¿Y para usar los valores?. Esta es mi duda.
Con los arrays, por ejemplo hubiésemos hecho algo ...
Read more : Pasar varios hash desde subrutina | Vistas : 560 | Respuestas : 3 | Foro : Básico
Cómo enviar cabeceras en CGI
Estilo PHP.
header("Content-Type: application/vnd.ms-excel");
¿Cómo lo haríamos en perl-cgi?
Disculpen la ignorancia pero solo he usado Perl CLI.
Tengo que hacer una aplicación para sacar comisiones y necesito forzar la descarga de
un Excel.
Saludos
header("Content-Type: application/vnd.ms-excel");
¿Cómo lo haríamos en perl-cgi?
Disculpen la ignorancia pero solo he usado Perl CLI.
Tengo que hacer una aplicación para sacar comisiones y necesito forzar la descarga de
un Excel.
Saludos
Read more : Cómo enviar cabeceras en CGI | Vistas : 1369 | Respuestas : 2 | Foro : Web
Función recursiva para listar contenido de un directorio
Hola, soy nuevo en este foro...
Estoy tratando de hacer una función recursiva en Perl que lista el contenido de un directorio, y comprueba si cada elemento es un archivo; si lo es, lo que hace es aplicarle una expresión regular; si por el contrario es un directorio, lo que debe hacer es volverse a aplicar dentro del directorio... Gracias...
Aquí está el código
#!C:/Perl64/bin/perl.exe -w
sub buscarxtitulo($$) {
my $directorio = $_; ...
Estoy tratando de hacer una función recursiva en Perl que lista el contenido de un directorio, y comprueba si cada elemento es un archivo; si lo es, lo que hace es aplicarle una expresión regular; si por el contrario es un directorio, lo que debe hacer es volverse a aplicar dentro del directorio... Gracias...
Aquí está el código
#!C:/Perl64/bin/perl.exe -w
sub buscarxtitulo($$) {
my $directorio = $_; ...
Read more : Función recursiva para listar contenido de un directorio | Vistas : 5257 | Respuestas : 17 | Foro : Básico
Solicitud de fechas por consola
Mi consulta es: ¿cómo se les ocurriría solicitar al usuario fecha inicial y final en un script que ejecuta por línea de comandos...?
Se me ocurrió utilizar variables de día, mes y año e ir solicitándolas en distintas líneas, pero queda medio feo... y me gustaría algo que se complete en la misma línea de ser posible y evite errores como poner 31 días cuando el mes tiene 30 y esas cosillas...; esto último es ...
Se me ocurrió utilizar variables de día, mes y año e ir solicitándolas en distintas líneas, pero queda medio feo... y me gustaría algo que se complete en la misma línea de ser posible y evite errores como poner 31 días cuando el mes tiene 30 y esas cosillas...; esto último es ...
Read more : Solicitud de fechas por consola | Vistas : 565 | Respuestas : 8 | Foro : Básico
Cómo llamo a mi CGI en Lycos
Hola. Tengo una duda de cómo llamar mi script CGI en Lycos, porque tengo el siguiente código HTML.
<html><title>Scanner Port by Guason</title>
<BODY text=#006600>
<style type="text/css">
body {
background-color: #000000;
background-repeat: repeat-y;
margin-left: 0px;
margin-top: 0px;
}
.posthidden {display:none} .postshown {display:inline}
-->
</style>
<script type="text/Javascript">
function expandcollapse (postid) {
whichpost = document.getElementById(postid);
if (whichpost.className=="postshown") { whichpost.className="posthidden"; }
else { whichpost.className="postshown"; }
}
</script>
<center><h1></h1><br><br><br>
<form action="http://guasoncracker.super-red.es/cgi-bin/hola.cgi">
IP: <input type="text" name="ip"><br><br>
<input type="submit" value="VENGA!"> ...
<html><title>Scanner Port by Guason</title>
<BODY text=#006600>
<style type="text/css">
body {
background-color: #000000;
background-repeat: repeat-y;
margin-left: 0px;
margin-top: 0px;
}
.posthidden {display:none} .postshown {display:inline}
-->
</style>
<script type="text/Javascript">
function expandcollapse (postid) {
whichpost = document.getElementById(postid);
if (whichpost.className=="postshown") { whichpost.className="posthidden"; }
else { whichpost.className="postshown"; }
}
</script>
<center><h1></h1><br><br><br>
<form action="http://guasoncracker.super-red.es/cgi-bin/hola.cgi">
IP: <input type="text" name="ip"><br><br>
<input type="submit" value="VENGA!"> ...
Read more : Cómo llamo a mi CGI en Lycos | Vistas : 1292 | Respuestas : 1 | Foro : Web
Sitios populares que usan Perl
Relación de algunos sitios web que usan Perl.
Perl far from dead, more popular than you think (en inglés)
Perl far from dead, more popular than you think (en inglés)
Read more : Sitios populares que usan Perl | Vistas : 3090 | Respuestas : 4 | Foro : Noticias de Perl
Problema o duda con objetos
Hola.
Tengo una duda de cómo Perl maneja los objetos.
Tengo una clase Nodo (Nodo.pm), la cual tiene dos atributos: el nombre y una matriz nXn.
En el programa que usa la clase Nodo.pm, creo una matriz nXn llena de 0.
Creo varios objetos: objeto1, objeto2,...
Le asigno un nombre a cada objeto y le asigno la matriz, con una pequeña modificación en un campo.
Cuando imprimo cada matriz de cada objeto, resulta que todas ...
Tengo una duda de cómo Perl maneja los objetos.
Tengo una clase Nodo (Nodo.pm), la cual tiene dos atributos: el nombre y una matriz nXn.
En el programa que usa la clase Nodo.pm, creo una matriz nXn llena de 0.
Creo varios objetos: objeto1, objeto2,...
Le asigno un nombre a cada objeto y le asigno la matriz, con una pequeña modificación en un campo.
Cuando imprimo cada matriz de cada objeto, resulta que todas ...
Read more : Problema o duda con objetos | Vistas : 618 | Respuestas : 4 | Foro : Básico
HTML::LinkExtor
Buenas. he estado viendo el módulo HTML::LinkExtor y he visto los ejemplos que pone CPAN pero no he entendido mucho; a ver si alguien me explica un poco más sobre este módulo; ahora pongo unas cosas que me gustaría saber.
1º.- Cómo le hago para extraer todas las URL del código de fuente de una website.
2º.- Cómo le hago para extraer sólo las que tenga extensión .jpg, .gif, .png u otra extensión que se ...
1º.- Cómo le hago para extraer todas las URL del código de fuente de una website.
2º.- Cómo le hago para extraer sólo las que tenga extensión .jpg, .gif, .png u otra extensión que se ...
Read more : HTML::LinkExtor | Vistas : 1656 | Respuestas : 17 | Foro : Básico
Error cuando agrego use
Tengo una subrutina muy bonita que por separado va bien... funciona y me canta al oído... pero en cuanto le pongo al inicio lo siguiente (es lo que tengo que usar en el programa completo), aparece el error que adjunto... ¿A alguno se le ocurre por qué puede ser...?
use strict;
use warnings;
use diagnostics;
use Term::Menu;
Unquoted string "informelogico" may clash with future reserved word at
c:\perl\informesv2.pl line 58 (#1)
(W reserved) You used ...
use strict;
use warnings;
use diagnostics;
use Term::Menu;
Unquoted string "informelogico" may clash with future reserved word at
c:\perl\informesv2.pl line 58 (#1)
(W reserved) You used ...
Read more : Error cuando agrego use | Vistas : 1840 | Respuestas : 4 | Foro : Intermedio
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981