Foro - Perl en Español

Buenas, ¿cómo se imprime un hash de hashes? Gracias

%HDH = (
patata => {
$a => 123,
$c => 212,
$g => 234,
$t => 254,
$u => 194,
},
calabacin => {
$a => 123,
$c => 345,
$g => 234,
$t => 543,
$u => 150,
},

Hola de nuevo,

Estoy intentando usar los servicios web de una herramienta. En la página de dicha herramienta se proporcionan unos scripts de Perl para utilizar los servicios web, pero al ponerlos a funcionar me sale el siguiente error:

panic: schemas() removed in v2.00, not needed anymore
at C:/Perl14/site/lib/XML/Compile/WSDL11.pm line 65
XML::Compile::WSDL11::schemas(XML::Compile::WSDL11=HASH(0x30ffbac)) at xml-compile.pl line 46
main::appendSchemas(XML::Compile::WSDL11=HASH(0x30ffbac), "http://www.cbs.dtu.dk/ws/common/ws_common_1_0b.xsd", "http://www.cbs.dtu.dk/ws/TMHMM/ws_tmhmm_2_0_ws0.xsd") at C:\Perlprograms\tmhmm.pl line 18


No tengo ni idea de a lo que se refieren con ...

¿Cómo puedo ver una imagen creada con Perl?

¿Sólo se pueden ver en un HTML o puedo obtener un archivo de imagen independiente para verlo con un editor de imágenes cualquiera?

He leído los tutoriales de Perl en español, y está todo muy bien explicado, pero aun así no consigo ver ninguna imagen de las que se crean (salen una cantidad de simbolitos de código (¿ensamblador?) en pantalla (STDOUT), pero no veo mi imagen...)

Gracias ...

Hola a todos.

Voy empezando con Perl. Tengo que hacer un contador de cisteínas (el número de veces que aparece la letra C en la secuencia de aminoácidos) en un archivo múltiple en formato fasta. Tengo varios días y no puedo. ¿Podría alguien darme una idea de cómo puedo hacer esto?

El input sería algo así:
>217618
MHHPILLSAFISIASSLRLNAPTVNKRGSTIAQPGSIKDVIVTSFNTLNSTHHYRIPKAKPHSWNDTIST
HNLSLKLYNNYNGGPINAYIQGLDSNGAIVFITSNGTLIHPRSNNSSSPIEIKDKLAIPLPPKGQSLTLN
ITTSLTSGRVYFSEGNLKFFTINLGAGDGLVQPSVNNLHDPSASLNWGFIELTFLRNGALYANISYVDFV
GLILSMMLSTKDGGTPQITRGLRANAVYDLCEGLFKQTANDGYLWLAMCVVGKTGDPVRVLSPNYYQRVY
AADFEDYWQDYVDTVWEYYSSHTLAIDTQTPLGQVECQVTNDTLYCAEDNRGYAKPTASDIWGCNSGPFG
LQEGDNPVHVAVIPRLCAAFVRSTLLIRGGDVQPRLNSSYHYSVSPTNHYSRIVHELQVDGRGYAFSYDD
VNPNGHEDVSGLVSSGNPDTLTVYVGGPPN*


>161114
MAPSGTLPLAAAILALAGIVTAQQPGTSTPEVHPKLTTYQCTTSGGCVAQDTSVVLDWNYRWMHDANYNS
CTVNGGVNTTICPDEATCGTNCFIEGVNYTASGVTTSGSSLTMNQYMPATTGGYSSVSPRLYLLGADGNY
VLLQLNGKELSFDVDLSALPCGENGSLYLSQMADNGGANQYNTAGANYGSGYCDAQCPVQTWKNGTLNTN
HSGYCCNEMDILEGNSEANALTPHSCTATACDSSGCGLNPYASGFHSYYGPGLTVDTSKPFTITTQFNTD
NGSPSGNLVSITRKYIQNGVSIPSAQSGGDIISSCPSASAYGGLTTMGKALTSGMVLIFSIWNDSGGYMN
WLDSGSSGPCSSTEGNPSTILANNPGTHVTFSNIKWGDIGSTTSGGSSPPPPPASSTTLRTSTTTSKTST
APPSCTQTHWGQCGGNGYTGCKTCASGTTCQYSNDCEYSMNISKRRFRILIM*


>86295
MVLFRSLVFFSATACAATAPPSQSQGGIMAEQGLPDGIYQAAAVQGPTFEAPSAVPSSHLSLRGWKHPPG
EGDFHEKPGPHTEDEYSVPIHATRHSCHKDRHILLNSTEYRRAIDNLWDYCQNFKVPYHGAHLSIVGDVM ...

¡Saludos!

Tengo una duda con un "Botón de Opción". La sintaxis sería:
<input type="radio" name="radio" id="radio" value="radio">
Pero en mi caso, contiene el evento onclick():
<input id="givingLevel" type="radio" name="givingLevel" value="Other" onclick="rdo_OnClick(this);" />
Estoy trabajando con "WWW::Mechanize". Envío el formulario con:
$mech->submit('');
Sin embargo, la opción de "givingLevel" no se activa :cry:

La respuesta, después del submit, la guardo en ...

Hola, buenas noches, estoy tratando de hacer algo sencillo pero algo me falla y no encuentro el problema.

El código es el siguiente:

#!/usr/bin/perl

use Asterisk::AGI;
use File::Basename;
use DBI;
use DBD::mysql;
use POSIX;

$AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();



# CONFIG VARIABLES
$platform = "mysql";
$database = "aaa";
$host = "localhost";
$port = "3306";
$tablename = "tabla";
$user = "root";
$pw = "";

#DATA SOURCE NAME
$dsn = "dbi:mysql:$database:localhost:3306";
# PERL ...

Hola, ¿qué tal?

Me puse a revisar su foro y en primer lugar lo felicito por la forma didáctica que tiene de responder. Soy novato en el uso de los scripts en Perl. La verdad, me gustaría aprender, espero que me informe si pretende hacer algún curso; la verdad, estoy muy interesado.

Mi problema es el siguiente: muchas veces realizo alineamiento de secuencias provenientes del NCBI en formato multifasta; pero los headers son muy largos ...

Saludos.

¿Cómo podría instalar en mi disco duro un CPAN con todos los módulos que existen para poder programar sin tener que bajarme los módulos de Internet, para cuando no tenga conexión? Además es bueno de tener grabado en el disco duro todo ese código, por si algún día se borran, ya los tenemos ahí.


Gracias.

Espero que estén bien. Como siempre vengo a tratar de que me ayuden con un nuevo script.

En este caso estoy creando un script, el cual tiene como objetivo verificar si existen archivos en un sitio web, pero no me está funcionando la parte de que me tome la cookie de sesión.

#!/usr/bin/perl
require LWP::UserAgent;
require HTTP::Cookies;

my $useragent = "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.1) Gecko/2008072820 Firefox/3.0.1";
my $ua = LWP::UserAgent->new() or ...

Hola a todos.

A ver si puedo explicarme bien: estoy cacharreando un plugin para el xchat, y necesito controlar los menús. Lo que me gustaría saber es cómo ver el estado de una ocpión en el menú, o sea, leerla con alguna función del xchat.

Veamos, tengo un menú creado de la siguiente forma:

/menu add test
/menu -t0 add test/opcion "cmd1" "cmd2"

Lo que quiero saber es, desde el plugin, cómo consultar el estado ...