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 ...
-
- Publicidad
Fecha actual 2024-11-27 17:40 @778
News of Mundo Perl
Site map of Mundo Perl » Foro : Mundo Perl
Comparar cadenas porcentualmente
Read more : Comparar cadenas porcentualmente | Vistas : 707 | 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 : 1297 | 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 : 1398 | 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 : 1706 | 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 : 902 | 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 : 2547 | 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 : 2093 | 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 : 1302 | Respuestas : 0 | Foro : Formación
Buscar archivo repetidos sin usar find
Hola a todos, estoy aprendiendo Perl y me han dado una tarea en la que tengo que, usando una función recursiva, recorrer un directorio, encontrar las repeticiones de un archivo (nombre del archivo ingresado por parámetro) que coincida tanto en nombre como en peso. Pero el detalle es que no puedo usar Find, y para el peso debo usar -s.
He tratado y tratado. He creado archivos con mismo nombre pero diferente tamaño, pero mi ...
He tratado y tratado. He creado archivos con mismo nombre pero diferente tamaño, pero mi ...
Read more : Buscar archivo repetidos sin usar find | Vistas : 688 | Respuestas : 2 | Foro : Básico
Buscar un archivo en una ruta específica
Estimados,
Junto con saludarlos les comento el problema que presento:
Realicé un pequeño script en Windows que busca en una ruta si fueron creados unos archivos con cierto nombre; para esto utilizo el comando findstr.
El problema es que al ejecutar el comando en el script me arroja un error:
C:\>script_log.pl
Unrecognized escape \I passed through at C:\script_log.pl line 5.
Unrecognized escape \A passed through at C:\script_log.pl line 5.
Unrecognized escape \p passed through ...
Junto con saludarlos les comento el problema que presento:
Realicé un pequeño script en Windows que busca en una ruta si fueron creados unos archivos con cierto nombre; para esto utilizo el comando findstr.
El problema es que al ejecutar el comando en el script me arroja un error:
C:\>script_log.pl
Unrecognized escape \I passed through at C:\script_log.pl line 5.
Unrecognized escape \A passed through at C:\script_log.pl line 5.
Unrecognized escape \p passed through ...
Read more : Buscar un archivo en una ruta específica | Vistas : 971 | Respuestas : 5 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36882 • Temas totales 7430 • Usuarios totales 1981