Foro - Perl en Español

Hace tiempo que quería meter todas estas líneas en un array pero la única solución que logré fue meterlas en un archivo de texto y leerlas desde ahí.

Las líneas son estas:
admin'--
'or'1'='1
'or'
' or 0=0 --
" or 0=0 --
or 0=0 --
' or 0=0 #
" or 0=0 #
or 0=0 #
' or 'x'='x
" or "x"="x
') or ('x'='x
' or 1=1--
" or 1=1--
or 1=1--
' ...

Hola.

Tengo un directorio que contiene varios archivos .fasta que corresponden a diferentes cepas. Lo que quiero es lanzar los archivos fasta de las cepas de una misma especie a un programa que calcula unas historias. Esto lo haré a través de un archivo .pl que contiene las instrucciones (configuración) del programa y las rutas de los fastas que quiero lanzar contra el programa. Lo lanzaré dentro de un script de Perl así: `./binario_del_programa ./archivo.pl` ...

Hola, estoy tratando de hacer esto :

if($code=~/<input type="text" id="hash" size="(.*?)" value="(.*?)"\/>/) or not ($code=~/Entry Not Found/g) {
print "ok";
}

El tema es que el código está mal porque se me mezcla Python con Perl, por eso quería preguntarles cómo logro esto, que se cumpla la primera y que si no es la segunda dé el "ok".

¿ Alguien me puede ayudar ?

Hola. Quiero hacer una cosa cualquiera ya sea un print "hola mundo"; o algo así por 10 segundos o cualquier tiempo en general. Pensé en usar threads pero quería preguntar si alguien me podría dar un ejemplo de otra cosa que no sea threads.

¿ Alguien me puede ayudar ?

Hola. Estoy formando la petición POST a cierta página pero la duda que me mató fue cuando vi este código:
<input name="md5" class="text_input" value="Put MD5 hash here" onclick="if(this.value=='Put MD5 hash here')this.value='';" onblur="if(this.value=='')this.value='Put MD5 hash here';" type="text">
</td><td>
<center><input src="/img/search_button2.png" title="go >>>" type="image"></center>
</td></tr>
</tbody></table>
</form>

El código del script:
use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(10);

my $code = tomar("http://md5.my-addr.com/md5_decrypt-md5_cracker_online/md5_decoder_tool.php",{ 'md5' ...

Hola a todos, estoy tratando de renombrar algunos ficheros que tengo dentro un directorio, los ficheros son de la siguiente forma:

test-fig-0.pdf,test-fig-1.pdf,test-fig-2.pdf,test-fig-3.pdf,test-fig-4.pdf

y deseo dejarlos así:

test-fig-1.pdf,test-fig-2.pdf,test-fig-3.pdf,test-fig-4.pdf,test-fig-5.pdf

Estoy intentando usar este script:
my $dir_consulta = "$tempDir/$imageDir";
my $fichero = '';
my $resultado = '';
my $renNo = 1;
if(opendir(DIRECTORIO,$dir_consulta))
{
#Leemos el listado de fichero que lo componen
foreach (readdir DIRECTORIO)
{
$fichero = $_;
#Seleccionamos los ficheros
if ($fichero =~ /$name-fig-\d+\.pdf/)
{ ...

Hola, buenas noches. Se me planteó la necesidad de realizar un script en Perl para un proyecto, y como soy nuevo en esto quisiera saber si me podrían dar una mano para hacer mi script o algunos consejos. Todo sirve. Gracias.

Bueno, lo que debo hacer es:
Un script que me pida que ingrese tres parámetros: directorio, unidad, y tamaño. Y que en base a esto me cree una página web que albergue listado todo ...

Hola, estoy usando expresiones regulares para capturar cierto contenido en una página de torrents. La regex que estoy usando es esta:
if($code=~/<a href="(.*?)" title="Download this torrent using magnet"><img src=(.*?)><font class="detDesc">(.*?)<\/font><\/td><td align="right">(.*?)<\/td><td align="right">(.*?)<\/td>/mig) {
print $1;
}
El contenido de $code es este:
<a href="/torrent/9254599/Batman.Arkham.Trilogy-R.G._Mechanics" class="detLink" title="Detalles para Batman.Arkham.Trilogy-R.G. Mechanics">Batman.Arkham.Trilogy-R.G. Mechanics</a>
</div>
<a href="magnet:?xt=urn:btih:e923a34e95e267c6ae6ff4766deb3b4729a4a350&amp;dn=Batman.Arkham.Trilogy-R.G.+Mechanics&amp;tr=udp%3A%2F%2Ftracker.openbittorrent.com%3A80&amp;tr=udp%3A%2F%2Ftracker.publicbt.com%3A80&amp;tr=udp%3A%2F%2Ftracker.istole.it%3A6969&amp;tr=udp%3A%2F%2Ftracker.ccc.de%3A80&amp;tr=udp%3A%2F%2Fopen.demonii.com%3A1337" title="Download this torrent using magnet"><img src="/static/img/icon-magnet.gif" alt="Magnet link"></a><a href="/user/Taker009"><img src="/static/img/trusted.png" alt="Trusted" title="Trusted" style="width:11px;" border="0"></a><img src="/static/img/11x11p.png">
<font class="detDesc">Subido Hoy&nbsp;05:05, Tamaño ...

Buenas tardes, nuevamente acudo a ustedes, compañeros, debido a que presento el siguiente inconveniente.

Desarrollé el siguiente script con un par de ejemplos, y todo bien; el único problema es que al descargar los archivos ".zip" al intentar abrir cualquier archivo (con winrar o winzip), me dice "Unexpected end of archive", y descargando el mismo archivo pero con filezilla no me da ningún inconveniente, y ambos son del mismo tamaño y extensión.

Aquí el script ...

Hola, tengo el siguiente código.

use Shodan::WebAPI;

$your_key = "test";

$shell_shodan = new Shodan::WebAPI($your_key);
$resultados = $shell_shodan->search("probando");

@matches = @{$resultados->{'matches'}};

<stdin>; # por cada enter

# acá sería la cosa

for ( $i = 0; $i < $#matches; $i++ ) {
print "IP: $matches->{ip}\n";
print "$matches->{data}\n\n";
}

# acá termina xD



Mi plan es mostrar cada valor cada 5, o sea, que por cada <stdin> se muestren 5 informaciones nuevas hasta terminar el ...