Hola.
Quisiera que en el siguiente script sólo me aparecieran 25 registros por página, es decir, 25 registros en la primera página, y si hay más registros en sucesivas páginas.
Muchas gracias.
#!/usr/bin/perl
use CGI::Carp qw( fatalsToBrowser );
do 'sessions.cgi';
do 'paidmembers.cgi';
if ( $ENV{REQUEST_METHOD} eq 'POST' ) {
read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
}
else { $buffer = $ENV{QUERY_STRING} }
@pairs = split( /&/, $buffer );
foreach $pair (@pairs) {
( $name, $value ...
-
- Publicidad
Fecha actual 2026-03-11 23:59 @041
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.Mostrar 25 registros por página
Read more : Mostrar 25 registros por página | Vistas : 3827 | Respuestas : 13 | Foro : Básico
Nuevo repositorio para ActivePerl 5.16 en 64 bits
Artículo
Aún en construcción, pero para los que estáis usando Windows en 64 bits, puede ser una solución a las distribuciones que no encontráis en el resto de repositorios.
Aún en construcción, pero para los que estáis usando Windows en 64 bits, puede ser una solución a las distribuciones que no encontráis en el resto de repositorios.
Read more : Nuevo repositorio para ActivePerl 5.16 en 64 bits | Vistas : 1542 | Respuestas : 0 | Foro : Noticias de Perl
Comparar cadenas porcentualmente
Hola, soy nuevo en Perl. Por lo general programo en C++, pero mi padre me recomendó hacer este proyecto en Perl puesto a su parecido con PHP (posteriormente lo debo publicar en web).
Se trata de un examen de preguntas al azar de 3 niveles diferentes: 5 de nivel 1, 5 nivel 2 y 1 nivel 3.
Previamente el programa debe comprobar tu identidad y verificar si no diste el examen antes, si lo hiciste ...
Se trata de un examen de preguntas al azar de 3 niveles diferentes: 5 de nivel 1, 5 nivel 2 y 1 nivel 3.
Previamente el programa debe comprobar tu identidad y verificar si no diste el examen antes, si lo hiciste ...
Read more : Comparar cadenas porcentualmente | Vistas : 862 | Respuestas : 1 | Foro : Básico
Problema con expresión regular
Hola.
¿Cómo podría obtener de este string solo lo que está marcado con una expresión regular?
>gi|207855516|ref|NC_011294.1|:2565-3494 Salmonella enterica subsp. enterica serovar Enteritidis str. P125109 chromosome, complete genome
Gracias de antemano y saludos.
¿Cómo podría obtener de este string solo lo que está marcado con una expresión regular?
>gi|207855516|ref|NC_011294.1|:2565-3494 Salmonella enterica subsp. enterica serovar Enteritidis str. P125109 chromosome, complete genome
Gracias de antemano y saludos.
Read more : Problema con expresión regular | Vistas : 1631 | Respuestas : 2 | Foro : Bioinformática
Juntar letras
Tengo el siguiente código:
my $a = "
11
11
11 11
11 11
00 00
00 00
0000000000
00 00
00 00
";
my $b = "
11111111
11 11
11 11
11 11
00000000
00 00
00 00
00 00
00000000
";
my $c = "
11111111
11 11
11
11
00
00
00
00 00
00000000
";
chomp $a;
chomp $b;
chomp $c;
print $a.$b.$c;
Mi plan es que se junten ...
my $a = "
11
11
11 11
11 11
00 00
00 00
0000000000
00 00
00 00
";
my $b = "
11111111
11 11
11 11
11 11
00000000
00 00
00 00
00 00
00000000
";
my $c = "
11111111
11 11
11
11
00
00
00
00 00
00000000
";
chomp $a;
chomp $b;
chomp $c;
print $a.$b.$c;
Mi plan es que se junten ...
Read more : Juntar letras | Vistas : 1945 | Respuestas : 11 | Foro : Básico
Perl + POO "Can't call method "prepare"
¡¡Hola!! Aprendí POO y me puse a jugar en Perl, ahora bien... Me sale un error y no sé a qué corresponde, espero algún consejo para poder solucionarlo.
#!/usr/bin/perl
#Modulo MySQL inserta y consultar registros
use warnings;
use strict;
use DBI;
use DBD::mysql;
package MysqlTest;
sub new{
my $class = shift;
my $query={};
bless($query, $class);
}
sub conexion{
my $self=shift;
my($database, $hostname, $user, $pwd)=@_;
$self->{"host"}=$hostname;
$self->{"database"}=$database;
$self->{"user"}=$user;
$self->{"pass"}=$pwd;
my $connect = DBI->connect("DBI:mysql:$database:$hostname", $user, $pwd) ...
#!/usr/bin/perl
#Modulo MySQL inserta y consultar registros
use warnings;
use strict;
use DBI;
use DBD::mysql;
package MysqlTest;
sub new{
my $class = shift;
my $query={};
bless($query, $class);
}
sub conexion{
my $self=shift;
my($database, $hostname, $user, $pwd)=@_;
$self->{"host"}=$hostname;
$self->{"database"}=$database;
$self->{"user"}=$user;
$self->{"pass"}=$pwd;
my $connect = DBI->connect("DBI:mysql:$database:$hostname", $user, $pwd) ...
Read more : Perl + POO "Can't call method "prepare" | Vistas : 1944 | Respuestas : 1 | Foro : Avanzado
Cambiar puntero en un array
Antes de mostrarles el bloque de código, lo que deseo es poder recorrer el array @sequence, de manera tal que CADA vez que se cumple un bucle while(), el puntero del array se vaya moviendo y este valor se asigne a la variable $seq.
Supongamos...
1ª vez que corre el bucle -> $seq = 3
2ª vez que corre el bucle -> $seq = 5
3ª vez que corre el bucle -> $seq = 7 ...
Supongamos...
1ª vez que corre el bucle -> $seq = 3
2ª vez que corre el bucle -> $seq = 5
3ª vez que corre el bucle -> $seq = 7 ...
Read more : Cambiar puntero en un array | Vistas : 1271 | Respuestas : 6 | Foro : Básico
No sale bien la cabecera HTTP
Estoy trabajando localmente en entorno Windows, Perl y Apache, probando el módulo CGI::Application y Template-Toolkit.
He intentado hacer los ejemplos y tutoriales que presenta CGI::Application pero me tira un error de cabecera en forma permanente:
Mensaje de error:
malformed header from script 'main.pl': Bad header: <head>
main.pl se compone de:
my $PRIVATE_HOME_DIR;
BEGIN { $PRIVATE_HOME_DIR = '../../MySitePrivate'; }
use strict;
use lib $PRIVATE_HOME_DIR.'/MyApp';
use CGI::Carp qw(fatalsToBrowser);
use MyMain;
MyMain->new(
TMPL_PATH => $PRIVATE_HOME_DIR.'/templates'
,-config_file ...
He intentado hacer los ejemplos y tutoriales que presenta CGI::Application pero me tira un error de cabecera en forma permanente:
Mensaje de error:
malformed header from script 'main.pl': Bad header: <head>
main.pl se compone de:
my $PRIVATE_HOME_DIR;
BEGIN { $PRIVATE_HOME_DIR = '../../MySitePrivate'; }
use strict;
use lib $PRIVATE_HOME_DIR.'/MyApp';
use CGI::Carp qw(fatalsToBrowser);
use MyMain;
MyMain->new(
TMPL_PATH => $PRIVATE_HOME_DIR.'/templates'
,-config_file ...
Read more : No sale bien la cabecera HTTP | Vistas : 3158 | Respuestas : 7 | Foro : Web
Posible error en consulta
Tengo este código:
my $sq = "
SELECT
usuario, contador_emails, adquisicion,
nombres, email, tipo, telefonos, activo, numero_campana,
contador_emails, ultimo_envio, sospechoso, ultimo_envio_form,
estado
FROM interesado_temp
WHERE
email ='" . $emails . "'";
$interesado = $dbh->selectrow_hashref( $sq )
or die "Error Al buscar interesado por email " . $sq . $dbh->errstr();
y esa vuelta, me retorna el siguiente error:
<center><img src='http://kreatibox.com/images/logo.png'><br><br><br>
<div style=' width:80%; height:90px; background-color:#FFF;border-style:solid;border-size:1px; border-color:#FF0000'><br><b>La aplicacion tiene error:</b><br> Error al buscar interesado por ...
my $sq = "
SELECT
usuario, contador_emails, adquisicion,
nombres, email, tipo, telefonos, activo, numero_campana,
contador_emails, ultimo_envio, sospechoso, ultimo_envio_form,
estado
FROM interesado_temp
WHERE
email ='" . $emails . "'";
$interesado = $dbh->selectrow_hashref( $sq )
or die "Error Al buscar interesado por email " . $sq . $dbh->errstr();
y esa vuelta, me retorna el siguiente error:
<center><img src='http://kreatibox.com/images/logo.png'><br><br><br>
<div style=' width:80%; height:90px; background-color:#FFF;border-style:solid;border-size:1px; border-color:#FF0000'><br><b>La aplicacion tiene error:</b><br> Error al buscar interesado por ...
Read more : Posible error en consulta | Vistas : 2638 | Respuestas : 6 | Foro : Web
Libro: Beginning Perl
Todo lo que los novatos necesitan para empezar a programar con Perl
Perl es el popular, flexible, y lenguaje de programación de código abierto que ha sido llamado la navaja Suiza del programador. Este libro introduce Perl tanto a los nuevos programadores como a los experimentados, que quieren aprender un nuevo lenguaje. En la tradición de las populares guías Beginning de Wrox, presenta una guía paso a paso de cómo comenzar, un montón de ejercicios, ...
Perl es el popular, flexible, y lenguaje de programación de código abierto que ha sido llamado la navaja Suiza del programador. Este libro introduce Perl tanto a los nuevos programadores como a los experimentados, que quieren aprender un nuevo lenguaje. En la tradición de las populares guías Beginning de Wrox, presenta una guía paso a paso de cómo comenzar, un montón de ejercicios, ...
Read more : Libro: Beginning Perl | Vistas : 1516 | Respuestas : 0 | Foro : Formación
Last 10 active topics
Estadísticas
Mensajes totales 36895 • Temas totales 7436 • Usuarios totales 1983