Foro - Perl en Español

Necesito ir introduciendo elementos en un mismo hash, pero de forma espaciada.
El problema es que si lo hago de la forma:
%hash = ( clave1 => elemento1);
%hash = (clave2 => elemento2);

se me sobreescriben los valores en vez de almacenarse.
¿Hay alguna forma de irlos añadiendo?

¡Muchas gracias!

Hola, tengo la siguiente función:
sub getSectionDescription {
my $section_code = shift;
my $dbh = &EMIS::Database::gethandle('CEICP');
my $sql = '';
my $sth = undef;
my $row = {};
my $section_name = undef;

if ($dbh) {
$sql = " SELECT SECTION_NAME \n";
$sql.= " FROM LAYOUT_PATHTREE_MVS \n";
$sql.= " WHERE NODE_CODE = '$section_code' \n";

$sth = $dbh->prepare($sql);
$sth->execute;
# foreach ($row = $sth->fetchrow_hashref()) {
# push @{$section_name}, $row;
# }
$sth->finish();
$dbh = releaseDBHandler($dbh);
$section_name ...

Hola, necesito hacer un programa muy parecido a otro para el que también pedí ayuda aquí: lo que quiero es tomar de un fichero solamente lo que aparece entre comillas dobles, tras 'sent:'

TEXTO:
sent: "todo lo que quiero
es que
esto se quede
como está"
Blabla bla bla bla bla
sent: "estos son los
datos
del problema"
Bla bla bla bla bla bla bla
sent: "no estoy de acuerdo"

De momento, lo que he ...

$Ninicial = 1;
$Nfinal = 4365;

while ($Ninicial <= $Nfinal)
{
my $final = "http://..../index.php?id=".$Ninicial;
my $cnx = LWP::UserAgent->new() or die;
my $go = $cnx->get($final);
if ($go->content =~ m/fecha(.*?)fecha/ms)
{
print $Ninicial.": $1\n";
$Ninicial++;
}
}


Hola amigos... Tengo este pequeño script que va muy bien, excepto... cuando se me colapsa y se me queda parado.

Me explico: yo voy recibiendo por consola algo parecido así:

1: lo que quiero obtener
2: ...

Hola, ¿¿¿cómo están???

Mi pregunta es simple: Cómo cargar un archivo de texto (.txt) en un Hash.

De antemano, muchas gracias.

Estoy haciendo un script que sustituye cuando dos caracteres iguales están juntos, con los mismos caracteres entre paréntesis,

Véase:
s/(.)\1/\($1$1\)/g

Obviamente existen variables que al usar expresiones por ejemplo:

$` antes del match
$1 El match
$' Despues del match

¿Pero hay alguna variable, como éstas, que me indique el número de matches que hubo al evaluar la expresión regular?

Es decir, si matcheo 3 veces que me diga $fulanito = 3

Gracias

Hola,

Soy nuevo en esto del Perl y voy algo perdido.

He mirado por el foro pero no he visto la solución a mi problema. Bueno, he visto soluciones pero no me funcionan, supongo que algo no debo de hacer bien.

Tengo que leer un archivo con 20 líneas de números aleatorios, cada línea tiene 240 números.
Algo así:
1,5,34,23,345,...,0
2,3,4,55,6,1,...,23
Cada línea la quiero pasar a un array @color_1, @color_2...

Creo que si me ...

Estimados,

Los molesto porque necesito de su ayuda.

Tengo un archivo el cual tiene el siguiente contenido:

- archivo.txt
configuracion hostname pepe
configuracion accesosAllow 1.1.1.1
configuracion accesosAllow 2.2.2.2
configuracion accesosAllow 3.3.3.3
configuracion metricas 10
configuracion listas marcos
configuracion servers 1
configuracion servers 2

Mi idea es tratar de analizar el archivo para obtener lo siguiente:
- salida.txt
Hostname-> pepe
accesoAllow -> 1.1.1.1
-> 2.2.2.2
-> 3.3.3.3
Serves -> 1
-> 2

Tengo este script que ...

Hola, tengo una duda básica. Solo necesito saber cómo reconocer un número par en Perl.

Hola,
Yo soy debutante en Perl y quisiera saber si en Perl se puede trabajar con ecuaciones diferenciales e integrales.

El contexto de mi pregunta es el siguiente: Yo debo leer un archivo texto y tratarlo extrayendo cierta cantidad de datos; luego esos datos serán la entrada de unas ecuaciones (diferenciales) y luego con las soluciones de estas ecuaciones se regenerará el archivo texto que se tenía en la entrada (con ciertas modificaciones).

¿Podría decirme ...