Foro - Perl en Español

Estimada comunidad, necesito su ayuda urgente para una tarea de la universidad, es vital que la realice para aprobar el ramo. El ejercicio es el siguiente:

Ya lo hice en Java... pero quería el equivalente en Perl... Por favor, si alguien me puede ayudar.

Adjunto el código en Java y también unos ejemplos de cómo es la lógica de reemplazo:

Example 1:
bits = "00110".
By flipping bits 3-4, we get "00000". Method returns 2. ...

¿Qué tal, Perl en español? Acudo a Uds. con una duda de optimización de un proceso.

Creé una aplicación usando el módulo SpreadSheet::ParseExcel que me permite guardar en .txt los datos desde una hoja de Excel y también guardar en variables los parámetros que me servirán para realizar cálculos y finalmente generar un reporte.

A continuación les pongo una muestra de los datos, solo son cuatro columnas: la 0, 1, 2 y 3; aunque en ...

Buenos días ,

Estoy haciendo unas pruebas con el módulo Net::SFTP::Foreign y cuando intento conectar a un host que no existe el script me devuelve lo siguiente y no acaba el programa :

ssh: pepito: Name or service not known

¿Sabéis si hay alguna forma de que se finalice el programa cuando esto suceda...?

La línea que uso para conectar es la siguiente:

$sftp->die_on_error("Unable to establish SFTP connection");

Gracias
Un saludo

Hola a todos y Feliz año.

He creado una aplicación en Perl/Tk para un amigo que usa Win, y al hacerle el ejecutable con perl2exe, no da errores, pero al ejecutarlo me sale esto:

The locale codeset (cp1252) isn't one that perl can decode, stopped at C:/perl/site/5.12.2/lib/Encode/Locale.pm line 87

¿Alguna orientación sobre el error en ejecución?

Si ejecuto el script con perl script.pl funciona perfectamente bajo win.

Salu2

Hola.

Soy nuevo en el foro y nuevo con Perl. En realidad no sé nada, pero estoy manejando un sitio web que tiene un archivo cgi hecho en Perl y cuando se lo requiere da el siguiente error:

You don't have permission to access /local-cgi/guest/guestbook.cgi on this server.

La primera parte del archivo dice esto (no sé si servirá):

#!/usr/bin/perl

##############################################################################
# Set Variables

$guestbookurl = "http://www.cabanasdeneneaparts.com.ar/local-cgi/guest/index.html";
$guestbookreal = "/www/docs/cabanasdeneneaparts.com.ar/public_html/local-cgi/guest/index.html";
$guestlog = "/www/docs/cabanasdeneneaparts.com.ar/public_html/local-cgi/guest/guestlog.html"; ...

Hola a todos

Escribo para ver si me pueden ayudar con un problema que tengo. Quiero mediante un script en Perl enviar un correo mediante cuenta de Gmail con archivo adjunto de tipo zip. He probado con archivo de texto plano y no hay problema pero no me deja con un tar.gz.

Este es el script.

#!/usr/bin/perl -w

#use Net::SMTP::SSL;
use Net::SMTP::TLS;
use MIME::Base64;
use MIME::Decoder::Gzip64;
use File::Spec;
use LWP::MediaTypes;

sub send_mail_with_attachments {
my ...

Hola, estoy intentando escribir un pequeño script para contar las veces que aparece el código de un gen (a partir de una lista en un archivo) en otro archivo, pero, obviamente, no lo logro.

archivo 1
Mnk1_iso2
Mnk2
Mos
MPSK1
MRCKa
...
archivo 2
Mnk1_iso2,P3455
Mnk1_iso2,P3455
Mnk2,P3455
Mnk1_iso2,P3455
Mos,P3455
...
El resultado debería ser
Mnk1_iso2 3 veces
MnK1 1 vez
Mnk2 1 vez
Mos 1 vez

Tengo un script pero es copia y modificación de ...

A ver, tengo que analizar cientos de ficheros FASTA. La cabecera ya la he sacado.

use strict;

my @fichero;

open (FA, "641736151.fna.txt");
@fichero = <FA>;
close @fichero;

my $line;
my @headers;
my $id;
my $locus;
my $refseq;
my $nombre;
foreach $line (@fichero){
if ($line =~ />/){
@headers = $line;
print @headers;
}

Entonces me da cientos de estas cabeceras:
>642427638 BgramDRAFT_6745 1557..1832(-)(NZ_ABLD01000069)
>642427639 BgramDRAFT_6746 1921..2019(-)(NZ_ABLD01000069)
>642427640 BgramDRAFT_6747 280..846(-)(NZ_ABLD01000070) ...

¡¡¡Saludos Perl en Español!!!

Actualmente estoy realizando una aplicación que se encargará de redactar informes de sanciones económicas a empresas de generación eléctrica.

Mi aplicación funciona de la siguiente manera:

• interfaz gráfica--------------------------------------->módulo Tk
• manejo de ventana para archivos y directorios (abrir)-->módulo win32::Gui
• análisis y transformaación de archivos Excel a texto--->módulo Spreadsheet-ParseExcel
• análisis de fechas e intervalos de tiempo-------------->módulo Date-calc

Estoy trabajando con ActivePerl para Windows.

Les cuento ahora mi triste ...

Estimados,

Junto con saludarlos, necesito realizarles la siguiente consulta.

Estoy programando un script en Perl que se conecta a una BD Oracle y retorna un número entero. Este número entero lo comparo con un valor X, y si pasa el umbral establecido envío una alerta a través de correo electrónico.

Mi problema es que el código es muy poco profesional. Necesito saber cómo poder realizar de mejor forma la conexión a la base de datos ...