Foro - Perl en Español

Hola a todos, como me cambié de casa encontré algunos libros completos en copias fotostáticas de varios libros de Perl que saqué durante la universidad, sin embargo en mi nuevo dpto. ya no los puedo tener, así que en vez de tirarlos a la basura quiero donarlos a alguien que quiera aprender.

Las copias son:
1. Learning Perl on Win32 Systems
2. Manual Fundamental de Perl 5 (2 ejemplares, el mío y el de mi ...

Hola. Tengo una pregunta, yo quiero hacer una aplicación que pida al usuario por pantalla una url y si la url está incompleta, es decir sin: "http://" al principio y "/" al final que el programa lo añada automaticamente.


print "introduce url:\n";
$url=<STDIN>;
chomp $url;

--pseudocódigo

Si la url no tiene http:// al principio
lo añadimos

Si la url no tiene / al final
lo añadimos


Gracias amigos.

Hola que tal, de nuevo solicitando su ayuda.

Quisiera saber si hay alguna forma en Perl de ocultar los parámetros, es decir cuando tengo un enlace hacia un script paso algunos parámetros en ese enlace y quisiera que estos no sean visibles. Aquí pongo un ejemplo para que se entienda mejor.

datos_empleado.cgi?num_empleado=3&curp=ATRG761211TYRVRU8&estado=12&opc=editar

Lo que quiero es pase esos parámetros sin que el usuario los vea en la barra de direcciones del explorer y quedara así. ...

Bueno primero que todo felicitar a los moderadores y a el creador de la página es excelente...

Bueno y ahora mi inquietud. Quisiera saber si existe algún módulo para Linux que controle Mozilla Firefox como lo hace el Win32::OLE con Iexplorer en Windows. Estuve buscando en CPAN pero me resulta algo engorroso buscar en esa cantidad de módulos. Les agradecería mucho su colaboración :D

Ante todo quiero pedir disculpas por postear esta tontería, pero no sé si este código funciona o no ya que cada vez que intenta conectarse a Mysql para proseguir con el query se queda buscando y nunca me responde. No sé si funciona, y me gustaría saberlo ya que quiero usar dicho script para guardar en un archivo el listado de nuevas tablas creadas semanalmente por los usuarios.

Este es el código si alguien puede ...

Buenas los molesto porque tengo el siguiente código el cual al ejecutarlo obtengo varios errores los cuales no sé cómo solucionarlos.

Script Modificado - 24/02/08 -

#!/usr/bin/perl
BEGIN {
eval "use Nmap::Scanner";
if ( $@ ) {
warn "Error to load module: Nmap::Scanner\n"
. "Install Module:\n"
. "\t\tcpan\n"
. "\t\tcpan> install Nmap::Scanner\n";
exit ();
}
}
use CGI ':standard';
use Nmap::Scanner;
use POSIX 'strftime';

use strict;
use warnings;

if ( @ARGV < ...

Buenas.

Un saludo a todos. Conozco más o menos el lenguaje Perl, pero en estos momentos estoy 'atascado' con un problema. Tengo miles de archivos con el siguiente formato:

ATOMIC CHARGES ATOM ELEMENTAL PARTIAL PARTIAL PARTIAL
NO. SYMBOL MULLIKEN CM1 CM2
CHARGE CHARGE CHARGE

1 N 0.01440 0.03208 -0.31990
2 C -0.16559 -0.17106 -0.02414
3 H 0.13362 0.13398 0.11500
4 H 0.10268 0.10307 0.08371
5 H 0.14249 0.14289 0.12399
6 C -0.15736 -0.16260 -0.01658
7 ...

Estimado Explorer , :lol:

Necesito saber cómo puedo enviar dentro de un script en Perl el carácter de "Y" a un switch Huawei para grabar la configuración luego que ejecuto el comando "save" .

Te detallo la sintaxis del comando dentro del equipo:

<SWITCH>save
The configuration will be written to the device.
Are you sure?[Y/N]Y
Now saving current configuration to the device.
Saving configuration. Please wait...
...... ...

Undécima conferencia anual de Larry Wall.

Tengo un script que se conecta a la página de voipbuster.com con mi usuario y clave de acceso. Todo va bien. Lo que hago luego es bajarme la página a un archivo temporal y la proceso buscando información que me interesa.

¿Y qué me interesa? pues saber el estado de la cuenta, claro. En el código HTML está así:

Remaining credit:<br>
<span id="balanceid"><b>&euro;&nbsp;10.00</b></span>&nbsp;<span class="buy">(<a href="buy_credit.php" class="buy">buy more</a></sp
an>)

El código que uso es éste (la ...