Foro - Perl en Español

Es solo una duda básica, porque yo solo conozco esta forma de abrir un archivo y obtener todo su texto:

open(FILE,"test.txt");
my @wor = <FILE>;
close FILE;


Pero mi duda es ¿qué otras formas de abrir archivos y hacer lo mismo, solo que en vez de guardar el resultado en un array lo guarde en una variable común?

¿ Alguien sabe a lo que me refiero ?

Necesito crear un hash con la siguiente estructura


tengo1 => aca1 => "test"
aca2 => "test"
aca3 => "test
aca4 => "tipo" => "uno"
=> "tipo1" => "dos"

tengo2 => aca1 => "test"
aca2 => "test"
aca3 => "test
aca4 => "tipo" => "uno"
=> "tipo1" => "dos"


El problema es no lo quiero hecho sino que necesito entender cómo hacerlo paso a paso.

¿ Alguien me puede ayudar ?

Hola. Tengo un problema con el resultado final de mi código:

#!/usr/bin/perl

use strict;
use warnings;

use utf8;
use locale;
use open OUT => ':locale';

use Net::SSH::Expect;

my $ssh = 'Net::SSH::Expect'->new(

host => 'mihost',
password => 'contrasena',
user => 'usuario',
port => 23,
raw_pty => 1
);

my $login_output = $ssh->login();
if ( $login_output !~ /Welcome/ ) {
die "Login has failed. Login output was $login_output";
}

$ssh->exec("stty raw -iutf8");
$ssh->exec("stty raw -echo");

print ...

Estimados:

Busqué en el foro alguna forma de descargar un archivo Excel, y encontré Esto.

Lo modifico para poder descargar un .xls, ya que el .csv retorna una tabla con comas. Esto lo logro utilizando Spreadsheet::Write.

print "Content-Type:application/vnd.ms-excel; name=prueba.xls\r\n";
print "Content-Disposition: attachment; filename=prueba.xls\r\n\n";

my $aux;

open( FILE, "</tmp/prueba.xls");
while($aux=<FILE>)
{
print("$aux");
}

El problema es que no aparece nada en el archivo Excel, todo vacío. He probado montones de formas, pero nada :s. No ...

Gente,
Los molesto para consultarles si conocen algún dumper, donde yo pueda pasarle un string y que éste me entregue los resultados de pastebin.

Me hice uno con Google pero quería usar en realidad el search de Pastebin.

Saludos.

Hola, quería preguntar si había alguna posibilidad en Perl de poder
crear un array con nombre generado automáticamente.

Por ejemplo, tengo este código

for my $n (1..3) {
# ???
}

Me gustaría poder crear varios arrays con el nombre de un número. Es
solo un ejemplo, si es posible, me gustaría poder usar push() para agregar valores.

¿ Es posible hacer esto ?

Hola, estuve mirando el código de redirección para los avisos en el Squid.

La idea es implementar algo parecido pero sin tiempo_de_aviso, es decir, que cada petición que el usuario hace, mostrarle la página que solicito más el aviso. No sé si me explico. Obviamente sería dentro de un frame y demás. No sé si se podrá hacer...

Gracias.

Hola, tengo un script y lo que quisiera hacer es guardar en una variable el número de parámetros que contiene el script, y también quisiera hacer, que me mostrara por pantalla el primer y último parámetro del script.


Saludos, Zyonx

Llevo intentándolo bastante tiempo y me es imposible descargar una página HTTPS.

Esta es una de las últimas formas que he intentado, con un socket proxy:

http://search.cpan.org/~scr/LWP-Protoco ... l/socks.pm

#!/usr/local/bin/perl
use strict;
use LWP::UserAgent;

my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');
$ua->proxy( => 'socks://socks.yahoo.com:1080');
my $response = $ua->get("http://www.freebsd.org");
print $response->code,' ', $response->message,"\n";
my $response = $ua->get("https://www.microsoft.com");
print $response->code,' ...

Hola amigos del foro. Nuevamente recurro a ustedes para que me ayuden. Les cuento, tengo exactamente 347 archivos de 151x71 (extensión .dat). Tengo que concatenarlos en una matriz tridimensional por lo que quedaría así: 151x71x347. Utilizo el siguiente script de Perl "llamando" a Octave siguiendo el primer ejemplo de este link http://www.mathworks.com/products/matlab/demos.html?file=/products/demos/shipping/matlab/nddemo.html

#!/usr/bin/perl -w

my %hash;
my $i = 1;

while ($data = </home/lis/Escritorio/QS/DATOS/u/*.dat>) {

if ($i) {
$hash{$data} = $i;
}
$i++;

if ...