Hola, quisiera saber cómo configuro XAMPP para ejecutar scripts de Perl, intento guardando los archivos con extensión .CGI o .PL y me da el mismo resultado: el código se muestra exactamente como está escrito.
El archivo es el siguiente:
----------------------
#!"C:/xampp/perl/bin/perl.exe"
print "Content-Type: text/html\n\n";
print "OK";
----------------------
Según XAMPP ese es el path. Intento también con la ubicación de Perl en mi computadora que sería:
C:/strawberry/perl/bin/perl.exe
pero sigue dando el mismo resultado.
Si intento acceder ...
-
- Publicidad
Fecha actual 2024-11-28 01:45 @114
News of Mundo Perl
Site map of Mundo Perl » Foro : Mundo Perl
Ejecutar scripts de Perl en XAMPP
Read more : Ejecutar scripts de Perl en XAMPP | Vistas : 3328 | Respuestas : 2 | Foro : Básico
Unir péptidos solapantes
Hola a todos, tengo un problemilla:
Digamos que tengo esto en un array @array:
1. ACD => 0
2. CDE => 0
3. DEF => 1
4. EFG => 1
5. FGH => 1
6. GHI => 0
7. GHJ => 0
8. HJK => 1
9. JKL => 1
10. KLM => 1
11. LMN => 0
Yo lo que quiero es juntar los péptidos solapantes que lleven el 1.
Por ejemplo, el primer ...
Digamos que tengo esto en un array @array:
1. ACD => 0
2. CDE => 0
3. DEF => 1
4. EFG => 1
5. FGH => 1
6. GHI => 0
7. GHJ => 0
8. HJK => 1
9. JKL => 1
10. KLM => 1
11. LMN => 0
Yo lo que quiero es juntar los péptidos solapantes que lleven el 1.
Por ejemplo, el primer ...
Read more : Unir péptidos solapantes | Vistas : 2206 | Respuestas : 8 | Foro : Bioinformática
Carga de archivo CSV
Antes que nada, mi saludos a todos en esta gran comunidad a la que hace muy poquito me uní :D
Vamos a ver, me encuentro ante la problemática de correr el programa, de entrada. Mi objetivo es cargar el archivo CSV que adjunto más abajo: este contiene los campos nroDeCte, cteBtc, fechaDeAlta, nomb, estado, IP, MAC y (por último) servicio. Las consultas que quiero hacer a ...
Vamos a ver, me encuentro ante la problemática de correr el programa, de entrada. Mi objetivo es cargar el archivo CSV que adjunto más abajo: este contiene los campos nroDeCte, cteBtc, fechaDeAlta, nomb, estado, IP, MAC y (por último) servicio. Las consultas que quiero hacer a ...
Read more : Carga de archivo CSV | Vistas : 986 | Respuestas : 5 | Foro : Básico
Retornar un 'yes' a un prompt de otro programa
Hola a todos,
Soy nuevo en Perl y he estado tratando de entender cómo pasar una respuesta a un comando de un programa externo.
El comando lo ejecuto de la siguiente manera:
my $nhloaddb = `nhLoadDb -p C:\respaldoDb`;
El problema es que dicho comando me responde con una pregunta, a la cual debo escribir manualmente 'Yes' para confirmar el comando.
Necesito que ese 'Yes' sea escrito automáticamente con el código en Perl. Leí algo sobre ...
Soy nuevo en Perl y he estado tratando de entender cómo pasar una respuesta a un comando de un programa externo.
El comando lo ejecuto de la siguiente manera:
my $nhloaddb = `nhLoadDb -p C:\respaldoDb`;
El problema es que dicho comando me responde con una pregunta, a la cual debo escribir manualmente 'Yes' para confirmar el comando.
Necesito que ese 'Yes' sea escrito automáticamente con el código en Perl. Leí algo sobre ...
Read more : Retornar un 'yes' a un prompt de otro programa | Vistas : 572 | Respuestas : 4 | Foro : Básico
Problemas con Net::FTP
Estimados, espero alguien me pueda ayudar. Estoy teniendo problemas con este trozo de código:
$file = "archivo.zip";
my $ftp = Net::FTP->new("ftp.ftpAlQueMeConecto.cl",Port => 21, Debug => 1)
or die "ERROR AL CONECTAR";
$ftp->login("Login",'Password')
or die "error en el login ", $ftp->message;
$ftp->pasv();
$ftp->binary();
$ftp->get($file, "/tmp/archivo.zip") ||
die "get($file) failed: " . $ftp->code() . ": " . $ftp->message();#error
$ftp->quit;
La llamada a la librería está hecha. Lo he probado en varios servers y ha funcionado muy bien, ...
$file = "archivo.zip";
my $ftp = Net::FTP->new("ftp.ftpAlQueMeConecto.cl",Port => 21, Debug => 1)
or die "ERROR AL CONECTAR";
$ftp->login("Login",'Password')
or die "error en el login ", $ftp->message;
$ftp->pasv();
$ftp->binary();
$ftp->get($file, "/tmp/archivo.zip") ||
die "get($file) failed: " . $ftp->code() . ": " . $ftp->message();#error
$ftp->quit;
La llamada a la librería está hecha. Lo he probado en varios servers y ha funcionado muy bien, ...
Read more : Problemas con Net::FTP | Vistas : 1505 | Respuestas : 3 | Foro : Intermedio
Problema al leer directorio con readdir
Resulta que tengo este código
opendir(my $dh, $some_dir) || die "can't opendir $some_dir: $!";
#@dirs = grep { /^\./ && -f "$some_dir/$_" } readdir($dh);
#Se lee el directorio
while(readdir $dh) {
#Pongo en directorio si, el archivo no es un fichero y el directorio no tiene . o ..
push (@dirs,$_) if (! -f "$some_dir/$_" && ! /^\./);
}
closedir $dh;
return Dumper @dirs;
cuando lo ejecuto en Windows me muestra los directorios, ...
opendir(my $dh, $some_dir) || die "can't opendir $some_dir: $!";
#@dirs = grep { /^\./ && -f "$some_dir/$_" } readdir($dh);
#Se lee el directorio
while(readdir $dh) {
#Pongo en directorio si, el archivo no es un fichero y el directorio no tiene . o ..
push (@dirs,$_) if (! -f "$some_dir/$_" && ! /^\./);
}
closedir $dh;
return Dumper @dirs;
cuando lo ejecuto en Windows me muestra los directorios, ...
Read more : Problema al leer directorio con readdir | Vistas : 1410 | Respuestas : 2 | Foro : Intermedio
Tecla enter con scrollbar en Tk
Tengo una duda con el siguiente código:
my $body = $mejor->Scrolled("Text",-width=>98,-height=>30,-background=>$color_fondo,-foreground=>$color_texto,-scrollbars=>"e")->place(-x=>19,-y=>100);
$mejor->bind($body,"<Key-Return>"=> sub {
print "al fin\n";
});
El problema es que cuando lo uso con Text solo anda bien reconociendo la tecla enter pero cuando uso scrolled no reconoce nada.
¿ Alguien me podría explicar cómo soluciono esto ?
my $body = $mejor->Scrolled("Text",-width=>98,-height=>30,-background=>$color_fondo,-foreground=>$color_texto,-scrollbars=>"e")->place(-x=>19,-y=>100);
$mejor->bind($body,"<Key-Return>"=> sub {
print "al fin\n";
});
El problema es que cuando lo uso con Text solo anda bien reconociendo la tecla enter pero cuando uso scrolled no reconoce nada.
¿ Alguien me podría explicar cómo soluciono esto ?
Read more : Tecla enter con scrollbar en Tk | Vistas : 755 | Respuestas : 0 | Foro : Básico
Duda con expresión regular
Tengo el siguiente texto:
<controltotal>test
<controltotal>
<controltotal>test
<controltotal>
<controltotal>test
<controltotal>verdos
<controltotal>
Lo que quiero es sacar siempre el último <controltotal> para tener el último dato en una variable; en este caso sería "verdos". Eso: necesito conseguir el último con un dato, por eso quiero "verdos".
¿ Alguien me podría decir si es posible ?
<controltotal>test
<controltotal>
<controltotal>test
<controltotal>
<controltotal>test
<controltotal>verdos
<controltotal>
Lo que quiero es sacar siempre el último <controltotal> para tener el último dato en una variable; en este caso sería "verdos". Eso: necesito conseguir el último con un dato, por eso quiero "verdos".
¿ Alguien me podría decir si es posible ?
Read more : Duda con expresión regular | Vistas : 462 | Respuestas : 3 | Foro : Básico
Llamada a subrutina Perl desde HTML
Hola, soy estudiante y estoy aprendiendo...
Quisiera saber si se puede llamar a una subrutina Perl desde HTML.
El código es:
open (OUT,">$html");
print OUT <<ENDHTML_LAST
<body bgcolor="#F5F5F5">
<head>
<BR>
<title>$id</title>
</head>
<CENTER>
<TABLE bgcolor="#FFFFFF" border = "0" WIDTH="60%">
<tr>
<td><img src= "encabezado.jpg"><hr></td>
</tr>
<TR>
<td align="center">
<iframe width="35%" height="350" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" src="http://maps.google.com/maps?f=q&source=s_q&hl=es&geocode=&q=loc:$latitud+$longitud&aq=&sll=37.0625,-95.677068&sspn=37.735377,86.572266&ie=UTF8&ll=$latitud,$longitud&spn=11.053202,21.643066&t=m&z=6&iwloc=&output=embed"></iframe>
<small>
</td>
</TR>
<tr>
<td align="center"><font size="2"><font face="Arial, Helvetica, sans-serif"><a href="http://maps.google.com/maps?f=q&source=embed&hl=es&geocode=&q=loc:$latitud+$longitud&aq=&sll=37.0625,-95.677068&sspn=37.735377,86.572266&ie=UTF8&ll=$latitud,$longitud&spn=11.053202,21.643066&t=m&z=6" style="color:#0000FF;text-align:left">Ver mapa más grande</a></small> </font></font></td>
</tr>
<tr>
<td> </td> ...
Quisiera saber si se puede llamar a una subrutina Perl desde HTML.
El código es:
open (OUT,">$html");
print OUT <<ENDHTML_LAST
<body bgcolor="#F5F5F5">
<head>
<BR>
<title>$id</title>
</head>
<CENTER>
<TABLE bgcolor="#FFFFFF" border = "0" WIDTH="60%">
<tr>
<td><img src= "encabezado.jpg"><hr></td>
</tr>
<TR>
<td align="center">
<iframe width="35%" height="350" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" src="http://maps.google.com/maps?f=q&source=s_q&hl=es&geocode=&q=loc:$latitud+$longitud&aq=&sll=37.0625,-95.677068&sspn=37.735377,86.572266&ie=UTF8&ll=$latitud,$longitud&spn=11.053202,21.643066&t=m&z=6&iwloc=&output=embed"></iframe>
<small>
</td>
</TR>
<tr>
<td align="center"><font size="2"><font face="Arial, Helvetica, sans-serif"><a href="http://maps.google.com/maps?f=q&source=embed&hl=es&geocode=&q=loc:$latitud+$longitud&aq=&sll=37.0625,-95.677068&sspn=37.735377,86.572266&ie=UTF8&ll=$latitud,$longitud&spn=11.053202,21.643066&t=m&z=6" style="color:#0000FF;text-align:left">Ver mapa más grande</a></small> </font></font></td>
</tr>
<tr>
<td> </td> ...
Read more : Llamada a subrutina Perl desde HTML | Vistas : 631 | Respuestas : 2 | Foro : Básico
Uso de \b
Hola,
Tengo un programa en el que delimito el principio y final de palabra con \b. El problema radica que en Linux las letras con tilde las detecta como final de palabra, y claro, me rompe la teoría. (En la máquina Windows me funciona correctamente).
Supongo que es porque tengo mal definido el "encode" utilizado, ¿¿no??
Mil gracias.
Tengo un programa en el que delimito el principio y final de palabra con \b. El problema radica que en Linux las letras con tilde las detecta como final de palabra, y claro, me rompe la teoría. (En la máquina Windows me funciona correctamente).
Supongo que es porque tengo mal definido el "encode" utilizado, ¿¿no??
Mil gracias.
Last 10 active topics
Estadísticas
Mensajes totales 36882 • Temas totales 7430 • Usuarios totales 1981