Foro - Perl en Español

Hola a todos,

Tengo una duda que quizás podáis resolverme, y que me esta dando dolores de cabeza:

my $outKey = &func();
if (defined $outKey) {
my @outList = qw(CLT DFF DFM);
if (grep(/$outKey/,@outList )) {return 1;}
}
else {return 1;}

El caso es que tengo este pequeño trozo de código.

En $outKey, recupero una cadena de caracteres determinada, la cual puede contener todo tipo de caracteres, incluso caracteres reservados para las regexp de Perl. ...

Hola a todos,

El caso es que tengo un problema que me está volviendo loco...

Tengo un proceso padre que espera en un bucle por la finalización de los procesos hijos. Algo así como:

# We wait until all the children have finished
while($nbProc > 0) {
&waitEndOfChild(\$nbProc);
}

donde $nbProc es un contador con el número de procesos hijos todavía ejecutándose.

Y he aquí el código de la función waitEndOfChild, ejecutada por el proceso ...

Hola a todos.

Me han mandado una práctica que consiste en lo siguiente:

• Tengo un primer archivo con palabras que debo eliminar. Ejemplo: desde, con, un, una, luego, entonces, para, así, etcétera.
• Tengo un segundo archivo en el cual debo eliminar todas las palabras anteriores. Ejemplo: "con dinero compro una casa" ---> "dinero compro casa"

Yo estoy haciendo dos bucles while, uno que lea cada palabra a eliminar y en el segundo, por cada ...

Lo que intento hacer es abrir un archivo de texto en modo lectura, donde hay almacenadas URL y capturar cuantas lineas los componen. El fichero tiene esta estructura:

Code: Seleccionar todo

URL1
URL2
...

Para después imprimirlas una a una dentro de un bucle.

$archivo=$ARGV;

open (txt,"$archivo");
@webs=<txt>;

for ($i=@webs;$i<@webs;$i++)
{
print @webs;
}

Hola a todos.

¿Alguien sabe cómo puedo comprobar si un string (para mi caso $linea (está partida con split)) empieza con unos caracteres en concreto?

Lo que quiero hacer es comprobar si dicho campo ($linea) empieza por 0,1 o 2.

Muchas gracias por vuestra colaboración.

Hola a todos,

El caso es que estoy usando una variable $Counter como contador de transacciones. Me gustaría saber cual es el valor máximo admisible por dicha variable puesto que estoy teniendo problemas (el contador no se corresponde con el verdadero número de líneas, que obtengo al hacer un wc -l).
Dicha variable alcanza valores cercanos a 90.000.000 (siempre por debajo).

Hay un detalle también a tener en cuenta. Dicha variable es guardada en un ...

Hola, escribo en esta oportunidad debido a que tengo dificultades al escribir en el archivo .xml que genero, estas son las lineas de código que he logrado:

#!C:/Perl/bin/PERL58~1.EXE -w
use XML::Simple;

$programa="Test1.MiX";

my $xs = new XML::Simple();
open my $XML, '>:encoding(iso-8859-1)', 'archivo5.xml' or die "No se pudo abrir archivo: $!";
print {$XML}
my $ref = $xs->XMLin("<p> <programa> $programa </programa></p>");
my $xml = $xs->XMLout($ref);
print $xml;
exit;
close $XML;

pero lo que necesito que contenga el ...

Hola chicos/as
Lo primero de todos es agradeceros por adelantado la respuesta.
Mi duda es muy simple(el problema es que no se me da muy bien la programación)

Tengo un fichero de texto como por ejemplo este sencillo:

Code: Seleccionar todo

Hola a todos.Me llamo Guillermo.
Me gusta el cine.También la música & los videojuegos. Tengo 25 años.
Gracias.Saludos.

Quiero separar cada frase (por punto "." y también por "&" )

Quedándome:
Hola a todos.
Me llamo Guillermo. ...

Que hable sobre el uso de PHP + Perl, integrar Perl en PHP, Perl sustituyendo a PHP, ¿o algo por el estilo?

Llevo ya un tiempo buscando y no creo haber encontrado nada decente...

Muchas gracias

Hola!... ¿Alguien me puede dar una idea de cómo generar un archivo .xml desde una aplicación perl, el cual contenga información dada en la aplicación?

Lo que sea, me sirve. Hasta un HOLA MUNDO.