Foro - Perl en Español

Necesito si alguien me ayuda con un script para interpolar datos wafs bajados del gfs.
Necesito hacerlo desde Perl. Si alguien sabe algo, por favor, responda. Gracias.

Amigos, estoy intentando crear un script que me reciba un string suministrado por otro script en otra máquina. Para el script receptor he colocado el siguiente código tomado de un ejemplo de aquí:
#!/usr/bin/perl -w

use IO::Socket;
use Net::hostent;

$server=IO::Socket::INET->new(Proto=>'tcp',LocalPort=>5800,Listen=>1,Reuse=>1);
print "server=$server\n";

die "no puede configurar servidor" unless $server;
print "Server $0 aceptando clientes";

while($cliente=$server->accept()){
$cliente->autoflush(1);
print "cliente=$cliente";
while(defined($line=<$cliente>)){
print $cliente $line
}
close $cliente;
}

Al ejecutarlo mediante perl p2.pl en la consola solo ...

Amigos, saludos

Estoy modificando el proyecto vncserver para la toma de control de máquina a distancia.

Ya logré modificar el proyecto para que suministre el tiempo que se tuvo control de la máquina a distancia.

Ahora estoy tratando de hacer un script en Perl que reciba un string de la máquina remota. A través del puerto 5800. La información es enviada a través de un programa en Java. El cual ya realicé pero requiero ayuda ...

Agradecería si me pudiesen indicar donde esta el error en esta división.

¿Perl admite división por CERO?

my $resultado = ( $variable_1 * $variable_VALOR_CERO) / $variable_2

Es decir, obtendría resultado CERO, pero me tira error, ¿tengo que usar alguna función matemática?

Muchas gracias.

Que tal de nuevo requiriendo de su valiosa intervención.

¿Cómo puedo quitarle el acento a una cadena de texto? Aquí pongo un ejemplo.
my $nombre = "Martín González Gómes";

Quisiera que quedara así:
$nombre = "Martin Gonzalez Gomez";

¿Habrá alguna manera de sustituir la vocal acentuada por la vocal sin acento?

Ok, las explicaciones ya no tienen lógica en este problema, más bien véanlos ustedes:

luego de la presentación hay una serie de botones superiores, en los cuales uno dice catálogo, escojan uno de los productos y den al botón agregar, luego a otro producto, si su funciona bien, se cargarán uno tras otro:

www.800guia.com/soraya


y luego esta página:

Es la misma página pero con el dominio, bien, es exactamente ...

Hola, ¿cómo están?... Soy nuevo aquí y agradezco por tener esta oportunidad de ser un miembro de este prestigioso sitio.

Agradecido estoy y me gustaría resolver un problema.

Resulta que quisiera hacer una petición HTTP a un sitio y que me devuelva solamente un cierto contenido especifico.

Me había rebuscado en Google y he encontrado este sencillo código:

#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Request;

my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows ...

En el siguiente código, el método prepare() marca un error. El error es el siguiente:

Code: Seleccionar todo

[Fri May 02 15:22:52 2008] [error] [client 127.0.0.1] Can't call method "prepare" on an undefined value

¿a qué creen que se deba? por que no le hallo.

my @fields = ();

my $sql = "DESCRIBE ". $table_prefix . $filename;

$dbe = $db->prepare($sql);
if (!($dbe->execute)) { &adminerror($db->errstr); }

while ($info = $dbe->fetchrow_hashref()) {
#-- Obtencion de campos solo una vez
@fields ...

Hola a todos, tengo un problema con la ejecución de un comando del sistema desde Perl.

En concreto, quiero ejecutar estas dos sentencias, que se ejecutan correctamente con un intérprete Bash:

SENTENCIA 1
exec softlimit -m 10000000 \
unixserver /tmp/.vmailmgrd vmailmgrd 2>&1 \
| setuidgid qmaill multilog t n100 s1000000 /usr/local/qmail/logs/vmailmgrd &

SENTENCIA 2
exec softlimit -m 20000000 \
envdir /etc/relay-ctrl relay-ctrl-chdir \
tcpserver -v -H -R -l $HOSTNAME -x /etc/tcpcontrol/tcp.smtp.cdb \
-c200 -u5002 -g5000 ...

Hola, Necesitaría saber qué módulo me recomiendan para integrar el Google Maps a un sitio.

Busqué en CPAN y encontré varios pero el problema es que no sé con cuál de ellos quedarme.

Solamente necesito uno que tenga buenas funcionalidades y que a la hora de utilizarlo no se complique demasiado.

Muchas gracias, perleros.