Foro - Perl en Español

¡¡Hola!! Tengo el siguiente código:

#!C:\perl\bin\perl.exe -X

use File::Find;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $q = new CGI;
my @thefiles = $q->param("thefiles");
my @files = $q->param("files");
my @lines = $q->param("lines");
my $f = $q->param("f");
my $query = $q->param("query");
my $consulta = $q->param("consulta");

require "divs.pl";

#my $Mostrar= "";
if($consulta == '1'){
&Resultados;
}else{
&Principal;
}

sub Principal{
print <<eof;

<html><head><title>prueba archivos cgi</title></head><body>
<form action='Nuevo3.cgi' method='post'>
<input type='text' name='query' size='50'>
<input type='submit' name='Mostrar' value='Mostrar' ...

Hola, tengo otro problema en el mismo programa y es que me tiene que devolver un montón de cabeceras seguidas de distintas secuencias de ADN pero no consigo que me salgan numeradas.
El resultado correcto es:

Code: Seleccionar todo: >1-100000_1 [23 - 121] (titulo1) (secuencia) >1-100000_2 [84 - 143] (titulo2) (secuencia)

A mí me sale:

Code: Seleccionar todo: >1-100000_ [23 - 121] (titulo1) (secuencia) >1-100000_ [84 - 143] (titulo2) (secuencia)

Creo que el fallo está en esta línea del programa:

$entrada= ...

Hola, he hecho un programa en Perl que funciona pero en el terminal me da un fallo (que no impide su correcto funcionamiento) pero que soy incapaz de subsanarlo... Este es un trocito de uno de los bucles del programa en el que indicado la línea del fallo. Exactamente en el terminal me pone:

Code: Seleccionar todo: Use of uninitialized value in numeric eq (==)

for($A=0;$A<$n_inicio;$A++)
{

$posicionE= $AposicionE;

$posicionS= $AposicionS;

if ($posicionS == 0) # en ...

¡Hola!

Tengo que hacer una llamada a un programa MS-DOS desde un script en Perl y quiero que termine antes de continuar con el resto del script.

Creo que si hago la llamada con "system" se crea un proceso pero no espera a que termine. Sin embargo, si lo ejecuto con "eval", creo que sí espera... ¿Es esto cierto? Sino, ¿cómo se puede hacer para que espere a la llamada?

¡Gracias!

¡¡Hola!! No sé si alguien pudiera echarme la mano con este módulo del file grep. Lo que hice fue poner de manera local unos archivos txt, dentro de una carpeta, entonces escribí el siguiente código:

#!C:\perl\bin\perl.exe -X

use cgi;
require "divs.pl";
use CGI::Carp "fatalsToBrowser";
use File::Grep qw( fgrep fmap fdo );

print "Content-type: text/html","\n\n";
my @matches = fgrep { /GOBIERNO/} glob "C:\AppServ\www\pdf\*txt";
print SUMMARY $_ foreach @matches;

donde le estoy diciendo que quiero buscar la ...

Hola, buenas tardes, mi nombre es Tania y bueno, pues tengo un problemita y no sé cómo resolverlo ya que soy nueva en esto de Perl.

Necesito hacer un buscador en el que ingresan una palabra X y la búsqueda debe de regresar los PDF que contienen esa palabra :? , no sé si existe un módulo que haga eso. En pocas palabras, necesito un buscador de ...

Hola a todos. Tengo una duda bien básica. ¿Es lo mismo compilar código perl que ofuscarlo?

He leído versiones que dicen que compilar apura la ejecución y otros que dicen que no implica mejora. He leído también que ofuscar tiene como objetivo el "esconder" el código o dificultar su lectura.

Así que estoy bastante confundida. Cualquier aclaración se agradecerá.

Saludos.

Hola, ¿qué tal? Como saben soy nuevo en esto; lo que necesito hacer esta vez es guardar la fecha del día en una variable. Necesito que me quede así:

$fecha = 2008/08/27-14:

Agradecería su ayuda.

Muchas gracias.

Hola a todos:

Me gustaría que me explicaseis qué significa la siguiente sentencia que uso para extraer una parte de la cabecera de un fichero fasta:

$datos = (split (" ", $datos,2));

Muchas gracias.

Vipul Ved Prakash, en su blog ha informado de graves problemas en la versión de Perl que acompaña a las versiones de Red Hat 5.2, Fedora 9 y otras distribuciones Linux basadas en ellas, como CentOS.

Parece ser que las prestaciones, en cuestión de velocidad y memoria, se volvían pésimas, comparadas con lo que obtenían en una máquina con BSD. Incluso con máquinas personales. Investigando un poco, descubrieron un fallo en el Perl compilado distribuido ...

Foro - Perl en Español

News of Foro - Perl en Español

Site map of Foro - Perl en Español » Foro : Foro - Perl en Español

Problemas con grep

Numeración en Perl

Igualdad en Perl

Esperar a que termine la ejecución de un programa

Problemas con File::Grep

Leer contenido de un PDF

Ofuscar y/o compilar código

Fecha del día

Significado de una sentencia

Descubierto fallo grave en el Perl de Redhat y derivados

Last 10 active topics

Identificarte • Registrarse

Estadísticas