Hola amigos, :)
Resulta que estoy validando un correo que recibo de la siguiente forma:
if ($mail !~ /\.org$/)
{
print "Es correcto\n";
} else {
print "Mail corrupto\n";
}
Lo que intento hacer, es validar el fin de la cadena $mail la cual tiene una dirección de correo.
Sólo quiero aceptar correos con terminación .com y .org, pero no obtengo el resultado que ...
-
- Publicidad
Fecha actual 2025-01-03 21:08 @922
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.Validando dirección de correo (sin módulos)
Read more : Validando dirección de correo (sin módulos) | Vistas : 868 | Respuestas : 3 | Foro : Básico
rowspan dinámico
Hola.
Traigo los registros de una query y lleno una tabla con ellos.
La query trae una serie de componentes (primera columna de la query) y asociado a ellos una lista de eventos, cada componente posee eventos varios, y estoy llenando una tabla con el resultado de la query, por cada registro que arroja dibujo un <TR> conteniendo varios <TD> de acuerdo a los números de columnas que estoy consultando.
Sin embargo hay varios eventos ...
Traigo los registros de una query y lleno una tabla con ellos.
La query trae una serie de componentes (primera columna de la query) y asociado a ellos una lista de eventos, cada componente posee eventos varios, y estoy llenando una tabla con el resultado de la query, por cada registro que arroja dibujo un <TR> conteniendo varios <TD> de acuerdo a los números de columnas que estoy consultando.
Sin embargo hay varios eventos ...
Read more : rowspan dinámico | Vistas : 6649 | Respuestas : 14 | Foro : JavaScript
Buscar dato en archivo
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 ...
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 ...
Read more : Buscar dato en archivo | Vistas : 3209 | 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 : 3659 | 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 : 3827 | Respuestas : 9 | Foro : Web
Instalación de Oracle Instant Client y DBD::Oracle
en Linux (Redhat / Centos / Debian / Ubuntu)
«Existen para Nagios numerosos plugins para monitorizar Oracle, desde un simple tnsping para monitorizar la respuesta hasta diversas posibilidades para controlar el estado de tablespaces, instancias, discos,… Cuando abordamos la necesidad de usar dichos plugins siempre nos vamos a encontrar con dos posibilidades: su ejecución en local (servidor de Oracle) mediante un cliente para Nagios tipo NRPE o NSClient++ o su ejecución desde el propio servidor ...
«Existen para Nagios numerosos plugins para monitorizar Oracle, desde un simple tnsping para monitorizar la respuesta hasta diversas posibilidades para controlar el estado de tablespaces, instancias, discos,… Cuando abordamos la necesidad de usar dichos plugins siempre nos vamos a encontrar con dos posibilidades: su ejecución en local (servidor de Oracle) mediante un cliente para Nagios tipo NRPE o NSClient++ o su ejecución desde el propio servidor ...
Read more : Instalación de Oracle Instant Client y DBD::Oracle | Vistas : 862 | Respuestas : 0 | Foro : Pasando el rato
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 : 2500 | 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 : 747 | Respuestas : 2 | Foro : Básico
PasteBin Downloader 0.1
Un simple script en Perl para bajar códigos de Pastebin.
Pueden bajar solo uno o hacer que el programa busque enlaces de pastebin en una página y bajarlos a todos.
El código:
#!usr/bin/perl
#PasteBin Downloader 0.1
#Coded By Doddy H
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) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(10);
my $se = "downloads_pastebin";
unless ( -d $se ) { ...
Pueden bajar solo uno o hacer que el programa busque enlaces de pastebin en una página y bajarlos a todos.
El código:
#!usr/bin/perl
#PasteBin Downloader 0.1
#Coded By Doddy H
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) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(10);
my $se = "downloads_pastebin";
unless ( -d $se ) { ...
Read more : PasteBin Downloader 0.1 | Vistas : 2103 | Respuestas : 2 | Foro : Proyectos
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 : 931 | Respuestas : 3 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981