Foro - Perl en Español

Hola, soy nuevo en el foro, y estoy aprendiendo a programar en Perl desde principios de este mes (enero).

Escribo porque vengo desde hace varios días leyendo por Internet tutoriales sobre Perl y sigo sin despejar mi duda que pasa por:

Quiero abrir un fichero, leer lo que está escrito e ir pasando cada línea de ese fichero a la consola como si fuera un comando.

Hasta ahora lo que he escrito, sin el resultado ...

¡Hola! ¡Nuevamente necesito ayuda! Bueno, lo que ocurre es que tengo un archivo de esta manera (mucho más largo, de unas 22200 líneas)

gn0058461_int_gn0085512
\ACAAACACAATTCACTCATCGGACCCGCTGGTTCCGGCTAC/
gn0020660_int_gn0260994
\TTAAAAATAAATAAAAATAAAGAAAATATATAAATCTATGAC/
gn0260994_int_gn0046706
\GACAACTTGGAGGAGACACCCGGCGGACCCGGAATCCAAGTC/
_int_gn0031208
\CGACAATGCACGACAGAGGAAGCAGAACAGATATTTAGATTG/
gn0031208_int_gn0002121
\AAAAACAATGCGAATAGGGACGTATTAATTGCCGAATCTCT/
gn0002121_int_gn0031209
\GTGCCCGTGTATCTCTATCGAAAAAATCATATATTTTTTAGA/
gn0031209_int_gn0051973
\ATCGAGCGCAAGTTTGGAGTTCGATGTGTTTTCAGCTGTGAGC/
gn0051973_int_gn0067779
\GTGCGGACGAGTGTCTTGAGACTCTGGGCAAGCGCAGCCAGCCA/

Y un archivo similar pero contiene solo nombres, no las secuencias. Hice un código que lee nombres en archivo que contiene los nombres y los busca en el segundo archivo (el que muestro) y si lo ...

Necesito ir introduciendo elementos en un mismo hash, pero de forma espaciada.
El problema es que si lo hago de la forma:
%hash = ( clave1 => elemento1);
%hash = (clave2 => elemento2);

se me sobreescriben los valores en vez de almacenarse.
¿Hay alguna forma de irlos añadiendo?

¡Muchas gracias!

«Buenas a todos, hoy finalizaremos la cadena de post sobre wardriving en sistemas Symbian, con la transformación del reporte xml a kml y su integración con Google Earth.

En primer lugar deberemos transformar el reporte xml a kml, para ello yo he elegido un script en perl llamado kisgearth, que realizará el cambio de formato de manera automática. Hay otros programas que realizan esta tarea, pero este me ha parecido bastante práctico, sencillo y eficiente.» ...

«Podemos decir que estas herramientas a veces nos traen informacion super importante para realizar algun TEST de penetracion .
Pues con la ayuda de Nikto version 2, un excelente proyecto basado en PERL , nos permite escanear todos los posibles directorios y archivos vulnerables en nuestro sistema web.»

Artículo

«En esta ocasión, vamos a estudiar una herramienta para la visualización gráfica de capturas de red usando cualquier ficheros .pcap generado por cualquiera de nuestros sniffer como pueden ser Tshark, TCPDump, Windump, etc . Esta Herramienta es AfterGlow.

AfterGlow.

AfterGlow es una herramienta formada por una serie de scripts de Perl que nos facilita la generación de gráficas a partir de, por ejemplo, un fichero de captura .pcap. Para ello necesitamos tener GraphViz (lo vimos ...

«DuckDuckGo es un motor de búsqueda cuyo leitmotiv es el respeto a la privacidad del usuario al no recoger información sobre éste que lo identifique. Detrás del proyecto está Gabriel Weinberg, un licenciado en física y máster en Tecnología en el MIT (Massachusetts Institute of Technology) que saltó a la fama por un desarrollo sobre bases de datos de nombres que vendió posteriormente por una cifra astronómica a United Online.

El proyecto es de código ...

«Bueno, este programa es un webserver en Perl con las siguientes opciones

* Listar directorios
* Ver archivos
* Borrar directorios y archivos
* ReverseShell
* BindPort»

Artículo

«Bueno, este es un keylogger en Perl que hice con las siguientes opciones

* Captura teclas reconociendo mayúsculas y minúsculas
* Muestra ventanas en las que se está trabajando»

Artículo

Estimados,

Tengo un script el cual verifica sobre algunos archivos si el owner de éste es el usuario "root" y luego realiza una acción.

El problema que tengo es que si el archivo no existe me imprime "como acción NEGATIVA" pero no me dice cuál es su owner ya que no existe, me gustaría que en estos casos directamente no me imprima nada, ya que es erróneo.


use Term::ANSIColor qw(:constants);
my @archivos = ...