Foro - Perl en Español

Saludos a todos: Tengo 365 archivos .dat que quiero unirnos a todos en un nuevo archivo .dat. Hice el siguiente programa:

#!/usr/bin/perl

my $data= </home/lis/Desktop/DATOS/datos_met_paranal.dat/200*>;# es la ruta donde estan todos los archivos .dat

open (DATA, "<$data");
open (TODOS,">todos.dat");

while ($lineas=<DATA>) {
chop($lineas);
@datos=split(" ",$lineas);
print TODOS "@datos\n";
}

Lo único que me hace este programa es guardar el primer archivo .dat y no los 365. ...

Buenas, disculpenme por la molestia. Gracias digo y soy grato.

Resulta que estoy queriendo hacer una búsqueda en cualquier sitio, ya sea en Google, Yahoo, Live, etc., pero de una manera sencilla que use módulos HTTP::Request::Common qw(POST) y LWP::UserAgent sin usar WWW:Search (es porque tuve problemas con este último).

Mi idea es hacer por el método POST (enviando dato de búsqueda) y como producto el resultado devuelto que luego lo filtraré.

Buscando, tratando de montar ...

Hola, buen día.

¿Podrían ustedes decirme si yo puedo crear un nuevo archivo en Perl que tenga dos archivos fuentes?

¿Pudiendo seleccionar de cada uno los datos que se necesitan y escribirlos en el programa final en un formato dado?

Muchas Gracias

Hasta Luego

Estoy usando CGI::Ajax en una aplicación donde lleno un combo de datos obtenidos de una consulta a Mysql. El problema radica en que los datos que devuelve Ajax para llenar el combo, cuando éstos son palabras acentuadas, por ejemplo, NO las respeta como tales y les anexa caracteres RAROS.

¿Cómo podría hacer para que los datos devueltos sean del mismo formato almacenado en la base de datos?

¡¡¡¡ Muchas gracias !!!!

Buen día, perleros, ando algo atorado con un programa. Sé que es algo muy básico, pero ando algo bloqueado y me gustaría saber su opinión y si me pueden dar algún tip. Se los agradecería. :)

Mi primer duda es: tengo esta parte en mi programa:foreach $x (@resultado)
{
print "$x\n";
open (dir, ">>$h.txt");
print dir "$h=$x\n";
close(dir);
}

En donde $h = "fecha" y donde @resultado ...

Hola, amigos.

Les hago notar la existencia del módulo XML::Bare.

Se trata de un programa que puede interpretar código XML a una gran velocidad, usando una librería externa escrita en C++.

En la misma página de manual se indican sus prestaciones en cuanto a tiempos de lectura e interpretación comparadas con otros módulos XML:
-Module- load parse total
XML::Bare 1 1 1
XML::TreePP 2.3063 33.1776 6.1598
XML::Parser::EasyTree 4.9405 25.7278 7.4571
XML::Handler::Trees 7.2303 26.5688 9.6447 ...

Hola soy nuevo usando Perl y el asunto es que tengo que hacer un programita que me convierta un archivo XML en un archivo TXT. Estuve viéndolo hacer con Java, pero al parecer con Perl es mucho más sencillo; sin embargo, estoy atascado en varios puntos.

Primero que todo el archivo XML es muy sencillo, a continuación muestro como es:
<?xml version="1.0" encoding="UTF-8"?>
<datos xsi:noNamespaceSchemaLocation="D:\Work\prueba.xsd" opr="0">
<letra>V</letra>
<cedula>123</cedula>
<PNombre>nombre</PNombre>
<SNombre>Segundo Nombre</SNombre>
<PApellido>apellido</PApellido>
<FechaNac>1980-07-25</FechaNac>
<FechaCedOrg>2005-03-31</FechaCedOrg>
<CodObjecion>00</CodObjecion> ...

Hola a todos,

Tengo que hacer uso de un servicio web que solo recibe un dato; este dato está definido en el WSDL como string y tiene formato xml.

El problema es que a pesar de haber repasado el guión xml a pasar y los datos con la persona que lleva el server siempre me retorna el mismo error.

Este es más o menos el error que me sale con el Data::Dumper y CGI::Carp qw(carpout): ...

Hola, tengo un daemon HTTP hecho en Perl que funciona de 10... pero hay algo que funciona bien y no se por qué :? Se las hago fácil:

Creo un server con my $server = IO::Socket::INET->new(...)

Tengo un bucle para las conexiones while ($client = $server->accept()){...}continue{} que las trata con FORK...

Y luego del bucle coloco el código para cuando se termine (que pensaba controlar con una ...

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 ...