Foro - Perl en Español

Se acaba de publicar la primera versión (v0.0.1) de mop, un nuevo sistema de programación orientada a objetos, para Perl 5.

La intención es probarlo, dar sugerencias, avisar de errores... para que en el futuro forme parte del núcleo principal de Perl.

use mop;

class Point {
has $!x is ro = 0;
has $!y is ro = 0;

method clear {
($!x, $!y) = (0, 0);
}
}

class Point3D extends Point { ...

Bueno, jamás usé Linux ni consola para instalar módulo, pero ahora Perl me hace quedar mal. En Windows no tuve problemas para hacer correr mis módulos, pero ahora entro a una consola de Linux escribo:

cpan Date::Calc

pero siempre que intento instalar un modulo me toca instalar una dependencia que se llama Test::Harness, y si le digo Yes, me pide otras dependencias como Test::More, pero luego ésta requiere de nuevo Test::Harness y por último, de ...

Hola, vengo a molestar de nuevo...

Lo que pasa es que tengo un arreglo estilo:

@nombres=('ANDRES','JAVIER','LUCIA');

Y lo que quiero es crear nuevos arreglos donde se almacenen las letras de una misma posición de todas los valores dentro del arreglo. Es decir que me queden arreglos:

@l1=('A','J','L');
@l2=('N','A','U');

y así sucesivamente...

Gracias por toda la ayuda que me puedan brindar.

Hola,

he instalado perlbrew y me he puesto a usar la versión v.15.14.4 de perl.La cosa es que con la 15.10 el módulo de xpath quedaba instalado, pero ahora no lo encuentra. Intento hacer apt-get y nada. Al probar desde CPAN me dice esto:

Running make install
make test had returned bad status, won't install without force
Failed during this command:
TODDR/XML-Parser-2.41.tar.gz : make NO
MSERGEANT/XML-XPath-1.13.tar.gz : make_test NO one dependency not OK (XML::Parser); additionally ...

Hola, aquí, aprendiendo Perl y haciendo mi primera pregunta en el foro.

¿Cómo debo interpretar los valores $fi, $fi, $fi etc., tanto para $f1 y $r1?

Agradezco su ayuda.

while(my $f1=<WF>){
$f1=$f1;
chomp($f1=<WF>);
$f1=<WF>;
chomp($f1=<WF>);
$r1=<WR>;
chomp(my $temp1=<WR>);
$r1=reverse($temp1);
$r1=~s/A/a/g;
$r1=~s/T/t/g;
$r1=~s/C/c/g;
$r1=~s/G/g/g;
$r1=~s/a/T/g;
$r1=~s/t/A/g;
$r1=~s/c/G/g;
$r1=~s/g/C/g;
$r1=<WR>;
chomp(my $temp2=<WR>);
$r1=reverse($temp2);
my $rf1=$f1.$c_60.$r1;
chomp($f1);
print FILE "$f1 $rf1\n";
}

Buenos días. Saludos a toda la comunidad.

Estoy recien desarrollando mi primer programa en Perl, el cual es un pequeño robot que se ejecutará a través de un cronjob.

Este robot debe hacer lo siguiente:

1. Abrir un archivo txt llamado bandera
2. Leer el valor de la primera posición de texto que está dentro del archivo
3. Si el valor es 1 entonces se debe cambiar en el archivo el valor a 0, ...

Muy buenas, compañeros...

He estado intentando substraer un string de uno bastante mayor mediante expresiones regulares. Únicamente he conseguido contar cuántas veces aparece éste, pero no consigo hacer algo así como pushearlo dentro de un array...

if (($tmp=~m/\+*/)||($tmp=~m/\-*/)){
$countinsertion =()= $tmp =~ m/\+*/g;
$countdeletion =()= $tmp =~ m/\-*/g;
}

Sería genial si pudiese implementar la función del grep -o '+**' de UNIX dentro de mi script, aunque tengo entendido que "programáticamente" no esta ...

Tengo que consumir un webservice y uso SOAP-Lite con un WSDL, pero cuando llamo el método utilizando el modo debug el soaplite me construye el siguiente xml:
<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope soap:encodingStyle="http://
schemas.xmlsoap.org/soap/encoding/" xmlns:http="http://schemas.xmlsoap.org/wsdl/
http/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:s="http://www.w3
.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:so
ap12="http://schemas.xmlsoap.org/wsdl/soap12/" xmlns:soapenc="http://schemas.xml
soap.org/soap/encoding/" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/"
xmlns:tns="http://www.achcolombia.com.co/PSEHostingWS" xmlns:wsdl="http://schem
as.xmlsoap.org/wsdl/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<soap:Body>
<tns:getTransactionInformationHosting>
<ticketOfficeID xsi:type="s:int">66</ticketOfficeID>
<password xsi:type="s:string">vesta123</password>
<paymentID xsi:type="s:string">1234</paymentID>
</tns:getTransactionInformationHosting>
</soap:Body>
</soap:Envelope>

Yo esperaría que me creara algo como esto que está en la especificación:
<soap:Envelope ...

Quiero bajar el enlace de un torrent como este:

magnet:?xt=urn:btih:81f7aff44e1e232442c175c8e0aa9fa01916c77e&dn=The+Best+Of+Blur+%28sidthefish%29&tr=udp%3A%2F%2Ftracker.openbittorrent.com%3A80&tr=udp%3A%2F%2Ftracker.publicbt.com%3A80&tr=udp%3A%2F%2Ftracker.istole.it%3A6969&tr=udp%3A%2F%2Ftracker.ccc.de%3A80&tr=udp%3A%2F%2Fopen.demonii.com%3A1337

pero no tengo idea de cómo usar el módulo LWP::Useragent para hacer esto.

¿ Cómo tendría que hacerlo ?

Buenas tardes,

Estoy usando Strawberry que ejecuta un .pl ya lo probé en la línea de comandos de Windows y ejecuta perfectamente. Pero necesito que ejecute por medio de Apache, de un sitio web. ¿Cómo se vinculan o cómo configuro Strawberry para que se conecte con Apache? Apache lo tomo de XAMPP.

Si me pudieran ayudar se los agradecería mucho. Saludos :)