Perl tk

**Nickname** · 10/08/2005, 19h30

yeahh all the retour du gars qui a toujours des problemes en perl mdr

Alors en fait j'ai fais avec un pote un prog qui recup les proxy d'une page web.Mon but apres ca est d'implementer les reponses dans un cadre tout propre

de perl tk.
Donc j'ai fais un sous programme qui appel le RecupProxy j'ai fais l'affichage mais j'ai une erreur.
Voici la source

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
 
#!/usr/bin/perl -w        
# Greetz CodeursSoH   
#                                
################
 
####DECLAR####
use Tk;
use tk::Balloon;
use Tk::Dialog;
use Tk::NoteBook;
$host ="";
$coche =0;
use IO::Socket;
$url = "www.samair.ru";
##############
 
####SUB####
sub Quit {
$quitfen = $fenetre -> Dialog (
                -title => 'Quitter',
                -text => 'Voulez vous quittez petit H4x0r ?',
                -bitmap => 'question',
                -default_button => 'Oui' ,
                -buttons => [ 'Oui','Non' ] );
    $rep = $quitfen -> Show ();
    if ($rep eq 'Oui')
    {
        exit ( 0 ) ;
    }
}
sub Get {   
$socket = IO::Socket::INET->new( Proto => "tcp",    
			         PeerAddr => "$url",   
				 PeerPort => "80");     
print $socket "GET /proxy/index.php HTTP/1.1\nHost: $url:80\nConnection: Close\n\n";
while (my $ligne = <$socket>){
if ($ligne =~ /(\d+).(\d+).(\d+).(\d+):(\S+)/gi) {
print ("ip: $1.$2.$3.$4 port: $5\n");
}
else {
}
}
}
###########
 
$fenetre = new MainWindow ();
$fenetre -> title ("Scan proxy By Nickname");
$bienvenue = $fenetre -> Label ( -text => "Entrez l'host ci dessous");
$bienvenue -> pack ();
$urla = $fenetre -> Entry  (  -textvariable => \$host);
$urla -> pack();
$clic = $fenetre -> Checkbutton (  -text => "Utilisation d'un proxy",
                                   -variable => \$coche);
$clic -> pack();
$quit = $fenetre -> Button (  -text => 'Quit',
		              -command => \&Quit,
			      -underline => 0)
			      -> pack ( -side => 'right' , -padx => 20);
$infoquit = $fenetre -> Balloon ();
$infoquit -> attach ($quit, -balloonmsg => 'Cliquer ici pour quitter',
                            -state => 'balloon');
$scan = $fenetre -> Button (  -text => 'Scan',
			      -underline => 0)
			      -> pack ( -side => 'left' , -padx => 20);
$infoscan = $fenetre -> Balloon ();
$infoscan -> attach ($scan, -balloonmsg => 'Cliquer ici pour Scanner les proxy',
                            -state => 'balloon');
$fenetre -> bind ("<Alt-Key-q>",\&Quit);
 
$img = $fenetre -> Label ( -bitmap => '@/perl/site/lib/tk/Tk.xbm');
$img -> pack ();
 
$texte = $fenetre -> Scrolled (  'Text',
                                 -scrollbars => 'se' , 
                                 -width => 10 , -height => 10 , -tabs => [ '50' ]);
$texte -> pack ();
@bla = &Get;
foreach $ligne (@bla)
{
    $texte -> insert($ligne);
}
MainLoop ();
#############################
#####MOVE YOUR BODY YEAH########
##########NICKNAME###########
############PERL#############
#############IS#############
##########FABULOUS###########
############################

et l'erreur:

wrong # args: should be ".frame.text insert index chars ?tagList chars tagList .
..?" at C:/Perl/site/lib/Tk.pm line 247, <GEN0> line 419.

Si une personne peut me venir en aide ca serai cool merci a tous 8)

**Jedai** · 10/08/2005, 22h12

Comme l'indique très bien le message d'erreur, le problème est sur cette ligne là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$texte -> insert($ligne);

