Foro - Perl en Español

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

Mi pregunta es sencilla.

Necesitaría saber si hay alguna manera de conocer qué módulos están instalados en el servidor web.

Te comento: yo trabajo con Linux y los servidores están con las "Ventanitas". Estoy haciendo algunas pruebas para aplicaciones internas con CGI-Perl y la relación con Windowseros que administran no es la mejor. Ahora bien, armo los scripts (localmente) y luego trato de correrlos en el servidor y explota todo ...

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

No sé si es la sección adecuada aunque espero que así sea.

Estoy intentando utilizar la API de Windows a través del módulo Win32::API. Sé que no funciona con todas las funciones de la API pero por si acaso...

Ejecuto la siguiente instrucción con el fin de obtener el LUID del sistema:
$prueba = Win32::API-> new("advapi32.dll", "AllocateLocallyUniqueId", P);
print "prueba: $prueba\n";
y el resultado, es el siguiente:
prueba: Win32::API=HASH(0x16261b0)

Una duda es: ...

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 muy buenas, estoy haciendo una aplicación no web y estoy utilizando la librería Gtk2 para hacer las interfaces gráficas. Me he leído algún tutorial de esta librería, y tengo algún problemilla en este código:

$entrada = Gtk2::Entry->new;
$entrada = Gtk2::Entry->new_with_max_length(40);
$texto = $entrada->get_text;
$boton = Gtk2::Button->new('Buscar');
$boton->signal_connect('clicked' => sub {&busqueda_parrafo_mas($texto); });

Pensaba que con la linea( $texto = $entrada->get_text;) recogía lo que el usuario introducía por pantalla, ya que luego quiero ...

Hola, estoy haciendo una aplicación no web con Gtk2 y uso
use Gtk2 '-init';

Como habéis podido ver no soy muy entendida en esto y ahora me ha surgido el problema de que quiero que mi aplicación le dé al usuario la posibilidad de cargar una carpeta para que pueda hacer su trabajo.

Quiero hacer lo típico de un cuadradito con un botón al lado que pone "browse" y te sale en el cuadradito ...