Foro - Perl en Español

Tengo el siguiente código:

#!usr/bin/perl
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd


use LWP::UserAgent;
use Crypt::SSLeay;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

my $code = tomar("https://anonfiles.com/api?plain",{"file"=>"test.txt"});

print $code;

sub toma {
return $nave->get($_)->content;
}

sub tomar {
my ( $web, $var ) = @_;
return $nave->post( $web, )->content;
}

#The End ?

Y me devuelve esto :

No input file ...

¡Buenas!

Estoy haciendo un programa en el cual, a partir de un elemento de una matriz, quiero saber la suma de los elementos de su alrededor para, a partir de ella, determinar unas condiciones, todo ello, imprimido en un documento .txt.

Yo creo que fallan las subrutinas, ya que no me las imprime.
Esto es lo que tengo hasta ahora:
@fila0=(0,0,0,0,0,0);
@fila1=(0,1,0,1,1,0);
@fila2=(0,1,1,0,0,0);
@fila3=(0,1,1,0,1,0);
@fila4=(0,1,0,1,1,0);
@fila5=(0,0,0,0,0,0);
$nombre="vida.txt";

open(AA,">$nombre") || die "cannot open the file: ...

No sé qué poner como título porque realmente no sé por qué no funciona el programa, más bien por qué no se ejecuta correctamente. Mi intención es que el bucle se repita mientras se introduzca un valor no válido, es decir: distinto de 'a', 'g', 'c' o 't'. Y haciendo diversos cambios lo único que hemos conseguido es: o que el primer dato introducido no lo reconozca como válido aunque lo sea, y el segundo ...

Buenas,

Soy usuario de Linux y hasta ahora para saber el tiempo de ejecución de un script usaba el propio comando time, pero encontré una forma en perl de poderlo ver y tratar mejor.

El problema es que solo me muestra la cantidad de tiempo en segundos. ¿Se puede conseguir alguna forma de que aparezca en formato hh:mm:ss el tiempo de ejecución?

Ejemplo del script:

use Time::HiRes qw( time );

my $start = ...

Hola, gente. Consulta: tengo dos ficheros txt. Los junto. Luego quiero añadir una primera fila en el nuevo fichero con el nombre de Canarias Finisterre. Me parece que el código queda demasiado largo, y tampoco me quedan alienadas las columnas con el nombre que añado en cada una de ellas.

Cada fichero original contiene una columna de 4 números:
0.57
0.70
0.90
1.15

El resultado:
Canarias Finisterre
0.87 0.57
0.87 0.70
0.85 0.90
0.80 1.15 ...

Estoy usando Strawberry Perl :D

Gracias.

Hola, aquí paro de nuevo.

Tengo una parte de código que quiero convertir en subprograma, es ésta:

my $ADI = 0;
my @array = ('"wid="w1"', 'wid="w2"');
my $lerroADI= 'wid="w1"';
for my $ADIa (@array) {
if ($lerroADI eq $ADIa) {

$ADI=1;
last;
}
}
print "$ADI";


Lo primero es que no me devuelve nunca "1", siempre "0", aunque como se puede ver en el array sí que está wid="w1".

La otra y no ...

Mi duda: ¿Es posible ordenar de manera alfabética los datos contenidos en un archivo TXT mediante Perl?

Tengo un archivo TXT, contiene miles de enlaces de distintos sitios y quiero ordenarlos alfabéticamente mediante un script en Perl.

No quiero código. Solo quiero saber si es posible.

Gracias. :D

Buen día,

Aquí expongo mi duda, ya que tengo un archivo que tengo que correr por semana para acceder a una página web, pero cambiaron la forma de acceso. Yo no hice el script ya que apenas ando empezando en aprender Perl. Bueno, aquí anexo mi duda...

Este es el script que tengo para acceder la parte del login:

#!/usr/bin/perl
use strict;
use Spreadsheet::WriteExcel;
use Win32::IEAutomation;
use Win32::IEAutomation::WinClicker;
use Win32::IEAutomation::Table;
use DBI;
use Data::Dump qw(dump); ...

Quiero que el programa me pida un número (por ejemplo, 3) y luego me pida ese número de valores para ese número de arrays (3 arrays de 3 elementos cada uno). He intentado hacerlo con un contador ($n) y llamando al array @($n) pero me da error.

Muchas gracias