Opened by FlorianL at 2007-06-28 11:20
User since
2007-05-18
142 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-05-18
142 Artikel
BenutzerIn
Moin zusammen :)
ich hab hier ein kleines script das ne website abgrasen und mir alle user-id's in ein array schreiben soll, ich erhalte jedoch nur den letzten eintrag...
ich denke das regex matched halt und überschreibt die ganze zeit mein array? ich weiss es nich... hab jetz schon einiges ausprobiert.. dachte eigendlich ich mach sowas mit while, aber ich produziere jedes mal ne endlosschleife
der code:
nochwas: wenn ich ne schleife hab ist ja $_ der aktuelle rückgabewert oder? aber was ist wenn ich darin ein regex mit () verwende? überschreib ich dann $_ ? warum funktioniert $_[1] nicht? :(
$agent->conf =
WWW::Mechanize
ich hab hier ein kleines script das ne website abgrasen und mir alle user-id's in ein array schreiben soll, ich erhalte jedoch nur den letzten eintrag...
ich denke das regex matched halt und überschreibt die ganze zeit mein array? ich weiss es nich... hab jetz schon einiges ausprobiert.. dachte eigendlich ich mach sowas mit while, aber ich produziere jedes mal ne endlosschleife
der code:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11
my @targetsite = $agent->content; foreach (@targetsite) { chomp; my @targets = $_ =~ m/.+act=attack&m=(\d+)/; # regex matched optimal push(@targets,$1); # jetzt ist die id 2 mal drinne :( if ($DEBUG == '1') { print ("DEBUG: Found Target: @targets\n");} }
nochwas: wenn ich ne schleife hab ist ja $_ der aktuelle rückgabewert oder? aber was ist wenn ich darin ein regex mit () verwende? überschreib ich dann $_ ? warum funktioniert $_[1] nicht? :(
$agent->conf =
WWW::Mechanize