Foro - Perl en Español

¡¡Hola a todos!! Necesitaría vuestra ayuda.
Tengo un script hecho en Perl, al cual le paso una fecha por parámetro y la recojo con esta función:

# MÉTODO PARA RECOGER LA FECHA INTRODUCIDA POR PARÁMETRO
sub introduce_fecha {
if ($#ARGV != 0)
{

print("No has introducido una fecha de implantacion\n");

}
else
{
$fecha =$ARGV;
}
return $fecha;

}

Necesitaría restarle a la fecha que tengo almacenada en la variable $fecha un día. Para que ...

Tengo que trabajar con Perl en una máquina con sistema operativo SunOS 5.7, es la primera vez, siempre trabajé sobre Linux. ¿Sabe alguien cómo se hace para instalarle módulos, más específicamente el módulo de Threads? Muchísimas gracias.

Hola, estoy empezando con Perl y en el programita que estoy haciendo necesito ejecutar en paralelo código con fork, ya que no quiero usar threads porque no tengo el módulo instalado. La pregunta es, ¿cómo puedo hacer para que si cambio el valor de una variable en el hijo o el padre el otro la vea modificada?. Muchas gracias.

Hola.

La idea es hacer una petición de búsqueda a Google con un patrón y que éste recopile todas las webs que me dio resultado en un array.

#!/usr/bin/perl

use LWP::Simple;

$string = "palabra";

@webs = get("http://www.google.es/search?q=.$string.&hl=es&start=0&sa=N") =~ /(http\:\/\/{5,})/gi;

foreach $web (@webs)

{

($domain) = $web =~ /^http\:\/\/({5,})/;
print "$domain\n";

}

Este código me imprime como resultado NADA.

Hola, necesito ayuda:

Cómo puedo saber en qué línea se encuentra una palabra introducida por teclado y cuál es el número mayor de veces que esa palabra se repite en un archivo en C.

Gracias.

Normalmente al enviar un email desde un CGI se utiliza el /usr/bin/sendmail que es siempre referenciado al servidor local. Pero yo quiero utilizar un servidor SMTP externo para esta tarea.

El código que estoy manejando es el siguiente:
sub sendmail {
my ( $mday, $mon, $year ) = ltime();

my ( $to, $subject, $message, $path, $name, $idx, $username, $html_flag ) =
@_;
my ($email) = $to;


#$username =~ /^\s*({1,20})\s*({0,20}).*$/;
$username =~ /^\s*(*)\s*(*).*$/;
$secname = $2; ...

En Perl Cookbook sale un ejemplo de cómo usar Term::ReadKey para saber qué tecla fue usada (leer el STDIN sin tener que esperar el "\n").

Yo sé que usando POSIX y sysread se puede hacer:

use POSIX;
use 5.10.0;

my $termios = new POSIX::Termios;
$termios->setcc( VTIME, 1 );
my $key;
sysread ( STDIN, $key, 1 );
say $key;
$termios->setcc( VTIME, 0 );

Si a este código se le pone las funciones de noecho y echo, ...

Saludos
Un día de estos me hice la pregunta ¿Existe un framework para Perl?

Así como lo hay para PHP, bueno, como nuevo en este lenguaje quisiera saber si alguien conoce alguno y que tal como le ha ido...
:?:

De antemano Muchas Gracias :D

Hola, un pregunta complicada:

¿Cómo puedo especificar qué dispositivo de red usar en Socket?

Como muchos saben, un computador puede tener más de un dispositivo de red activo y yo quiero usar uno en específico.

¿Se puede con Socket o tiene que ser con Net::Pcap?

Tratando de instalar módulos usando cpanp -i módulo veo que no pregunta nada ( mirrors ní cosas como esas ) así que pregunto... ¿Cómo se instala módulos y cómo se configura cpanp?

Gracias.



perl -MCPANPLUS::Configure::Setup -e 'CPANPLUS::Configure::Setup->init();'

You called 'CPANPLUS::Configure::Setup::term' on 'CPANPLUS::Configure::Setup' which was interpreted by Object::Accessor as an object call. Did you mean to include 'term' from somewhere else? at /System/Library/Perl/5.10.0/Object/Accessor.pm line 413
Object::Accessor::AUTOLOAD('CPANPLUS::Configure::Setup') called at /System/Library/Perl/5.10.0/CPANPLUS/Configure/Setup.pm line 87
CPANPLUS::Configure::Setup::init('CPANPLUS::Configure::Setup') called at ...