insert() demande deux arguments au minimum, revoyons la partie de la doc concernant cette méthode :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
$text->insert(index, chars, ?tagList, chars, tagList, ...?)
    Inserts all of the chars arguments just before the character at index. If index refers to the end of the text (the character after the last newline) then the new text is inserted just before the last newline instead. If there is a single chars argument and no tagList, then the new text will receive any tags that are present on both the character before and the character after the insertion point; if a tag is present on only one of these characters then it will not be applied to the new text. If tagList is specified then it consists of a list of tag names; the new characters will receive all of the tags in this list and no others, regardless of the tags present around the insertion point. If multiple chars-tagList argument pairs are present, they produce the same effect as if a separate insert widget command had been issued for each pair, in order. The last tagList argument may be omitted.

Et la méthode que tu aurais dû utiliser en réalité (si j'ai bien compris ton intention) se trouve une ligne plus bas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
$text->Insert(string)
    Do NOT confuse this with the lower-case insert method. Insert string at the point of the insertion cursor. If there is a selection in the text, and it covers the point of the insertion cursor, then it deletes the selection before inserting.

Bon Perl !

--
Jedaï

**Nickname** · 11/08/2005, 14h58

Merci Jedai mais je n'y arrive pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
#!/usr/bin/perl -w       
# Greetz CodeursSoH   
#                               
################
 
####DECLAR####
use Tk;
use tk::Balloon;
use Tk::Dialog;
use Tk::NoteBook;
$host ="";
$coche =0;
use IO::Socket;
$url = "www.samair.ru";
##############
 
####SUB####
sub Quit {
$quitfen = $fenetre -> Dialog (
                -title => 'Quitter',
                -text => 'Voulez vous quittez petit H4x0r ?',
                -bitmap => 'question',
                -default_button => 'Oui' ,
                -buttons => [ 'Oui','Non' ] );
    $rep = $quitfen -> Show ();
    if ($rep eq 'Oui')
    {
        exit ( 0 ) ;
    }
}
sub Get {   
$socket = IO::Socket::INET->new( Proto => "tcp",   
                  PeerAddr => "$url",   
             PeerPort => "80");     
print $socket "GET /proxy/index.php HTTP/1.1\nHost: $url:80\nConnection: Close\n\n";
while (my $ligne = <$socket>){
if ($ligne =~ /(\d+).(\d+).(\d+).(\d+):(\S+)/gi) {
print ("ip: $1.$2.$3.$4 port: $5\n");
}
else {
}
}
}
###########
 
$fenetre = new MainWindow ();
$fenetre -> title ("Scan proxy By Nickname");
$bienvenue = $fenetre -> Label ( -text => "Entrez l'host ci dessous");
$bienvenue -> pack ();
$urla = $fenetre -> Entry  (  -textvariable => \$host);
$urla -> pack();
$clic = $fenetre -> Checkbutton (  -text => "Utilisation d'un proxy",
                                   -variable => \$coche);
$clic -> pack();
$quit = $fenetre -> Button (  -text => 'Quit',
                    -command => \&Quit,
               -underline => 0)
               -> pack ( -side => 'right' , -padx => 20);
$infoquit = $fenetre -> Balloon ();
$infoquit -> attach ($quit, -balloonmsg => 'Cliquer ici pour quitter',
                            -state => 'balloon');
$scan = $fenetre -> Button (  -text => 'Scan',
               -underline => 0)
               -> pack ( -side => 'left' , -padx => 20);
$infoscan = $fenetre -> Balloon ();
$infoscan -> attach ($scan, -balloonmsg => 'Cliquer ici pour Scanner les proxy',
                            -state => 'balloon');
$fenetre -> bind ("<Alt-Key-q>",\&Quit);
 
$img = $fenetre -> Label ( -bitmap => '@/perl/site/lib/tk/Tk.xbm');
$img -> pack ();
 
$tex = $fenetre -> Scrolled (  'Text',
                                 -scrollbars => 'se' ,
                                 -width => 30 , -height => 10 , -tabs => [ '50' ]);
$tex -> pack ();
@bla = &Get;
foreach $ligne (@bla)
{
    $tex->Insert($ligne)
}
MainLoop ();
#############################
#####MOVE YOUR BODY YEAH########
##########NICKNAME###########
############PERL#############
#############IS#############
##########FABULOUS###########
############################

Aucune erreur de retour mais ca ne l'add pas dans la partie tk le recupproxy.Il me l'affiche dans le dos puis en meme temps m'ouvre l'interface graphique

j'ai ptetre fais kke chose de mauvais loool

**Jedai** · 11/08/2005, 18h41

Ben forcément, vu que ta fonction Get() ne renvoie rien !! Elle ne fait qu'afficher !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
sub Get {   
  $socket = IO::Socket::INET->new( Proto => "tcp",   
    PeerAddr => "$url",   
    PeerPort => "80");
 
  print $socket "GET /proxy/index.php HTTP/1.1\nHost: $url:80\nConnection: Close\n\n";
 
  while (my $ligne = <$socket>){
    if ($ligne =~ /(\d+).(\d+).(\d+).(\d+):(\S+)/i) {
      print ("ip: $1.$2.$3.$4 port: $5\n");
    }
    else {
    }
  }
}

Ton else est inutile, et il n'y a pas de return !
De plus tu utilises des sockets alors que LWP::Simple t'offre ici une alternative plus lisible :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
 
#!/usr/bin/perl -w       
# Greetz CodeursSoH   
#                               
################
 
####DECLAR####
use Tk;
use tk::Balloon;
use Tk::Dialog;
use Tk::NoteBook;
$host ="";
$coche =0;
use LWP::Simple;
$url = "http://www.samair.ru";
##############
 
####SUB####
sub Quit {
$quitfen = $fenetre -> Dialog (
                -title => 'Quitter',
                -text => 'Voulez vous quittez petit H4x0r ?',
                -bitmap => 'question',
                -default_button => 'Oui' ,
                -buttons => [ 'Oui','Non' ] );
    $rep = $quitfen -> Show ();
    if ($rep eq 'Oui')
    {
        exit ( 0 ) ;
    }
}
sub getProxies {   
  my @proxiesList;
  my $content = get( $url . "/proxy/index.php");    
  push( @proxiesList, "ip: $1.$2.$3.$4 port: $5\n" )
    while ($content =~ /(\d+).(\d+).(\d+).(\d+):(\S+)/gi);
  return @proxiesList;
}
###########
 
$fenetre = new MainWindow ();
$fenetre -> title ("Scan proxy By Nickname");
$bienvenue = $fenetre -> Label ( -text => "Entrez l'host ci dessous");
$bienvenue -> pack ();
$urla = $fenetre -> Entry  (  -textvariable => \$host);
$urla -> pack();
$clic = $fenetre -> Checkbutton (  -text => "Utilisation d'un proxy",
                                   -variable => \$coche);
$clic -> pack();
$quit = $fenetre -> Button (  -text => 'Quit',
                    -command => \&Quit,
               -underline => 0)
               -> pack ( -side => 'right' , -padx => 20);
$infoquit = $fenetre -> Balloon ();
$infoquit -> attach ($quit, -balloonmsg => 'Cliquer ici pour quitter',
                            -state => 'balloon');
$scan = $fenetre -> Button (  -text => 'Scan',
               -underline => 0)
               -> pack ( -side => 'left' , -padx => 20);
$infoscan = $fenetre -> Balloon ();
$infoscan -> attach ($scan, -balloonmsg => 'Cliquer ici pour Scanner les proxy',
                            -state => 'balloon');
$fenetre -> bind ("<Alt-Key-q>",\&Quit);
 
$img = $fenetre -> Label ( -bitmap => '@/perl/site/lib/tk/Tk.xbm');
$img -> pack ();
 
$tex = $fenetre -> Scrolled (  'Text',
                                 -scrollbars => 'se' ,
                                 -width => 30 , -height => 10 , -tabs => [ '50' ]);
$tex -> pack ();
@bla = getProxies();
foreach $ligne (@bla)
{
    $tex->Insert($ligne)
}
MainLoop ();
#############################
#####MOVE YOUR BODY YEAH########
##########NICKNAME###########
############PERL#############
#############IS#############
##########FABULOUS###########
############################

J'ai pas cherché à savoir si le reste marchait, mais s'il y a encore un problème, j'apprécierais que tu m'améliore l'indentation avant...

--
Jedaï

**Nickname** · 12/08/2005, 12h12

merci jedai j'ai plus qu'une tite erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    push(@proxiesList, "ip: $1.$2.$3.$4 port: $5\n")

Use of uninitialized value in pattern match (m//) at perl.pl line 34.

c'est peut etre parce que on demande de mettre dans @proxiesList $1 $é etc... alors que ces variables ne sont pas encore definie non ? je pourrai les definir comment la ? sans alterer le programme.

Merci bien jedai

**Jedai** · 12/08/2005, 19h39

Ton URL ne semble plus fonctionner (à moins que tu n'ais mis une adresse bidon ?), ni avec ta méthode, ni avec la mienne, c'est pourquoi tu n'arrives plus à récupérer tes valeurs. Tu peux modifier la fonction légèrement pour voir si c'est le problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
sub getProxies {   
  my @proxiesList;
  my $content = get( $url . "/proxy/index.php") 
    or die "Pas réussi à avoir l'adresse !\n";    
  push( @proxiesList, "ip: $1.$2.$3.$4 port: $5\n" ) 
    while ($content =~ /(\d+).(\d+).(\d+).(\d+):(\S+)/gi);
  return @proxiesList;
}

--
Jedaï

**Nickname** · 12/08/2005, 20h59

arf exact il arrive plus a recup l'url, je comprend pas pourquoi ta façon de recup l'ul a l'air bonne j'ai essayer d ajouter host et connection mais ca a pas l'air d'etre ok. Vais essayer de debugger si tu as des suggestions y a pas de soucis puis merci de t'etre pencher sur mon probleme.

Vive developpez

et vive ces forumeurs surtout dans la partie perl loool

**Jedai** · 12/08/2005, 22h35

C'est juste un problème d'URL : si tu essaies juste avec "www.samair.ru/proxy/" ça marche, je viens de tester, donc la bonne version serait un truc comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
 
#!/usr/bin/perl -w       
# Greetz CodeursSoH   
#                               
################
 
####DECLAR####
use Tk;
use tk::Balloon;
use Tk::Dialog;
use Tk::NoteBook;
$host ="";
$coche =0;
use LWP::Simple;
$url = "http://www.samair.ru";
##############
 
####SUB####
sub Quit {
$quitfen = $fenetre -> Dialog (
                -title => 'Quitter',
                -text => 'Voulez vous quittez petit H4x0r ?',
                -bitmap => 'question',
                -default_button => 'Oui' ,
                -buttons => [ 'Oui','Non' ] );
    $rep = $quitfen -> Show ();
    if ($rep eq 'Oui')
    {
        exit ( 0 ) ;
    }
}
sub getProxies {   
  my @proxiesList;
  my $content = get( $url . "/proxy/") 
    or die "Pas réussi à avoir l'adresse !\n";    
  push( @proxiesList, "ip: $1.$2.$3.$4 port: $5\n" ) 
    while ($content =~ /(\d+).(\d+).(\d+).(\d+):(\S+)/gi);
  return @proxiesList;
}
###########
 
$fenetre = new MainWindow ();
$fenetre -> title ("Scan proxy By Nickname");
$bienvenue = $fenetre -> Label ( -text => "Entrez l'host ci dessous");
$bienvenue -> pack ();
$urla = $fenetre -> Entry  (  -textvariable => \$host);
$urla -> pack();
$clic = $fenetre -> Checkbutton (  -text => "Utilisation d'un proxy",
                                   -variable => \$coche);
$clic -> pack();
$quit = $fenetre -> Button (  -text => 'Quit',
                    -command => \&Quit,
               -underline => 0)
               -> pack ( -side => 'right' , -padx => 20);
$infoquit = $fenetre -> Balloon ();
$infoquit -> attach ($quit, -balloonmsg => 'Cliquer ici pour quitter',
                            -state => 'balloon');
$scan = $fenetre -> Button (  -text => 'Scan',
               -underline => 0)
               -> pack ( -side => 'left' , -padx => 20);
$infoscan = $fenetre -> Balloon ();
$infoscan -> attach ($scan, -balloonmsg => 'Cliquer ici pour Scanner les proxy',
                            -state => 'balloon');
$fenetre -> bind ("<Alt-Key-q>",\&Quit);
 
#~ $img = $fenetre -> Label ( -bitmap => '@/perl/site/lib/tk/Tk.xbm');
#~ $img -> pack ();
 
$tex = $fenetre -> Scrolled (  'Text',
                                 -scrollbars => 'se' ,
                                 -width => 30 , -height => 10 , -tabs => [ '50' ]);
$tex -> pack ();
@bla = getProxies();
foreach $ligne (@bla)
{
    $tex->Insert($ligne)
}
MainLoop ();
#############################
#####MOVE YOUR BODY YEAH########
##########NICKNAME###########
############PERL#############
#############IS#############
##########FABULOUS###########
############################