Foro - Perl en Español

Hola, estaba mejorando este herramienta para seguridad web que tengo desde hace tiempo y quiero que si se teclea control+C el código retorne al menú sin problemas. El problema es lo que he intentado con

$SIG{INT} = \&reload;

Pero solo me retorna un valor numérico.

El código es el siguiente:


#!usr/bin/perl
#k0bra 1.5
#Console version
#Automatic SQL Scanner for MYSQL
#(c)0ded By Doddy H
#
#
#C:\Users\DoddyH>perl k0bra.pl http://127.0.0.1/sql.php?id= --
#
# ...

Aquí está el código

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use DBD::Pg;
print error;

print "Content-type: text/html\n\n";

my @pote;
my @log;
local ( $buffer, @pairs, $pair, $name, $value, %FORM );

# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ( $ENV{'REQUEST_METHOD'} eq "POST" ) {
read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
}
else {
$buffer = $ENV{'QUERY_STRING'};
}

# Split information into name/value pairs
@pairs = split( /&/, $buffer );
foreach $pair (@pairs) {
( $name, ...

Hola, gracias de antemano por su ayuda.

Hay un error sintáctico en la última línea de este código y no veo cuál es de ninguna manera. Supongo que es algo simple, pero... :roll:

foreach my $node ($nodeset->get_nodelist) {

my $term= XML::XPath::XMLParser::as_string($node); #Nodo horren informazioa string moduan gorde.

my $gakoa=/pos=".+"/;

Moten_Hash_taula= push(@term_arraya,$term)


Gracias :wink:

Hola amigos tengo el siguiente problema, ojalá puedan ayudarme, tengo el siguiente código

emisor:
use IO::Socket;
my $sock = new IO::Socket::INET (
PeerAddr => 'asomatos',
PeerPort => '7070',
Proto => 'tcp',
);
die "Could not create socket: $!\n" unless $sock;
print $sock "Hello there!\n";
close($sock);

y receptor:
use IO::Socket;
my $sock = new IO::Socket::INET (
LocalHost => 'thekla',
LocalPort => '7070',
Proto => 'tcp',
Listen => 1,
Reuse => 1, 8 );
die ...

En esta ocasión los molesto porque quiero hacer una regex y no estoy teniendo éxito.
Tengo el siguiente script:
if ( @ARGV != 1 ) {

die "\nUse: $0 <urls.txt>\n\n" . " <file> Archivo que contiene las urls \n";

}
$file = $ARGV;
chomp $archivo;

open $FILE, '<', $file or die $!;
@archivos = <$FILE>;
close $FILE;

for $archivo (@archivos) {
chomp $archivo;
if ( $archivo =~ s/:|\//_/g ) {
print "$archivo\n"; ...

Hola.

Quiero sacar una dirección web de un html. Solo quiero la primera URL, y no doy con la tecla.

Parte del html:
</div><span class=url>www.<b>sevilla.com</b></span></div>
</div><span class=url>www.<b>madrid.com</b></span></div>
</div><span class=url>www.<b>cordoba.com</b></span></div>
</div><span class=url>www.<b>teruel.com</b></span></div>

Código:

$decir =~ /<span class=url>(www.)<b>(.+)<\/b>/;
print $2;

Tendría que salir "sevilla.com", pero usando el html completo me salen más historias, con lo cual supongo que la expresión no es correcta del todo (ni por asomo ...

Esta es una pregunta vieja que ya pregunté en otro post pero no lo encuentro.

Tengo el siguiente texto largo el cual quiero guardar en una variable con qq():
$tengo = qq(-inurl:(htm|html|php) intitle:"index of" +"last modified" +"parent directory" +description +size +(.exe|.zip|.ddl) "test");

El problema es que la variable se corta por los paréntesis, pensé en usar '|' en vez de los paréntesis pero en el texto también tengo '|'.

La pregunta es esa: ¿cómo ...

Tengo el siguiente código:
#!usr/bin/perl
#GoogleHack 0.3
#By Doddy H

use Tk;
use Tk::PNG;

my $ventana = MainWindow->new();
$ventana->title("GoogleHack 0.3 By Doddy H");
$ventana->geometry("370x300+20+20");
$ventana->resizable(0,0);

$ventana->Label(-font=>"Impact1",-text=>"String : ")->place(-x=>20,-y=>20);
my $v = $ventana->Entry(-text=>"Test",-width=>"31")->place(-x=>80,-y=>23);
$ventana->Button(-width=>"10",-text=>"Load",-command=>\&now)->place(-x=>278,-y=>23);

$ventana->Label(-text=>"Options",-font=>"Impact1")->place(-x=>140,-y=>70);

$ventana->Radiobutton(-text =>"Music", -value => "music",-variable=> \$op)->place(-x=>140,-y=>130);
$ventana->Radiobutton(-text =>"Programs", -value => "programs",-variable=> \$op)->place(-x=>140,-y=>160);
$ventana->Radiobutton(-text =>"Book", -value => "book",-variable=> \$op)->place(-x=>140,-y=>190);
$ventana->Radiobutton(-text =>"Videos", -value => "videos",-variable=> \$op)->place(-x=>140,-y=>220);
$ventana->Radiobutton(-text =>"Torrent", -value => "torrent",-variable=> \$op)->place(-x=>140,-y=>250);

MainLoop;

sub now {

my $test = $v->get;
my $link; ...

Amigos del foro, estoy adaptando un script que funciona en Linux a Windows (para que trabaje en ambos). Tengo todo ok, pero me he topado con el siguiente problema:

Dentro del script hago una llamada al sistema operativo para que ejecute convert: system("convert $imageDir/$name-$imgNo.ppm $imageDir/$name-$imgNo.png"); donde $name-$imgNo.ppm ya está creado. En Linux, ningún problema: el archivo $name-$imgNo.ppm es creado por pdftoppm que está disponible en Linux y Windows, pero con una pequeña gran diferencia: ...

Hola.

¿Me podrían ayudar? Necesito guardar una cadena en un arreglo, pero no me está funcionando la forma que estoy utilizando ya que solo me guarda un valor de n cantidad de valores que quiero guardar.

Lo que quiero hacer es guardar algunas IP que estoy leyendo de un archivo a las cuales les hago un if() para que cumplan una condición y si la cumplen guardarlo en un arreglo para después imprimirlas.

Utilizo algo ...