Foro - Perl en Español

Hola.

¿Se os ocurre alguna forma de conocer qué ficheros están en uso y que ficheros no?
Para Windows.

Muchas gracias.

Un saludo,
Ricar.

Hola a todos.

¿Alguien sabe cómo calcular un hash (sha-1) de un fichero? Por ejemplo, de un ejecutable del sistema (.exe).

Muchas gracias.

Un saludo,
Ricar.

Hola a todos. Tengo un problema con este código y me gustaría si me podéis ayudar a modificarle o hacerlo lo que sea para cuando se ponga un texto largo por ejemplo de 100 caracteres salgan en 2 líneas o más líneas no en una línea sola, muchas gracias a todos y buen foro.

on 1:TEXT:!topic:#:{
if (!%topic. [ $+ ]) { describe # $nick -> No topic set. }
else { ...

Estimados,
Los molesto porque quiero tratar de obtener los métodos soportados por un servidor web, pero no sé cómo hacerlo con Perl.

Desde una línea de comandos hago:
telnet perlenespanol.com 80
Trying 67.222.152.26...
Connected to perlenespanol.com.
Escape character is '^]'.
OPTIONS / HTTP/1.1
Host: perlenespanol.com

Obtengo:
HTTP/1.1 200 OK
Date: Mon, 02 Aug 2010 02:45:58 GMT
Server: Apache/2.0.63 (Unix) mod_ssl/2.0.63 OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4 FrontPage/5.0.2.2635
Allow: GET,HEAD,POST,OPTIONS,TRACE
Content-Length: 0
Content-Type: text/html

Como verán me muestra los ...

Hola:

El problema que tengo es que no sé por qué razón el programa no entra al while() que lee un archivo de texto.

Mi código es el siguiente:
my @titulo;
for(my $t=0; $t<$close;$t++){
my $destructinador=$outputs_R;
next if ! -f $destructinador;
my $armainador=$nombres_R;
open(DERECHO, "$destructinador")|| die "Error al abrir DERECHO $destructinador: $!\n \n";
open(IZQUIERDO, "$opts{o}/$armainador")|| die "Error al abrir IZQUIERDO $armainador: $!\n \n";
open(COMPLETO, ">$opts{o}/$armainador")|| die "Error al abrir COMPLETO $armainador: $!\n \n";
my ...

Estoy buscando una rutina que me permita obtener el usuario Windows (por allí me dijeron que probara con WIN32::OLE).

Si alguien tiene alguna solución u/o idea de cómo solucionarlo. ¿Me lo puede explicar?

Hola, perdonad si no escribo en el sitio adecuado pero no sabía dónde ponerlo.

¿Conocéis algún ofuscador de Perl online que funcione?

He probado el de http://www.jimworld.com/tools/perl-encrypt/ pero parece que ya no está operativo. También probé uno de una página verde y negra que no recuerdo que parecía que funcionaba pero al ejecutar el script petaba por todos lados.

Digo online porque utilizo Mac OS y no conozco ninguno en ese SO. Muchas Gracias

Hola de nuevo a todos.

Esta vez me gustaría saber si alguien ha entrado en la aventura de leer un documento ooxml de Excel. Yo lo estoy intentando con unas librerías que encontré en un post (Archive::Zip y XML::Twig).

Leyendo por ahí encontré que si se renombra un archivo .xlsx a .zip obtienes una estructura de archivos y es por eso lo de la librería para archivos zip.

Gracias de antemano.

Buenas tardes,

resulta que necesito realizar una conexión por SSH y he intentado hacerlo de todas las formas y no me ha funcionado. La idea es conectarme a un switch pero no he podido. Con la conexión telnet sí me ha funcionado, como lo muestro a continuación.

use Net::Telnet;
use Sys::Hostname;

system("cls");
$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die');
$telnet->open ('172.30.96.19');
$telnet->waitfor('/Username:/i');
$telnet->print('admin');
$telnet->waitfor('/password:/i');
$telnet->print('*********');
$telnet->waitfor('/\login/i');
$telnet->print('tftp 172.30.100.5 put 3comoscfg.cfg BkGY_172_30_96_19.txt');
sleep(10);
$telnet->print ('exit'); ...

Bienvenido a los foros de Perl en Español, LnxHg.

Con el módulo Spreadsheet::WriteExcel puedes definir rangos de celdas combinadas con la función merge_range().