Foro - Perl en Español

por **BigBear** » 2014-11-02 18:30 @812

Hola. Tengo el siguiente código

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use IO::Socket;
 
my $hostname = "localhost";
my $port = "6667";
my $nombre = "dsadsa";
 
        if (
            my $socket = new IO::Socket::INET(
                PeerAddr => $hostname,
                PeerPort => $port,
                Proto    => "tcp"
            )
          )
        {
 
            print $socket "NICK $nombre\r\n";
            print $socket "USER $nombre 1 1 1 1\r\n";
            print $socket "LIST\r\n";
 
            print "[+] Spammer Online\n\n";
 
            while ( my $log = <$socket> ) {
                print $log; 
            }
 
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Lo que hago es poder capturar el nombre de todos los canales y cantidad de usuarios, pero el tema es que no quiero que sea un bucle infinito sino que quiero usarlo en una función que solo busque los canales y corte ahí. ¿Cómo puedo hacerlo ?

 
#!usr/bin/perl
#Coded By Doddy H
 
use IO::Socket;
use Color::Output;
Color::Output::Init;
 
print "[+] Serching ...\n\n";
 
my @encontrados = buscar_canales("localhost","6667","testar_now");
 
printf("%-32s %s\n",printear_titulo("Channels"),printear_titulo("Users"));
for my $encontrado(@encontrados) {
if($encontrado=~/(.*)-soy_un_limite-(.*)/) {
my $canal = $1;
my $cantidad = $2;
printf("%-32s  %s\n",printear($canal),printear($cantidad));
}
}
 
sub buscar_canales {
 
my @resultado;
 
my $hostname = $_[0];
my $port = $_[1];
my $nombre = $_[2];
 
if (
my $socket = new IO::Socket::INET(
PeerAddr => $hostname,
PeerPort => $port,
Proto    => "tcp"))
{
 
print $socket "NICK $nombre\r\n";
print $socket "USER $nombre 1 1 1 1\r\n";
print $socket "LIST\r\n";
 
while ( my $log = <$socket> ) {
 
if($log=~/322 (.*?) (.*?) (.*?) :/) {
my $canal= $2;
my $cantidad = $3;
push(@resultado,$canal."-soy_un_limite-".$cantidad);
}
 
if($log=~/:End of \/LIST/) {
last;
}
 
}
 
$socket->close;
 
return @resultado;
 
}
 
}
 
# Functions
 
sub printear {
    cprint( "\x036" . $_[0] . "\x030" );
    return "";
}
 
sub printear_logo {
    cprint( "\x037" . $_[0] . "\x030" );
    return ""
 
}
 
sub printear_titulo {
    cprint( "\x0310" . $_[0] . "\x030" );
    return ""
}
 
 
# The End ?
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2014-11-04 21:21 @931

Creo que es por tema de los búfer de escritura: cuando llamas a cprint() le estás diciendo que saque cosas en pantalla. Luego llamas a return para que no devuelva nada ("") y ese nada se lo pasas a printf().

Te aconsejo que uses solamente cprintf(), del propio módulo.

por **BigBear** » 2014-11-05 10:33 @481

Hecho, gracias por la ayuda, explorer (y por corregir las tildes, también xD)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub printearf_titulo {
cprintf("\x0310" ."%-32s  %s". "\x030\n",$_[0],$_[1]);
}
 
sub printearf {
cprintf("\x036" ."%-32s  %s". "\x030\n",$_[0],$_[1]);
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Ayuda para recuperar canales en IRC

Ayuda para recuperar canales en IRC

Publicidad

Re: Ayuda para recuperar canales en IRC

Re: Ayuda para recuperar canales en IRC

Re: Ayuda para recuperar canales en IRC

Re: Ayuda para recuperar canales en IRC

Re: Ayuda para recuperar canales en IRC

¿Quién está conectado?