Discussion :

[ma2th]

Bonjour à ceux à qui je n'ai pas écrit!

Alors il m'arrive un truc très bizarre pour mon petit esprit... J'ai

Code :

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

if($URL =~/$redir/i)

et quand $URL="http://www.enba-lyon.fr/" et que $redir="fbeifbbe", on rentre dans le if!
Est-ce qu'il y a des caractères spéciaux que je ne connais pas (fort possible!) là-dedans?
Est-ce qu'il existe une regex qui ne matche jamais ou quasi-jamais?

Merci d'avance!

Matthieu

[ma2th]

euhhh. en fait ca matche aussi avec $redir="paozioeuryrtyfghjkcndks";

Je comprends plus!

Est-ce que le fait de mettre une variable dans une expression reguliere /$redir/ peut poser problème? jusqu'ici, je n'en ai jamais eu...

[hasop]

l'erreur doit etre ailleur.

Tu peux mettre le bout de code complet ?

[ma2th]

Je vais pas te mettre le code complet parce qu'il est beaucoup trop long mais voilà ce qui intéresse $redir:

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
my $redir = "oiiieifij";
while (..) 
{
   ... (tests qui ne concernent ni $URL ni $redir)
   my $URL=$tab_line[10];                                  
   if($URL =~/$redir/i)
   {
      $filtre=1;  $redir="paozioeuryrtyfghjkcndks";
   }
   ...(autres tests)
   my $ua = LWP::UserAgent->new();                      
   $ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
   $ua->proxy(['http', 'ftp','https'] =>'proxy:port');
   $ua->timeout(30);
   $ua->requests_redirectable("");
   my $req = HTTP::Request->new(GET => $URL);         
   $req->referer("http://www.toto.fr");                   
   my $response = $ua->request($req);                    
   if ($response->is_redirect)
   {
      $redir = $response->header('Location');
   }
   ... (encore des tests)
}

Je fais ca sur un grand nombre d'url (boucle) et ca plante sur celle-là...
Une idée?

Matthieu

[Jedai]

Intéressant.............
Malheureusement, je n'arrive pas à répéter ce problème chez moi, et je ne vais donc pas pouvoir t'aider, je te suggérerais de vérifier soigneusement le contenu des deux variables juste avant le test.

--
Jedaï

[ma2th]

Bonjour tout le monde,

Eh bien c'était bien de la magie!
Je relance mon perl ce matin et hop, ca ne fait plus de problème... Je ne sais pas ce qui s'est passé.
Voilà! désolé du dérangement et merci de m'avoir aidé!

Matthieu