Foro - Perl en Español

El conocido buscador de Internet DuckDuckGo (basado en Perl), tiene una API pública, con la que podemos usar sus servicios desde nuestros propios programas, bien con la ayuda del módulo WWW::DuckDuckGo o con el comando duckduckgo que viene con App::DuckDuckGo.

Estimados: ¿cómo puedo, en Perl, comprobar que una cadena de números solo tiene ceros y unos, es decir, solo del tipo 1000111?

Si encuentro 100300 tiene que mandar un mensaje indicando que no es binario.

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) ...