Foro - Perl en Español

Hola. Estaba viendo este proyecto en Python donde el script principal puede cargar módulos, leer y mostrar las funciones del módulo y usarlas en el script principal. ¿Cómo se llamaría este tema? ¿Alguien conoce algún manual o proyecto para estudiar sobre este tema?

Los enlaces:

https://github.com/joselimas/wsploit/bl ... wsploit.py
https://github.com/joselimas/wsploit/bl ... ypasser.py

Pues sería algo así como introspección o inspección, usando ref(), isa() y can(), pero en CPAN hay módulos que dan mucha más información, como por ejemplo:

• Class::Can Saca la jerarquía interna del módulo, mediante un hash, en que las claves son los métodos que se pueden usar, y los valores son el paquete asociado a cada método
• Devel::Symdump Hace un volcado de toda la tabla de símbolos del programa

pero seguro que hay muchos más.

Gracias por responder, explorer. Hummm... parece que Python la tiene muy fácil en esto. Estoy buscando ejemplos como los del enlace, en Perl, pero no encuentro y no sé con qué nombre buscar. Si supieras algún proyecto en Github, avísame. Mientras tanto sigo programando mi primer módulo en Perl.

Saludos.

He entrado en Google y he puesto «Perl introspection», y me sale, el primer enlace a stackoverflow: How can I perform introspection in Perl?, que lleva a dos buenos enlaces: Help, Help (un artículo que muestra el código de un módulo Perl que hace introspección de otros módulos y te muestra los métodos que puedes llamar, cuando te equivocas y pones el nombre de un método que no existe); y la respuesta principal, en How do I list available methods on a given object or package in Perl?, en el que se dice que en Perl hay hasta demasiados métodos para hacer esto (el más sencillo está en la primera respuesta de esa página), y comenta uno clásico: usar el módulo Class::Inspector (ejemplo de uso en la primera página enlazada de StackOverflow). También se muestra el uso con Data::Printer.

No se me ocurre más fácil que esto (solo un par de líneas). Así que no cometas el error de decir que en Python lo tienen más fácil que en Perl. Lo que de verdad quisiste decir es que encontraste antes la solución de Python que la de Perl.

explorer, estoy tratando de sacar las funciones principales de este módulo que hice: http://pastebin.com/PpGLJjMD

El tema es que cuando uso este código me devuelve hasta las funciones de los módulos que usé, como "sockaddr_family" y otros. Intenté usando el argumento "public" o "private" como dice en su documentación: http://search.cpan.org/~adamk/Class-Ins ... spector.pm pero me devuelve siempre el mismo resultado.



¿ Cómo lo podría hacer ?

El comportamiento que indicas sí que está descrito en la página de manual.

¿Has probado a cambiar methods() por functions()?

Sí, probé todas las opciones, explorer, y lo peor es que cuando chequeo que la función existe me devuelve todo esto:

Bueno, una manera sería llamar a methods(), pero con la opción 'full', que lo que hace es devolver el nombre completo de los métodos:

Si luego quieres quitarle el prefijo 'DH_Tools::', pues con una exp. reg. sencilla se puede hacer.

Otra opción, sacada de How do I list available methods on a given object or package in Perl?:

Sí, el código de Stackoverflow ya lo probé y los dos (el tuyo también) me devuelve todo el mismo resultado del mensaje anterior. Como plan b voy a ponerles un nombre especial a las funciones que quiero recuperar y desde ese patrón encontrarlas. ¿Se te ocurre una idea mejor?

Cuando importas funciones o métodos de otras bibliotecas, pasan a formar parte de tu "espacio de nombres", para poder usarlas, naturalmente, y no tener que referirse a ellas usando nombres largos, como paquete::funcion(). Quieres usar funcion(), y nada más. Pero eso lo que hace es "contaminar" tu propio espacio de nombres, haciéndose cada vez más grande.

Un ejemplo. Supongamos que tenemos este módulo:
Bueno, apenas tiene dos métodos. Si lo pasamos por el bucle, solo salen esos dos:
Ahora le agregamos un módulo, List::Util, e importamos un montón de métodos, puede que los usemos o no, en el módulo:
Usamos solo una vez la función 'first', pero hemos importado unas cuantas más:
Bueno, podemos hacer una cosa: cuando Perl haya terminado de compilar nuestro módulo, podemos decirle que "olvide" todas esas funciones importadas, y que se quede solo con las que hemos definido nosotros. Las funciones externas seguirán funcionando, pero ya no formarán parte del espacio de nombres de nuestro módulo.

Eso se consigue con los módulos namespace::autoclean y namespace::clean. Veámoslo:
Y ahora, la salida de los métodos definidos dentro será:
Incluso funciona Class::Inspector:

Naturalmente, esto funciona para los módulos que escribamos nosotros. Si queremos hacer introspección de otros distintos, pues nos podemos encontrar con que los autores no hicieron esa limpieza.