Foro - Perl en Español

Hola.

Necesito de su ayuda en Perl. Soy nueva en este lenguaje y no logré que funcione mi programa.

Consiste en llamar un archivo, que es el siguiente:
Se llama archivonuevo.txt y contiene lo siguiente:
4
5
Vaca#1
AATCG SON LOS ALELOS
AATGG
Vaca#2
ATTCG
TATCG
Vaca#3
TATCG
TTTCC
Vaca#4
CTGTC
GCATC
El primer 4 es el número de Vacas
El 5 es el número de SNPS
Las cadenas de nucleótidos son los alelos.

Lo ...

Hola.

Necesito generar strings a partir de ciertos caracteres, pero no aleatoriamente, sino una combinación tras otra siguiendo el orden predefinido de los caracteres, hasta completar todas las posibles combinaciones.

Como no sé si me he explicado bien voy a intentar hacerlo con un ejemplo:

Tengo los siguientes caracteres

Code: Seleccionar todo

abc

Strings generadas a partir de los caracteres
Strings de 1 carácter de longitud
a
b
c
Strings de 2 caracteres de longitud
aa
ab
ac ...

Hola.

Tengo una duda porque quiero sacar cierta frase en una etiqueta font.
El problema es que quiero siempre usar los '"' porque no quiero usar comillas simples "'".
¿No hay alguna forma de reparar mi código para hacer lo que quiero?

$code = "<font color="red">ssd</font>";
if ($code=~/<font color="red">(.*)</font>/ig) {
print "$1\n";
}

Hola a todos.

Supongamos que tengo una variable así:

$var1="perl es espectacular";

¿cómo sería la manera más sencilla de tener en $var2 "perl_es_espectacular"?

Gracias por la ayuda a todos.

Carlos

Hola,

Tengo el siguiente problema. Deseo generar una serie de combinaciones a partir de un conjunto de datos. Estuve investigando y al parecer existe un módulo en CPAN que hace esto muy fácil. El módulo es "Math::Combinatorics". Ya he jugado un poco con el código y va bien.

#! /usr/bin/perl -w

use Math::Combinatorics;

my $file = $ARGV;

open (FILE, $file);

my @n = <FILE>;
chomp @n;



print "combinations of 2 from: ".join(" ",@n)."\n";
print ...

Hola a todos.

Tengo una duda que siempre tuve porque tengo una ventana Tk que en un botón imprime un montón de veces hola mundo y otro que debería parar solo la función, pero no salir del programa.

use Tk;

$ven = MainWindow->new;

$ven->Button(-text=>"Conta",-command=>\&contar)->pack();
$ven->Button(-text=>"Para",-command=>\&para)->pack();

MainLoop;

sub contar {
for (1..99999) {
$ven->update;
print "hola mundo";
}
}

sub para {

}

Viendo el código no hay una forma de poder hacer lo que ...

Buen día, tengo una duda.

Tengo mi programa que contacta a una BD, por medio de use DBI;

Este mismo programa funciona bien en otros equipos pero en mi máquina truena.

Tengo Perl
This is perl, v5.8.4 built for sun4-solaris-64int
(with 31 registered patches, see perl -V for more detaen un Solaris, con Oracle 9.0.1.

El Oracle funciona bien: puedo entrar por comandos y me responde la base de datos.

Aquí la cosa es ...

Hola, estoy instalando el módulo DBI-1.614 en un SUN Solaris 10 recién instalada, perl Makefile.PL fue Ok, pero dio error al realizar el make:
Skip blib/lib/DBI/ProfileData.pm (unchanged)
cc -c -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TS_ERRNO -xO3 -xspace -xildoff -DVERSION=\"1.614\" -DXS_VERSION=\"1.614\" -KPIC "-I/usr/perl5/5.8.4/lib/i86pc-solaris-64int/CORE" -DDBI_NO_THREADS Perl.c
ucbcc: unrecognized option `-Xs'
ucbcc: unrecognized option `-KPIC'
ucbcc: language ildoff not recognized
ucbcc: Perl.c: linker input file unused because linking not done
ucbcc: -lucb: linker input file unused because linking not done
ucbcc: ...

Hola a todos.

Tengo un problemilla con los tipos de comillas en Perl.

El caso es que esta función funciona perfectamente bajo MacOSX. Pero al pasarlo a Debian me da el siguiente error: sh: Syntax error: Unterminated quoted string.

sub get_xml{
$mac = Extr::get_mac();
$get_xml=`/usr/bin/wget --no-check-certificate '$Conn::RUTA/c_igeneral.php?mac=$mac&xaSj1=$Conn::PASS' -O $Conn::HOME/general.xml`;
return $get_xml_particular;
}

He probado poniendo en vez de variables, el string a pelo, y nada. El problema me lo da, creo, la comilla simple "'". ...

Hola, ¿cómo están?

Una consulta con respecto a base de datos y un módulo de Perl.

Tengo MySQL instalado de forma local en una computadora en la que se registra movimientos de entrada y salida de mercaderías.

Y tengo otra, en un hosting (Internet) con la misma estructura que espera ser actualizada con la BD local.

¿Existe algún módulo que sincronice datos y registros de la BD local con la BD que está en Internet? ...