Foro - Perl en Español

Hola.

He estado intentando hacer lo siguiente:

Tengo una IP: (192.168.40.2)

Y con una expresión regular quiero obtener (192.168.40)

Lo que logré fue extraer los 4 bloques por separado y concatenar lo que me interesaba. Pero es un código muy rebuscado. Sé que no es el correcto.
Cualquier orientación o idea es agradecida.

Saludos.

Hola, estoy haciendo un script que guarde dos archivos llamados

c:/hola1.txt
c:/hola2.txt

Quiero crear un zip y crear dos carpetas en él mismo, llamadas saludo1 y saludo2 pero me surge un problema al no saber cómo copiar los hola1 y hola2 a las carpetas saludo*

¿Alguien me podría ayudar?

Hola. Tengo el siguiente código.

use Net::Whois::Raw;

$ip = "127.0.0.1";

print "\n\n";
print "\t\tExtrayendo info de $ip\t\t\n\n";


$dominfo = whois('perl.com');
($dominfo, $whois_server) = whois('funet.fi');
$reginfo = whois('REGRU-REG-RIPN', 'whois.ripn.net');

$arrayref = get_whois("$ip", undef, 'QRY_ALL');
$text = get_whois("$ip", undef, 'QRY_LAST');
my $hola = ($text, $srv) = get_whois("$ip", undef, 'QRY_FIRST');


print $reginfo;
print $text;
print $arrayref;

print "\n";
print "Good Bye\n\n";
exit 1;

Y me tira un error: Undefined subroutine utf8::SWASHGET ¿Alguien me explica cómo hago para ...

Hola a todos.

Tengo un archivo de texto, llamese "file.txt", con el siguiente contenido:
1234#
blablabalbalb
blablablabl
balblabl
#
456546#
blablabalbalb
blablablabl
balblabl
#
45646#
blablabalbalb
blablablabl
balblabl
#
46456#
blablabalbalb
blablablabl
balblabl
#


¿Como puedo borrar la línea desde el numero hasta el segundo delimitador '#'?, por ejemplo, borrar esto.

45646#
blablabalbalb
blablablabl
balblabl
#


He intentado resolverlo por medio de archivo por lotes .bat, pero no he tenido exito, ...

Hola amigos del foro: tengo archivos $altura.txt que tiene lo siguiente:

20080119 1000 0.0 24.80 21.19
20080120 1000 0.0 25.23 20.95
20080121 1000 0.0 24.76 21.31
20080122 1000 0.0 24.85 20.83
20080123 1000 0.0 24.69 19.92
20080124 1000 0.0 24.23 20.79
20080125 1000 20.2 23.46 21.18
20080126 1000 20.0 23.55 20.90
20080127 1000 16.4 24.02 19.97
20080128 1000 19.4 23.35 19.03
20080130 1000 18.4 23.04 19.54
20080131 1000 18.4 22.66 19.38
20080201 1000 17.8 22.35 ...

Hola, después de unas largas y muy largas vacaciones he vuelto a Perl, de donde no me he debí de ir, jajaja.

Un compañero de trabajo y yo estamos tratando de optimizar un script ya que consume mucha CPU pero no memoria. Disponemos de un equipo con una Intel Core Duo y 2Gb de RAM, y de RAM no consume más de 32mb. Necesitamos CPU para otros procesos, sobre todo para la BD que está ...

Hola,
Quisiera saber si es posible delimitar una cadena por medio de dos palabras, por ejemplo, dada la siguiente cadena imprimir solo lo que se encuentra entre las palabras "aqui" y "fin":

Lo que aqui se muestra no se debe de imprimir, pero lo que aqui se muestra si se debe de imprimir fin pero esto de aqui tampoco y esto de aquí también se deberá imprimir fin

De tal manera que lo que el ...

¡Hola!
Buenas,

Tengo dos preguntas que me gustaría saber si alguien puede ayudarme,

1) Tengo un script de Perl que despliega una GUI hecha con Win32::GUI y WIN32::GUI:Grid; en uno de los procesos estoy utilizando un ciclo infinito que va más o menos así:

while (1) {
if (condicion) {
$Grid->Refresh();
} else {
...
}
}

Como ven, dentro del if() estoy haciendo un $Grid->Refresh() para redibujar todas las celdas del Grid, pero no ...

Hola,
Podrían decirme qué significa el error
"Inappropriate ioctl for device"
y el warning " Bad file descriptor"

Gracias de antemano
Leo21

Amigos, seguro esta respuesta es muy fácil, pero no puedo resolverla; ayuda por favor:

El problema es contar cuántas líneas reúnen cierta condición, es decir, revisar en cuántas se cumple la condición "$ID eq $gift" y darme una cifra. Yo lo he hecho así, pero no creo que esté bien. Ayuda por favor. Gracias.

open(IN,"$gift_certificate_file");
while (<IN>) {
chomp;
@gift = split(/&&/,$_);
if ($ID eq $gift) {
$contador == 1;
}
$contador++;
}
close ...