Foro - Perl en Español

Bueno, me gustaría saber cómo hago para que el usuario puede asignar un valor a la variable, no sé si me explico bien, pero lo que digo es que se pueda hacer esto:

#fragmento de una calculadora basica que hize en python
if operacion == '+': #realiza operacion de suma
resultado = numeroA + numeroB
numeroA = float (raw_input('Tecle un numero : '))
numeroB = float (raw_input('Teclea otro numero: '))
En este código el usuario ...

¡Hola, amigos...!

La duda que tengo es superbásica... tengo dos script en Perl: script1.pl y script2.pl; y necesito llamar al script1.pl dentro del script2.pl y obtener el valor que me retorna el script1.pl dentro del script2.pl...

¿Alguna idea? he andado buscando por aquí... pero creo que la duda es tan básica que todos la saben... y por eso nadie pregunta... :S ¡Ayuda!

¡Hola!

Tengo un cgi que sube un archivo al server... jala muy bien, pero el problema es que necesito que suba varios archivos, es decir, yo selecciono con múltiples input file y sube todos al servidor y los graba en el server... ahorita está así, el form que llama al cgi:

<?php
// funcion que crea o revisa que una carpeta este generada dentro del servidor.
function mkdir_recursiva($path, $mode) {
is_dir(dirname($path)) || mkdir_recursiva(dirname($path), $mode);
return ...

Hola a todos:

Tengo que hacer un pequeño trabajo con el módulo LibXML; es una cuestión muy simple, a ver si alguien me puede echar una manita...

Tengo un fichero XML de la forma:

<?xml version="1.0" encoding="iso-8859-1"?>
<tokens>
<w id="w1" tokentype="DEN_MAI">
<forma>MARIA</forma>
<anbtal num_grupo="5664">
<tamaina>006</tamaina>
</anbtal>
<ana>
<lema>Maria</lema>
<kat>IZE</kat>
<azp>IZB</azp>
</ana>
</w>
<w id ="w2">
...

Para utilizar LibXML, creo un parser y leo el fichero:

#!/usr/local/bin/perl
use XML::LibXML;
use strict;

my $parser = XML::LibXML->new(); ...

Hola a todos, mi problema es el siguiente: ocupo la ecuación de la distancia entre dos puntos:
$d = ((x2-x1)^2+(y2-y1)^2)^1/2
y quiero saber la distancia de cuatro puntos con respecto a uno y obtengo lo siguiente:

$d1=1.12712022428843
$d2=1.23810338825157
$d3=0.576974869470063
$d4=0.771621668954421

Y quiero elegir el menor de ellos con un Perl script.

Ayúdenme porfis, gracias...

Buen día, Perleros, tengo una duda y es que yo tengo mi programa ssh.pl.

Al momento de correrlo me dice:

Can't locate Net/SFTP.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at ssh.pl line 3.
BEGIN failed--compilation aborted at ssh.pl line 3.

Doy por hecho que no está instalado así que entro en -MCPAN -e shell; para dar un install, al Net:SFTP, pero al final cuando hace el test me ...

Hola, quisiera saber que tipo de cabecera ("content-type:.....") tendría que usar para imprimir un XML sin que interesen los signos que ahí dentro de las etiquetas, por ejemplo si pongo:
<link>www.yo.com.ar?nosotros=5&ellos=6</link>

EL & es el problema, cuando quiero mostrar la vista del xml, no me aparecen los item que en el <link> tenían un &.

¿Saben de alguna cabecera que pueda usar para corregir esto? Yo probé con text/xml, pero el resultado es el mismo. ...

Tengo el siguiente XML, el cual me gustaria parsear con perl y que me de los resultados en pantalla.
Estoy tratando de usar XML::Simple pero la verdad que no obtengo un resultado :?

<?xml version="1.0"?>
<owner>
<technology name="test">
<owner>
<pc>
<name>marcos</name>
<url>https://10.1.1.1</url>
<ip>10.1.1.1</ip>
<user name="admin"><password>123</password><date>20080101</date></user>
<user name="root"><password>123</password><date>20080101</date></user>
<notes>test</notes>
</pc>
<pc>
<name>marcos2</name>
<url>https://10.2.2.2</url>
<ip>10.2.2.2</ip>
<user name="root"><password>asd</password><date>20080102</date></user>
<notes>testno/notes>
</pc>
</technology>
</owner>

Gracias

¡¡Buenos días!!!

Tengo una duda... Estoy trabajando en un proyecto en el framework de Symfony y tengo que llamar a un script en Perl para que ejecute una opción... pero no sé cómo hacerlo, estuve leyendo en algunos foros... pero pocos tienen alguna solución a esta duda... no sé si pueda usar el comando shell_exec()... pero hice la prueba... ¡pero no me lo ejecuta...!

Alguna sugerencia... ¡Cualquiera es bienvenida...!

¡Gracias de antemano!

Hola a todos,

Tengo un problema con una expresión regular.

En $input, tengo una cadena de elementos separados por el carácter coma (,). De hecho se trata de un fichero .csv (comma separated value).

El problema es que desconozco el número de elementos.

Lo que pretendo es crear una expresión regular que me permita leer dicho fichero línea por línea (todas las líneas del fichero tienen el mismo número de columnas) y recuperar los elementos ...