Foro - Perl en Español

Buenas me gustaría saber si conocen un buen tutorial en español o que ustedes mismos me expliquen como es el manejo de un tpage y de un ttree, lo que pasa es que intente realizar una pero este no me funciona y no se por qué, también lo que he leído me indica que debo guardar en templat.tt en una carpeta de Perl pero no me indica cual.
Gracias por la ayuda que me puedan ...

hola a todos...

resulta que estoy extrayendo valores de un fichero de configuración de formato:

Code: Seleccionar todo

nombre1 = cadena1
nombre2 = cadena2
......


tengo el siguiente código.

while (<LOG>) {
chomp;
next if !/^\s*(\w+)\s*=\s*(\w+\w)\s*$/;
$var{$1} = $2;
}
este me funciona... PEROOOOO si una de las cadenas tiene un punto (.) ya no me lo toma.... ¿¿¿ cómo podría modificar la linea de la expresión regular para poder obtener el valor ???

Gracias por ...

Por favor si alguno tuviera un ejemplo de cómo utilizar esta librería exactamente en este ejemplo:

use XML::CSV;
$csvo = XML::CSV->new();
$csvo->{column_heading} = \@arr_of_headings;
$csvo->parse_doc("A.csv");
$csvo->print_xml("Z.xml", {format => " ", file_tag = "x.xml", parent_tag => "alfa"});

me sale un error :

Code: Seleccionar todo

Can't modify constant item in scalar assignment at arch.pl line 5, near "x.xml","

Hola Amigos Perlianos :

Estoy batallando un poquito al tratar de recibir datos en XML dentro de un script en Perl y estoy un poco confundido.

Estoy utilizando XML::Simple, con la instrucción XLMin();

Mi Script es el siguiente :

use strict;
print "Content-type:text/html\n\n";
use XML::Simple;

$xml = new XML::Simple ();
$reservas = $xml->XMLin();

$action = $reservas->{action};
$propid = $reservas->{PropertyID};
$propname = $reservas->{PropertyName};
$chaincode = $reservas->{ChainCode};

# ... y asi sucesivamente armo la estructura de datos ...

¡¡Hola a todos!!

Estoy teniendo un problema en un código muy simple, y es tan simple que no puede encontrar el error por lo cual no puede compilarse...

Estoy tratando de encontrar una línea dentro del archivo de configuración del Apache...

el código es el siguiente:

#!/usr/bin/perl -w

$dominio="dominio.com.ar";
$archivo="/root/httpd.conf.bk";
$servername="ServerAlias $dominio";

open(APACHE,"$archivo");

while(<APACHE>)
{
$linea=_$;
if( "$linea" eq "$servername" )
{
print "La línea está";
}
}
close (APACHE)

Y los errores que me ...

Saludos a todos y un millón de gracias por existir este sitio, necesito seleccionar una fecha y sólo encontré DatePick, pero yo necesito algo que se vea con un almanaque, es sólo para seleccionar la fecha de nacimiento de una persona y guardarlo en un campo de la base de datos que ya esta creada o en su defecto imprimirlo por pantalla. ¿Hay algún widget que lo haga? Estoy trabajando con Perl-Tk.

Gracias........ ...

¿Alguien ha usado Catalyst?, ¿como se trabaja con él?, ¿qué necesito para usarlo?, ¿para qué me sirve?

P.d: he leído algo acerca de ello y aun continúo documentandome... pero hago este post para conocer la opinión de ustedes... salu2 y gracias. :wink:

Estimados :lol: ,

Tengo una necesidad de poder subir mediante FTP varios archivos ( más de 90 ). Lo estaba haciendo estos pasados meses empaquetando los 90 archivos mediante el TAR y luego los comprimía con el Gzip. De este modo terminaba subiendo por FTP un archivo del tipo : backup.tar.gz.

Ahora mi necesidad ha cambiado ya que tengo que subirlos a un Servidor de Windows y ...

Hola. He estado pensando en lo siguiente: digamos que tengo "mi servidor de correo" al cual me conecto a través del navegador:

http://x.com:2095/

que a veces me redirecciona a este

http://x.com:2095/webmaillogout.cgi

aunque esta opción ya casi no me gusta... al entrar, al ingresar abre el típico cuadro de dialogo que ya conocemos pidiéndome mi user y pasword, luego de ingresar correctamente los datos ...

Estoy implementando un WebService mediante uddi+wsdl . Una vez creado el WSDL procedo a registrar el tModel en el registro UDDI. Para ello, hago lo siguiente:

# ...
$self->{uddiinq} = UDDI::Lite->new(
uri => "urn:uddi-org:api_v2",
proxy => "http://$servidor:$puerto/juddi/inquiry",
readable => 1 );
# ...

my $uddiinq = $self->{uddiinq};
# ...

my $tM = UDDI::Data->name("tModel");
$tM->attr({tModelKey => ""});
$tM->value();

$resp = $uddipub->save_tModel( authInfo => $authtoken, ...