Foro - Perl en Español

Saludos a todos:

Deseo que alguien me ayude a encontrar cómo codificar en Perl, el cálculo de una arcotangente de un valor.

He visto en el CPAN que existe una función llamada ATAN(valor), pero no entiendo cómo instalar esa librería, pero si existe otra forma de calcular este valor, agradeceré mucho su ayuda.

Saludos desde México.
Ricardo.

¡Hola de nuevo! Lo que quiero es dar la opción de abrir un archivo y que si no lo encuentra te pida introducir un nuevo nombre.

Tengo esto, pero no funciona, si introduzco el nombre de un archivo que no encuentra, sale error y pide un nuevo nombre, pero luego al introducir el nuevo nombre, aunque sí lo encuentre y esté bien, sale error :" illegal division by 0"

unless ( open(DNAFILE, $dnafilename) ) ...

¡Buenas de nuevo! Tengo una nueva duda, que no consigo resolver, veréis:
Tengo un fichero, y en dicho fichero querría eliminar una palabra de una frase en una línea concreta.
Ejemplo:

Imaginemos que tenemos el siguiente fichero:

blablablabla
blablalba
Nombres: Pepe Paco Manolo
balblabla
blablal

Me gustaría que en el fichero, utilizando como patrón la línea de "Nombres:", eliminar la palabra "Paco", de modo que quede:

blablablabla
blablalba
Nombres: Pepe Manolo
balblabla
blablal

Un saludo

¡Buenas! Soy nuevo en el foro y quería ver si me podíais echar un cable con un problema que tengo.

Veréis: desde un HTML, mando un parámetro (nombreusuario) a un archivo Perl, de este modo:
my $query = new CGI;
my %FORM = $query->Vars;
my $nombreusuario = $FORM{Usuario};
Después, necesito leer un fichero línea a línea, y en caso de que en ese fichero encuentre el parámetro que leí del HTML, pues escriba más ...

• Cree un archivo tipo texto con las siguientes características:
  
  • Cada palabra (campo) deberá estar separado por ':' (dos puntos) sin espacios intermedios
  • El último dato solamente lleva ENTER, NO COLOCAR ':' (dos puntos)
  • Que contenga 4 campos
• Abra el archivo de modo lectura
• Imprima los registros con todos sus campos
• Abra el archivo de modo lectura-escritura
• Imprima su contenido
• Genere nuevos datos
• Imprima contenido
• ...

Buenas noches.

Tengo un script en Perl para realizar copias de BD de MySQL, y quiero poder detectar cuándo se ejecuta bien o cuándo da algún error, pero no consigo cazar las excepciones de errores.

¿Sabéis cómo puedo saber si un comando se ejecutó correctamente o dio algún error en Perl?

Orden que utilizo (acepto consejos):

system("/usr/bin/mysqldump -u $userDB --password=$passwordDB --single-transaction --routines --events --triggers --hex-blob $bd | /bin/gzip -c > $DST/$DATA" . "_" . $bd ...

Evaluar la posibilidad cuando el contenido del saco sea vaciado en su totalidad. Generar el mensaje “El saco está vacío, no hay más qué contar. Cargue un nuevo saco”.

#!/usr/bin/perl

$pesosaco=2.1;
$peso=1;
while($peso != 0) {


print "ingrese un peso: 0.70gr plástico 1 gr canicas \n";
$peso=<STDIN>;
chop($peso);
print "\n";
if ($totalp==$pesosaco){
print "el saco está vacío, no hay más qué contar. Cargue un nuevo saco";
}
else
{
if ($peso == 0){
print "total ...

Necesito su ayuda. Necesito un programa que muestre un mensaje en pantalla de que su tiempo ha terminado al llegar a dos minutos. Hasta aquí todo bien. El problema es que también debe mostrar un mensaje de interrupción si el usuario no presiona una tecla durante diez segundos.

#!/usr/bin/perl

my $countdown = 2*60;

$| = 1;

my $beg_time = time;
my $end_time = $beg_time + $countdown;

for (;;) {
my $time = time;
last if ...

Buenas tardes,

Soy nuevo en el foro y en bioinformática, llevo muy poco tiempo aprendiendo Perl, y tengo que hacer un programa que haga lo siguiente:

Leer nombres de archivos desde la entrada patrón (teclado); cada archivo puede tener uno o más registros en formato GenBank. Para cada archivo de entrada crear un archivo de salida con extensión ".fasta". Cada archivo de salida (los .fasta) deben tener las secuencias del archivo de entrada en formato ...

Buenas.

Tengo un script que tiene que hacer dos conexiones sftp a dos servidores distintos.

Lo estoy haciendo con el módulo Net::SFTP::Foreign

Lo he hecho con las siguientes líneas:

my $sftp_rep = Net::SFTP::Foreign->new(host=>$host_rep, user=>$user_rep, password=>$passwd_rep, port=>$port_rep);
$sftp_rep->die_on_error("unable to connect to remote host");

Así es como lo tengo puesto inicialmente.

Entonces, inicialmente, si hay algún posible error en la conexión del ssh, con este código, el script lo que hace es salir del script. ...