Foro - Perl en Español

Estimados,

Estuve mirando el tutorial de upload de archivos y quería consultarles si tienen el mismo tutorial pero para subir varios archivos.

Saludos.

Saludos, comunidad de perlenespañol. En esta oportunidad les escribo porque estoy intentando realizar una función para agregar emoticones a las cadenas antes de guardarla en la base de datos y surge un problema con mi función que no logro solucionar. Espero puedan ayudarme.


sub agregar_emoticones{
my $cadena = shift;

$cadena =~ s/:\)/<img src=\"image/emoticones/sonrisa1.png\">/g;

return $cadena;
}

Hola,

Quisiera saber si hay algun script para mostrar el país del visitante, en Perl.

Un saludo y Gracias.

Hola de nuevo. Hace un unos días trataba de eliminar nombres repetidos de un archivo que es un log, yo estoy trabajando con putty en un servidor de Linux y bueno, en sí yo tengo archivos con nombres así: named-queries.log.1. Todo esto en Linux y dentro de esos archivos tengo algo así:
(192.168.99.1)12-Nov-2012 11:30:41.600 queries: info: client 192.168.99.2#58283: query: 99.168.192.in-addr.arpa IN SOA -E (192.168.99.1)
12-Nov-2012 11:30:56.068 queries: info: client 192.168.99.2#31132: query: erickdelcastillo.com IN SOA -E ...

Hola, soy nuevo en el foro. Llevo varios meses estudiando Perl y ahora estoy empezando con Catalyst. Tengo una consulta más orientada a Debian que a Perl, pero igual les pregunto :D

Estoy estudiando el tutorial que se encuentra en la página oficial de Catalyst:

https://metacpan.org/module/Catalyst::Manual::Tutorial::03_MoreCatalystBasics

Descargué una máquina virtual en la misma página (según indica el tutorial) que usa Debian. El problema es que en ...

Buenos días.

Por favor, me gustaría que alguien me orientara sobre el siguiente tema. Tengo instalado dentro de un PC una VM (máquina virtual) y dentro de ésta como SO Linux (Debian). He desarrollado un proceso que comprime unos archivos a modo de backup, creando cada día dos de dichos archivos en formato .zip. Quiero sacar esos archivos de la VM y de forma automática, por lo que veo en el foro creo que es ...

Hola a todos,

Planteo aquí un problema que seguramente será muy básico, pero en el que me he atascado como el tontaina que soy.
Pretendo filtrar una lista donde aparece el mismo nombre varias veces pero con valores diferentes y quiero quedarme con el menor de los valores que aparecen para cada nombre.

Este sería un ejemplo de la lista.
IDX2 10
IDX4 11
IDX5 12
IDX7 14
IDX12 15
IDX2 10
IDX4 11
IDX5 ...

Cuento con unos TXT que analizo con la ayuda de un script, y este me devuelve un archivo resultado que contiene los UPDATES que debo realizar a la DB.

El problemilla es que en dicho archivo resultado me encuentro con caracteres del tipo "Fray Cay Rodr�guez 325 2" y lo que quiero es evitar actualizar la DB con esos caracteres. Estoy al tanto de que se trata de la codificación del TXT pero ¿cómo puedo ...

Tengo dos (y puede que exista una tercera) variables con formato 20120131 y necesito formatearlas de manera tal de mostrarlas con el siguiente formato: '31-01-2012' por tratarse de información que necesito insertar a una base de datos (PostgreSQL).

El punto es que dichas variables (fechas) son todas distintas y no logro conseguir algo polimórfico que me las resuelva de ¡¡¡UN SOLO ZASS!!! Me refiero que haga el formateo correspondiente independientemente de que éstas sean distintas ...

Hola, soy nuevo en el foro y nuevo con Perl; apenas lo estoy conociendo.

Estoy realizando la práctica de la universidad y me colocaron a realizar un backup automático de Switch Nortel. Me dijeron que se puede realizar con Perl. El código que manejan acá usando telnet es el siguiente:

use Net::Telnet;
use Sys::Hostname;
use Mail::Sender;

system("cls");
$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die');
$telnet->open ('172.85.45.19');
$telnet->waitfor('/Username:/i');
$telnet->print('admin');
$telnet->waitfor('/password:/i');
$telnet->print('123456');
$telnet->waitfor('/\login/i');
$telnet->print('tftp 172.30.77.99 put ...