Discussion :

[erc_fun]

Quand j'utilse use strict en début de script le script sinterrompt au moment de la comparaison avec une chaine.

Ci-joint un extrait :

Code :

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

1
2
3
4
use strict;
 
while (<READER>) {
    if ( $_ =~ /($user)(.*)\[(.*)$hour\:$min\:$sec(.*)\](.*)\"(.*)\"/ ) {

=> plantage sans message d erreur
si je supprime use strict la comparaison s'effectue correctement.

les lignes du fichier parcourus sont du style :
"81.254.38.158 - - [02/Oct/2006:00:36:10 +0100] "POST /home HTTP/1.1" 302 0";


Quelqu un a une idée ?

[rcageot]

essaye de déclarer tes variables à vide avant !
my $user = "";
while ...

[pospos]

contrairement au for le while de defini pas automatiquement $_, donc c'est à toi d'ecrire un truc genre while( my $line = <READER> ) {

[erc_fun]

ben oui,
c'est bien ca : "le while ne définit pas automatiquement $_, "

Ca a l'air de marcher bcp mieux !

Le pire c'est que ca avait l'air de marcher tres bien aussi sans le "use strict".

En tt cas merci bcp.

[2Eurocents]

contrairement au for le while de defini pas automatiquement $_, donc c'est à toi d'ecrire un truc genre while( my $line = <READER> ) {

$_ est une variable intrinsèque de Perl. Elle existe à tout moment de l'exécution du script et sa valeur (ce à quoi elle est définie) dépend du contexte.

Dans un for, elle est définie avec la valeur de l'indice de boucle, lorsque celui ci n'a pas été isolé dans une variable locale.

Dans un while, la structure de boucle n'y touche pas. Elle a donc une valeur qui dépend "d'autre chose".

Dans notre cas, l'opérateur d'E/S <> utilise implicitement $_ s'il n'est pas utilisé avec une autre variable et c'est lui qui définit le contenu de notre $_.

while (<FICHIER>) {} définit donc correctement la valeur de $_ avec la valeur des lignes lues une à une - et heureusement pour tous mes scripts qui l'utilisent.

Je conviens qu'il est plus intéressant, en termes de maintenance et de lisibilité du code, de travailler explicitement sur une variable locale.

Cependant, dans le cas présent ici, il me paraît improbable que ce soit seulement le "while (<READER>)" qui soit à l'origine du problème.

La vérité doit être ailleurs, même si ça semble résolu.

[Arioch]

La vérité doit être ailleurs, même si ça semble résolu.

Ah, j'avais raison alors !!! Pospos :



J'étais persuadé que la remarque de Pospos était fausse, j'attendais justement que qqun contredise ce qu'il disait

2Eurocents

[2Eurocents]

J'étais persuadé que la remarque de Pospos était fausse, j'attendais justement que qqun contredise ce qu'il disait

Moi, j'attendais juste d'avoir accès à ma base de scripts et à un interpréteur Perl. J'avais déjà assez raconté de bétises comme ça ces deux derniers jours où je n'avais pas accès à mes machines.