Foro - Perl en Español

Buenas. Me registré en el foro porque soy nuevo en esto y estuve navegando un poco para informarme y realicé preguntas a varias personas, pero no me dieron una solución a mi problema, que es: ¿cómo logro desde mi servidor web Apache2 en Ubuntu me ejecute los scripts .cgi en Perl? Luego de navegar un poco me encuentro con esto

## CGI's
AddHandler cgi-script .cgi .sh .pl .ida
ScriptAlias /cgi-bin/ /usr/lib/cgi-bin/
ScriptAlias /cgi/ /usr/lib/cgi-bin/
<Directory ...

¡Hola de nuevo! Necesito un script Perl que grabe el contenido de un fichero de texto en otro que se crea con el nombre que le dé por parámetros en línea de comandos. Después de la ejecución, los dos ficheros de texto deben ser idénticos. Si por un casual el archivo que se va a crear ya existe en disco y contiene algo, esta información se pierde y se sobrescribe con la del otro fichero. ...

Niecza Perl 6 v14, es un compilador dirigido hacia la eficiencia en
la implementación de las características de Perl 6. Su objetivo actual
es el Common Language Runtime; se sabe que funciona tanto en Mono como
en Microsoft .NET. En Windows, se necesita Cygwin para la compilación
desde las fuentes.

Comparativa de las características entre Rakudo y Niecza.

No se cómo realizar este script ¡Ayuda!

Script que sirve para encontrar un término que se pasa como argumento.

Para ejecutarlo en línea de comando de esta manera: env | mi_egrep.pl <argumento a buscar en el enviroment>

Es decir: el script actúa de egrep para después darle un argumento. Por ejemplo: PATH y así mostrar la línea de PATH.

Hola a todos, tengo un programa que hice para extraer las secuencias FASTA a partir de una lista, lo que necesito es que el programa use los id de la lista 1 y los compare contra una sección del encabezado de mi archivo FASTA. Si el id de la lista 1 existe entonces imprimir el nombre del archivo FASTA y las secuencias. Además en un archivo adicional imprime el id de la lista 1 con ...

Hola, soy bastante nueva en Perl. Mi problema es que creé una tabla y necesito que por cada fila me genere un archivo txt, pero no conozco, ni encontré el funcionamiento de bind...

(acá está la tabla)

$mw1->Label (-text => "Informe", -font => 'ARIAL',-foreground=>'DARK BLUE') -> pack();
my $frame = $mw1->Frame()->pack();
my $T = $frame-> Table(-columns => 8, -rows => 11,-fixedrows => 1,-scrollbars => 'oe', -relief => 'raised');
$tmp_label = $frame->Label(-text => $i, -padx ...

En bioinformática (y otros muchos campos), una de las tareas habituales es la búsqueda de una cadena en otra más larga. Saber si está, dónde está, y cuántas más veces aparece.

Aún con los ordenadores más potentes, la simple búsqueda secuencial tiene límites si la cadena donde buscamos es enorme.

Una de las técnicas que se suelen utilizar, para acelerar el proceso de búsqueda, es la llamada Array de sufijos.

Supongamos que tenemos una secuencia ...

Hola,

Estoy intentando crear una extensión para Bugzilla. Las extensiones de Bugzilla se programan en Perl.

Nunca había programado en Perl, pero revisando este foro he encontrado varias maneras de ejecutar un comando desde Perl. Cuando uso system() o las comillas invertidas desde un script Perl ejecutado desde la shell de Linux, me funcionan sin problemas. Sin embargo cuando lo ejecuto desde la extensión de bugzilla no funciona, simplemente creo que no hace nada y ...

Tengo el siguiente código:


#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Mod_dir::buscar;
#use strict;
#use warnings;
print error;
#print "Content-type: text/html;charset=UTF-8\n\n";


$query = new CGI;
$query->charset('UTF-8');
print $query->header('text/html');
print $query->start_html({-title=>'', -style=>"../../Css/style_formulario.css"});
print $query->startform;
print"<div id=\"buscar\">";
print $query->div({id=>'bBuscar'},($query->submit({class=>'boton', -value=>'Buscar'})));
print $query->div({id=>'cajatext'},($query->textfield({class=>'bus', -name=>'busq'})));
print "</div>";
print $query->end_form;

my $value = $query->param('busq');

my $campo = buscar->new;
if ($value =~ //) {
my @resultado = @{ $campo->busqueda($value) };
print"<div id=\"tablaM\">";
print $query->start_table;
print $query->Tr($query->th( {id=>'tablaSubTitulo'}, ) ...

Hola, estoy intentando hacer un script en Perl para mandar un email en caso de que el disco alcance un porcentaje de uso determinado.

Uso el comando de sistema "mutt" al que invoco con la orden "system" pero tengo un problema al usarlo dentro del script.

system("mutt -s 'asunto' email\@dominio.com <<< 'texto'")

uso \@ para introducir la arroba, al ser una carácter reservado.
lo he intentado también con variables en lugar de introducir el texto ...