Foro - Perl en Español

Hola a todos, espero me puedan ayudar porque no sé porque no
se conecta.

Gracias de antemano.


Síntoma: Al compilar los scripts de PERL con perl2exe (IndigoStar) que usan la librería Net::SSH::W32Perl, los ejecutables no funcionan.

(Mandan mensaje de 'No provider available')
El script s establece la conexión y retorna resultados, pero el
ejecutable no.


Salida:

D:\ISAP-6.2\Source\Work>ssh_test
W2LZDXRR01: Reading configuration data /.ssh/config
W2LZDXRR01: Reading configuration data /etc/ssh_config
W2LZDXRR01: Connecting to 199.228.23.169, port 22.
W2LZDXRR01: Socket ...

He leido los tutoriales sobre gráficos de la página y de CPAN (los de GDGraph) y no he encontrado lo que solucione mi problema. Deseo crear un gráfico donde los datos del eje X no se encuentren equiespaciados, sino que los datos correspondan a puntos reales, es decir que el eje X sea numérico. He probado colocando x_tick_number => 'auto'. Pero no es una muy buena solución. Existe algun módulo que permita hacer gráficos con ...

Hola, espero que me puedan ayudar

Tengo una variable referenciada "$all_details" que es un hash de arreglos de hashes, al hacer un print Dumper obtengo
lo que aparece mas abajo.. ("Se ve mas claro al ver el codigo fuente del Dumper")

Como puedo recorrer esto, de tal forma de ir obteniendo los valores finales ?
un dato.. es que tengo un arreglo con todos los indices, en este caso:


foreach $code (keys %{$codes}) { ...

Hola
El problema es que estoy haciendo un script que llame a una url y le envie unos datos, funcionar funciona, pero el problema es cuando algunos de los datos que envio lleva un espacio, es decir si mando una variable con espacios no se me envian. Este es el codigo que estoy utilizando

Code: Seleccionar todo

$parametros_llamada="variable=sirwallo envia datos"
my $req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content($parametros_llamada);
my $response_web = $ua->request($req);
my $content_xml = $response_web->content();


...

Hola,

Mi compañera y yo venimos leyendo diversa información de este foro y aún no nos queda claro.

Decidimos seguir este tutorial http://perlenespanol.com/archives-tut/000066.html

Creando gráfico de Barras:
#!/usr/bin/perl -w

use strict;
use CGI ':standard';
use GD::Graph::bars;

my @campos = ('Mar 2006','Abr 2006','May 2006', 'Jun 2006', 'Jul 2006');
my @valores = ('547','2282','2798','2354','4326');
my @graf = (\@campos, \@valores);

my $grafico = GD::Graph::bars->new(500, 300);

$grafico->set(
x_label => 'Mes',
y_label => 'Visitas Totales', ...

Hola :shock:

Quisiera ayuda acerca de poder quitar días no hábiles entre un rango de fechas, por ejemplo entre 10-Julio-2006 al 18-Julio-2006, yo debo calcular cuantos dias hay de diferencia por default seria 8 días eso si me sale bien pero de 8 días tengo que quitar el sabado y domingo que se atraviesa entre esas fechas a la vez si tambien hubiera un día festivo tambien ...

Hola
Estoy escribiendo un pequeño servicio web, este este servicio debe devolver un tipo de datos complejo definido en wsdl:

<xsd:complexType name="Mensaje_vuelta">
<xsd:element name="resultado" type="xsd:string"/>
<xsd:element name="mensaje_error" type="xsd:string"/>
</xsd:complexType>

El problema es que no se como devolver este tipo de datos desde mi servicio web (creado en perl).
He estado mirando y que para hacer esto se puede utilizar el modulo SOAP::Data::ComplexType pero el problema es que he estado viendo la documentacion de este modulo ...

Hola.
Mirando unos códigos me pregunto:
Qué es esto?

Code: Seleccionar todo

 sub print_t (*$$$) {
  #...
}

O un ``($)" antes de declaral es sub (sub pr ($) {})
O

Code: Seleccionar todo

sub usage ($;$){}

Busco y busco en internet y nada, no lo encuentro.
:shock:

Hola Perlianos:

Tengo un script que envía un mensaje SOAP a un servidor y recibo respuesta a través del Web Service; mi pregunta es:

¿Cómo puedo convertir "La Respuesta", que viene en XML a una estructura de datos en Perl? Este es mi script:

#!/usr/bin/perl
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
print "Content-Type: text/xml; charset=utf-8";

my $barco = 'ARGOSY';
my $manif = '465';
my $usuario = 'API940504EPA';
my $message = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<soap:Envelope ...

Hola a todos...

Tengo este código que me imprime lo siguiente...

Code: Seleccionar todo

@Month_name = ( "January", "February", "March", "April", "May", "June",
  "July", "August", "September", "October", "November", "December" );
( $sec, $min, $hour, $day, $month, $year ) = ( localtime ) [ 0, 1, 2, 3, 4, 5 ];

printf "%04d-%02d-%02d %02d:%02d:%02d\n", $year+1900, $month+1, $day, $hour, $min, $sec;

Imprime..... 2006-07-08 18:15:47

Aquí va la pregunta.... ¿Como podria almacenar el resultado en una variable ?? He intentado varias ...