Perl tk

Version imprimable

Perl tk

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:

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:

Citation:

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)

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

Code:

$texte -> insert($ligne);

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

Code:

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:

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ï

Merci Jedai mais je n'y arrive pas

Code:

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 :roll:

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

Code:

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:

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... :wink:

--
Jedaï

12/08/2005, 12h12
Nickname

merci jedai j'ai plus qu'une tite erreur

Code:

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 :)

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:

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ï

12/08/2005, 20h59
Nickname

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 :D

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:

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###########
############################

Bonne chance pour la suite !

--
Jedaï

13/08/2005, 17h07
Nickname

Rah y a pas a dire il assure le Jedai merci beaucoup pour ton aide si précieuse. :lol:

++