Foro - Perl en Español

Por favor, soy muy novato usando Perl. Solo llevo unas semanas aprendiendo, pero ahora tengo que desarrollar urgente un script que me permita hacer lo siguiente:

Tengo un archivo de texto plano que tiene la siguiente forma:

> nombre de gen 1
TAGCGATCGATCGACGACTAGCATCAGCTG
CGATGCTGACTGATGCTGATCGATCGTACG
CGTAGCTGATCGTAGCTAGTCGTAGCTGAT
TATCGTAGCT
> nombre de gen 2
GCTGATCGTAGCTAGTCGTAGCTAGTCGAT
ACGTCGTAGCTAGTCGATGCTGATCGTAGT
AGCGATGCTAGTCGATGCTGATCGTAGCTG
TACTCGTGCGACGATGATCG
> nombre de gen 3
TCGATCGTAGCTGATCGTAGCTGATCGTAC
TAGCTGATCGTAGCTGTAGCTGATCGTAGG
ATCGTAGCTGATGCTGCTCGTGTGCATGAT
AGTTCGATCTTTGC

Y quiero ponerlo en esta forma:

> nombre de gen 1 ...

Por favor, les agradeceré una ayuda.

Debo conectarme a un webservice y solo tengo estos datos. Me han alcanzado un manual y todo parece indicar que es sencillo, pero requiero una ayuda inicial. ¿Cómo llamo al webservice con un script Perl? Solo tengo esto, ¿es suficiente?

(los datos son solo supuestos)
URL de acceso a servicio: http://test.dominio.com/wsdl/autor.wsdl

getAutores

parámetros entrada
IdComercio
IdAutor

parámetros salida
Item
AutorID
AutorName

Ademas me ...

Favor, su ayuda. Al enviar una consulta a un webservice, recibo la siguiente estructura, pero no he podido tomar sus valores. ¿Me sirve XML simple o debo ocupar solo Soap Lite ?... Gracias


$VAR1 = {
'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance',
'soap:Body' => {
'enlaceprueba' => {
'xmlns' => 'http://www.prueba.com/',
'enlacepruebaresult' => {
'NewDataSet' => {
'xmlns' => '',
'table' => [
{
'id' => '1',
'campo2' => '2',
'campo3' => '2',
},
{
'id' => ...

¡Hola!

Necesito leer un fichero que contiene 2 líneas, para meter en una variable diferente cada línea.

Las líneas que contiene el fichero son las siguientes:
PRODDC09\\exchangeadmin
passw?ord

Y el código que estoy utilizando es este:
while(my $line=<INPUT>){
if( $cont eq '1' ){
$passwd = $line;
last;
}
$usr = "$line";
$cont = '1';
}
Pero parece que no le gustan los backslash que hay en la primera línea, porque me escupe este error: ...

Hola,

Tengo que realizar un script que se conectará contra una BBDD, y claro, tengo que pasar credenciales: usuario y password.

Ambos datos están en el script, y no me gustaría que alguien viera el código y supiera cuál es la clave de acceso.

Había pensado en encriptar la password con TripleDes, base64 o similares, pero cualquiera que se instale el módulo y posea la clave encriptada será capaz de desencriptarla.

Estoy un poco perdido ...

Tengo un array que me agrupa fechas de inicio y fin pero cuando coloco un array dentro del foreach() que recorre el primer array se cuelga.

$fechaca = "2011-01-06/2011-01-12,2011-01-13/2011-01-17";
my $a = 1;
my $b = 1;
my @fechacom = split(",", $fechaca);
foreach my $fc (@fechacom) {

my @fechas = split("/", $fc);
$worksheet->write($a, $b, "Fecha inicio ". @fechas . " Fecha Final " . @fechas, "");
$a++;
}

Hola a todos. He creado mis pantallas con Win32::GUI. He podido ejecutar varios script pulsando los botones correspondientes pero tengo una duda:

my $main2 = Win32::GUI::Window->new(
-name => 'Main2',
-text => 'Principal',
-pos => ,
-width => 600,
-height => 600,
-background => ,
);
my $EditFont = new Win32::GUI::Font (
-name => "Fixedsys",
-size => 12,
);

$main2->AddTextfield(
-name => "Mostar",
-pos => ,
-size => , ...

Hola,

Estoy haciendo un CGI para unos usuarios, en el cual introducen una serie de datos.

Quiero que mi CGI, después de comprobar si son datos correctos o son "especiales", muestre un popup JavaScript para decir al usuario: "¿Desea continuar? ".

Si el usuario pulsa SÍ, mi cgi tiene que llamar a una funcion ( &plataformar ), y si pulsa NO, el cgi tendría que seguir con su ejecución normal.

Tengo ...

Hola, tengo que capturar una cadena de un dn, el dn tiene esta pinta:
CN=Usuario123,OU=Admins,OU=Accounts,OU=ESPANA,DC=ZONES,DC=GLOBAL,DC=CORP

Quiero capturar "Usuario123", pero no sé cómo especificarle a la expresión que capture hasta el primer OU:

if ($linea =~ m/CN=(.+)OU=/gi
En el caso de que quiera capturar por ",", estamos en las mismas, me captura hasta la ultima ocurrencia que encuentra.
¿Cómo puedo especificarle esto?

Saludos,

Hola. He pensado una cosa y quería saber vuestra opinión. Me dijeron que sí podría interactuar con Outlook porque lo usan mucho con lo cual, mirando un poco en Google, he pensado que podría abrir el programa de Microsoft Outlook desde mi programa en Perl y desde ahí mandar el fichero generado por el programa. Quería saber vuestra opinión sobre usar:


# create the object
use Mail::Outlook;
my $outlook = new Mail::Outlook();

# ...