Foro - Perl en Español

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

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

:shock: hola amigos :) ..alguien podría explicarme como configurar mi host para que interprete los .pl?.he intentado y he pasado la tarde intentándolo de todas las formas y no lo logro, los logs dicen esto:

Code: Seleccionar todo

[2006-11-10 15:59:50]: error: file is writable by others: (/srv/home/hanleth/public_html/cgi-bin/perl.pl)
[2006-11-10 15:59:10]: error: file has no execute permission: (/srv/home/hanleth/public_html/cgi-bin/perl.pl)

aun, habiendo colocado scripts con 755, ...

¿Cómo se configura el mod_perl en el Apache? ¿Alguien sabe cómo hacerlo?

:( hola soy nuevo... aprendiendo Perl... apenas tengo 2 días... ya tengo mi Perl localmente y estoy probando mis scripts... etc... ¿Alguien puede recomendarme un libro?

Y ahora sí la pregunta... ¿cómo puedo imprimir en el navegador el contenido total o un elemento de una array...? porque lo he intentado así... pero no funciona...

#!C:\perl\bin\perl.exe -w # :por que aquí se pone un "-w"? eso que indica? ...