Foro - Perl en Español

En los foros de Arch-Linux hay una persona que le pasa lo mismo que a ti:
http://bbs.archlinux.org/viewtopic.php?id=36977

Vete luego al enlace que pone en la parte de bugs, pero no creo que sea eso, porque entonces no hubiese fallado la prueba del ping.

Haz otro intento:

Así puedes saber sí resuelve o no (al parecer no por lo de ping)

Cuando hagas un servidor trata de usar bind (No recuerdo si IO::Socket lo necesita).

explorer escribiste:En los foros de Arch-Linux hay una persona que le pasa lo mismo que a ti:
http://bbs.archlinux.org/viewtopic.php?id=36977

Vete luego al enlace que pone en la parte de bugs, pero no creo que sea eso, porque entonces no hubiese fallado la prueba del ping.

No lo entiendo muy bien. Parece que dice que al actualizar con pacman le empezaron a fallar cosas , entre ellas módulos de Perl y que luego no pudo instalar esos modulos (como me pasa a mi). Pero no entiendo muy bien como lo solucionó: a caso dice que deshizo la actualización? Es que el inglés no lo llevo del todo bien.

Lo del bug de crear un enlace simbólico, lo he hecho pero parece que no me ha arreglado nada.

creating021 escribiste:Haz otro intento:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using bash Syntax Highlighting

perl -MSocket -le 'foreach ("localhost", "yahoo.com") { inet_aton($_) or die "$_ : $!";}

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Así puedes saber sí resuelve o no (al parecer no por lo de ping)

Cuando hagas un servidor trata de usar bind (No recuerdo si IO::Socket lo necesita).

Tu comando no me ha dado salida, con lo cual se supone que funciona. Para estar seguro del todo, he hecho:

[jordi@baby0 ~]$ perl -MSocket -le 'foreach ("localhost", "yahoo.com") { print inet_ntoa (inet_aton($_)) or die "$_ : $!";}'
127.0.0.1
66.94.234.13
[jordi@baby0 ~]$

O sea que funciona. Eso parece que contradice lo que suponíamos de que perl no entendía "localhost", no?

Lo que eso quiere decir es que Socket.pm sí sabe que es localhost pero no se puede conectar o crear el mismo socekt.

Ahora intenta algo como esto:



Update: Me faltaron los prints en el código

Tu script me devuelve esto:

Código: Seleccionar todo

[jordi@baby0 ~]$ ./socketpr4
Useless use of a constant in void context at ./socketpr4 line 10.
Useless use of a constant in void context at ./socketpr4 line 13.
getproto tcp: No existe el fichero o el directorio
[jordi@baby0 ~]$ 

Jeje... creo que me huelo lo que pasa: No tengo el /etc/protocols y Perl lo busca allí, ¿es eso?

Por cierto que tampoco tengo el /etc/services y eso también le pasa al tío que ha reportado su problema del enlace de explorer.

Pues sí que era eso. He buscado un /etc/protocols, lo he copiado en mi /etc y mi programa ya funciona.

¡¡¡Muchas gracias explorer, monoswim y creating021 por vuestra ayuda!!!!

P.D.: ¡¡¡Ahora también me ha funcionado el "cpan -i IO::Socket"!!!

De todos modos, aún no me funciona todo correctamente. Pues por ejemplo el

Código: Seleccionar todo

perl -e 'print `ping localhost`'

todavía no me funciona.

alqui escribiste:De todos modos, aún no me funciona todo correctamente. Pues por ejemplo el

Código: Seleccionar todo

perl -e 'print `ping localhost`'

todavía no me funciona.

Eso es porque ping tiene una salida casi interminable... intenta esto:


Cuando usas `` estás esperando a que el programa ejecutado termine.

A... entiendo.

Eso último si funcionó.

Muchas gracias de nuevo creating021

Al mejor estilo de Alf: ¡No hay problema!