Foro - Perl en Español

Hola a todos!

Este es mi primer mensaje en el foro, ya que soy un aprendiz de Perl.

Mi problema es el siguiente:

Debo encontrar la forma (si es que existe) de extraer de varios textos las combinaciones entre palabras de una lista dada de palabras. Estamos hablando de 140 textos y una lista de alrededor de 1.300 palabras. Se trataría de ver cómo esos términos se repiten/combinan entre ellos en dichos textos.

El primer ...

Hola!
Estoy trabajando con PHP, Perl y MySQL y con dos máquinas diferentes.
Tengo un script .pl en una máquina, y desde ese script necesito hacer una consulta a la base de datos que se encuentra en la otra máquina, pero no se como hacerlo.
Espero que podais ayudarme.

Un saludo y gracias

Hola a todos...

Estoy debugeando un script de perl (perl -d <script.pl>) y no recuerdo cómo puedo ver el contenido de un arreglo de forma tal que me salgan sus elementos por separado...

Por ejemplo: la variable @a contiene los valores 10, 20 y 30

p @a me muestra 102030

Quisiera verlos de forma separada sin tener que poner

p $a, p $a o p $a

que pusiera.... <el comando para mostrar a @a> y ...

Hola a todos...

Resulta que ahora me está dando problemas algo que ayer me funcionaba... Estoy insertando texto en un fichero de la siguiente forma y me da error. Acá va el código...

Code: Seleccionar todo

  use DBI;
 
  my $salida="/home/admin/fichero.txt";
  open (SALIDA,">$salida") || die "ERROR: No puedo abrir el fichero $salida\n";

  PRINT SALIDA "SKLHFEW EWTREJTOEWRTIETERHTOEOR";
  close (SALIDA);

El error es el siguiente...

Can't locate object method "PRINT" via package "IO::Handle" at /home/admin/write.pl line 6.

(la linea donde hago ...

Hola a todos...
Me estoy iniciando en Perl asi que me disculpen preguntas un poco evidentes....

Estoy creando un fichero texto pero no se como insertar texto con comillas... dentro del fichero quisiera insertar lo siguiente

cualquier cosa "otra cosa" el final.

Esto es lo que hago....

Code: Seleccionar todo

my $salida="1.txt";
open (SALIDA,">$salida") || die "ERROR: No puedo abrir el fichero $salida\n";
print SALIDA "cualquier cosa "otra cosa" el final.";

Por supuesto que no me funciona...

¿¿ ...

Hola:
Soy nueva en perl y tengo un pequeño problema. Estoy haciendo una función que devuelve un array cuyos elementos son cadenas, y en el programa principal él valor de la función es asignada a otra variable, y uno de los elementos de esa variable(que será de tipo array) es mostrado por pantalla.

Lo que he hecho es algo así:
Dentro de la función:

Code: Seleccionar todo

sub funcion
($valor)=@_;
....
$fich[0]="cero";
$fich[1]="uno";
.....
return $fich

En el programa ...

Necesito si me pueden ayudar con esto ya que recien me inicio en Perl y no estoy muy acostumbrado al lenguaje.
Lo que necesito es que dados dos textos:

Texto1: Este texto debe ser reemplazado Pero este no.

Texto2: Texto que remplazara a cualquier texto que se encuentre entre y


el programa debe reemplazar el texto que se encuentra encerrado entre y con un texto nuevo (Texto2). Por supuesto ...

Necesito información de Perl pero desde cero es decir quiero aprender este lenguaje.

Necesito un ejemplo de un programa cliente y un programa servidor.

Buenas, mi problemita es que no logro "comparar" o "encontrar" la palabra que quiero para que de un msg u otro. Lo que hago es etnrar en diferentes equipos, si no entra sigue la parte que pego y como puedo tener dos mensajes de error (por falta de password o por timeout) busco la palabra Password separando por palabras la @salida.

Comprobé que realmente capturara @salida imprimiendolo por pantalla y sí me salía, pero a ...

Agradecería si me pudiesen indicar si hay alguna funcion para lograr lo siguiente, o como podría lograrlo:

Ejemplo: Dado el nro 14 que devuelva 0000014

Es decir complete el parametro ingresado a una string de longitud 7, rellenando con ceros las posiciones delanteras faltantes.

Muchas gracias. :)