Foro - Perl en Español

Muy buenas, otra dudilla. Tengo 2 maquinas, digamos maquina1 y maquina2.

Desde maquina1 quiero llamar a un script que hay en maquina2 y que se ejecute en maquina2. Digamos que este script se llama script2.pl

¿¿ Cómo podría hacer esta llamada ??

hola me gustaría saber cómo se puede vaciar un array
gracias!

Bueno lo que quiero es restar dos fechas dadas por algun modelos y que me de su resultado en días, un ejemplo de esto aunque no se cómo se haga en Perl sería

Code: Seleccionar todo

num_dias = (mm-dd-aaaa) - (mm-dd-aaa)

num_dias = (05/15/2007) - (05/10/2007)

Pues no se si se me entienda muy bien la idea, pero es para calcular el valor de una reserva en días de un hotel, el usuario dice el día de entrada ...

Este código me funciona perfectamente en mi computador local. Utilizo IIS, pero cuando lo subo al servidor Linux, me ejecuta el script pero no me carga los datos en los campos que deseo. La función open es sencilla y lo que hace el módulo kreader me funciona a la perfección en mi PC.

Será que alguien me puede dar una indicación. Mis fichero que deseo abrir tienen permisos 755.

#!/usr/bin/perl
use CGI qw(:all);
use HTML::Template; ...

echo "INF: Preparando archivo

Hola Amigos Perleros :

Necesito crear un script Perl que lea un archivo de texto, separado por comas (TXT), y convertirlo a XML. El contenido del archivo es así :

Code: Seleccionar todo

7017 , 2007/03/30, 2007/04/07,      1894
7019 , 2006/12/23, 2007/01/06,      2119
7019 , 2007/02/15, 2007/02/22,      2041
7019 , 2007/03/17, 2007/03/24,      2047
7020 , 2006/11/15, 2006/12/15,      2078
7020 , 2007/01/23, 2007/02/09,      2181
7020 , 2007/02/09, 2007/02/16,      2165
7020 , 2007/02/16, 2007/02/25,      1979

en donde la primera columna ...

Supóngase que se tiene un archivo muy grande y hay que modificar X línea, ya me hablaron de Tie::File, muy bueno, pero reescrive el archivo y yo necesito eliminar (o modificar) Y línea sin crear archivo alguno.
¿Se puede hacerlo?
¿Cómo hacerlo?
Gracias.

Hola, estoy llamando desde Java a un ejecutable de Perl y le paso como argumentos un string que contiene saltos de línea pero luego lo recibido por el ejecutable de Perl no contiene dichos saltos de línea.

Gracias por vuestra atención y si tenéis alguna idea sobre como arreglar os agradecería que me la comentaseis.

Un saludo.

Hola a todos,

Estoy intentando generar un fichero XML dinámicamente con el aspecto siguiente:
<ProjFields>

<ProjField Label="Pepe" Format="%s">
<StatField Family="fam1" Field="Field1" />
</ProjField>

<ProjField Label="Jose" Format="%s">
<StatField Family="fam2" Field="Field2" />
</ProjField>
...


</ProjFields>



Lo que llevo hecho hasta ahora:

my $selectedField;

foreach $selectedField (keys %availableFields) {

push @{$tempXML->{ProjFields}->{ProjField}},{
Label => $availableFields{$selectedField}->,
Format => $availableFields{$selectedField}->
};

push @{$tempXML->{ProjFields}->{ProjField}->{StatField}},{
Family => $availableFields{$selectedField}->,
Field => $availableFields{$selectedField}->
};
}
my $exploitableXML = XMLout($tempXML,RootName=> "Projection");
print Dumper($exploitableXML);

Como resultado del ...

Buenos Dias.

Necesito realizar una busqueda en un fichero de |5040| que es un valor unico y no se como poner que me busque la tuberia+codigonumerico+tuberia.

Es decir como buscar un caracter especial en una Expresion Regular.

if($lineaENT =~ /|5040|/)

Muchas Gracias.
Alfonso.