Foro - Perl en Español

Hola a todos :D
Desearía hacerles una pregunta:
1-) Tengo un archivo del cual debo escoger solo ciertas líneas, cada línea queda dividida en cinco partes y yo trabajo solo con tres: $ip1, $ip3, $ip6, así que escribí

open (IN, "BRA065.txt");
open(BRA, ">bra.txt");

foreach $bra (($ip1,$ip2,$ip3,$ip4,$ip5,$ip6) = split(" ", $_, 6)){
@bras= grep(/w/,/area/,/spc/,$cmos);
write BRA

Uso la función grep para seleccionar las líneas que tienen ...

Buen día, compañero

Estoy tratando de hacer unos archivos XML con la siguiente estructura pero estuve leyendo un par de módulos en CPAN para crear pero no sé cuál usar, y no sé por dónde comenzar. Alguna idea...

*var variable yo lo llamo desde una BD

Si me echan una mano con un ejemplo más o menos así.

Se los agradecería.

Saludos

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<eConnect>
<RMCustomerMasterType>
<eConnectProcessInfo>
<ConnectionString>
conexxion
</ConnectionString>
</eConnectProcessInfo>
<taUpdateCreateCustomerRcd>
<CUSTNMBR>000000239</CUSTNMBR> ...

Saludos, quisiera saber si me pueden ayudar, tengo una función x, a la cual le tengo que mandar diferentes nombres de archivos para que escriba en ellos. ¿Cómo lo puedo hacer ya que no me funciona lo siguiente?

sub imprimir ($a){
open ($a , ">>archivo.txt");
printf $a " $contenido";

}



imprimir (CASA);
imprimir (CARRO);

Hola,

Necesito filtrar una fecha según un rango especificado, pero, hasta el momento, no lo he logrado.

El código es:


if ( !$fdesde )
{
$fdesde = '01/01/0001';
}
if ( !$fhasta )
{
$fhasta = '31/12/3000';
}

foreach my $res (@result)
{
my $paso = 0;
if ($res->{'DFECHAABONO'} lt $fdesde)
{
$paso = 1;
}
if ($res->{'DFECHAABONO'} gt $fhasta)
{
$paso = 1;
}
if ($paso eq 0)
{
# Puedo imprimir
} ...

Saludos, me pueden ayudar, estoy recorriendo un archivo, del cual tengo que sacar un resumen, no sé si existe alguna función, o lo tengo que meter a una matriz, les mando un ejemplo de como está el fichero:

Líneas que trae el archivo:
49204032 00000 45.40 20080505
49204032 00000 45.40 20080505
49204032 20000 45.40 20080505
49204032 20000 45.40 20080505
49204032 20000 45.40 20080505
49204030 00000 45.40 20080505
49204030 00000 45.40 20080505
49204030 00000 45.40 20080505 ...

Hola a todos:

¿Es posible, en Perl, imprimir a más de un fichero a la vez? ¿Sería válido algo como:

my $var;

open (FPTIM, "> ./fich1");
open (FPTOP, "> ./fich2");

print FPTIM, FPTOP $var;?

Gracias,

Xagutxu

Buenos días.

De un fichero obtengo mediante una expresión regular la fecha con el siguiente formato: DD/MM/YYYY HH:MM:SS y la necesito en el formato YYYYMMDDHHMMSS.

Para parsearlo empleo la siguiente expresión: UnixDate($1,"%Y%m%d%H%M%S").

El fichero del cual leo las fechas es muy grande: ~ 3 millones de líneas por lo que el tiempo que emplea es aprox. 10 horas y eso es demasiado tiempo.

¿Existe algún módulo de Perl que realice este parseado de manera más ...

Hola,

Soy programador de PHP entre otros lenguajes y estoy creando un script para subir archivos al servidor.

Hoy estuve viendo los ejemplos de cómo hacerlo con Perl, ya que con PHP no puedo consultar el progreso a no ser que instale una extensión, cosa que no quiero en estos momentos.

Nunca había tocado Perl hasta hoy y he estado deduciendo el script aquí posteado y añadido algunas modificaciones.

Me gustaría resolver un par de ...

Buenas, los molesto para hacerles una consulta; tengo lo siguiente.

Code: Seleccionar todo

cat hola.txt | gpg -ac --no-options

Con esto obtengo la información que contiene hola.txt en pantalla pero encriptada, se que se puede hacer directamente ingresando el archivo dentro del comando "gpg" pero quisiera saber si alguno se le ocurre para emular el comando que ingrese anteriormente, sin usar el típico:
system("cat hola.txt | gpg -ac --no-options");.
SAludos.

Hola a todos:

Estoy utilizando el módulo LibXML, y no encuentro el modo de reemplazar el contenido de un nodo. Tengo:

<tokens>
<w id="w1" tokentype="HAS_MAI">
<anbtal talde_zenb="13">
<tamaina>002</tamaina>
<C>1</C>
<X>0</X>
<GALD>0</GALD>
</anbtal>
</w>
...
</tokens>

Y si hago (teniento en $contenido = "XXX"):

...
foreach my $anbtal ($word->findnodes("anbtal")){
foreach my $correct ($anbtal->findnodes("C")){
$correct->appendText($contenido);
}
}

Obtengo que el nodo "C" cambia a "1XXX":

<tokens>
<w id="w1" tokentype="HAS_MAI">
<anbtal talde_zenb="13">
<tamaina>002</tamaina>
<C>1XXX</C>
<X>0</X>
<GALD>0</GALD>
</anbtal>
</w> ...