[PERL] expression reg again ...

sbouli Messages postés 200 Date d'inscription Statut Membre Dernière intervention -
lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention - 26 août 2010 à 19:24

re-Bonjour,

J'ai finalement activer strict et warning sur un de mes vieux code et je suis confronté à une bêtise .. pas de cambrais :

la ligne

if ($to && $to ne "" && $status =~ m/(valeur1|valeur2|valeur3)/i ){

me renvoie l'erreur :

Use of uninitialized value in pattern match (m//)

quand la ligne du fichier ne contient ni valeur1, ni valeur2, ni valeur3 ... dois-je ajouter un test d'existence ? je pensais que le m correspondait à match .... je comprend plus

Stéphane

Afficher la suite

A voir également:

[PERL] expression reg again ...
Reg cleaner - Télécharger - Nettoyage
Expression écrite cm1 cm2 télécharger gratuit - Télécharger - Éducatifs
Microsoft expression encoder - Télécharger - Divers Utilitaires
Sorry this video can not be played. please try again or pick another video iptv traduction - Forum Téléviseurs
Network error please reload the page & play the video again - Forum YouTube

4 réponses

Réponse 1 / 4

lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention 3 570

Salut,

Affiche ton if complet.

Réponse 2 / 4

lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention 3 570

Re,

Sinon j'aurais écrit comme ça

if( $status =~ m/(valeur1|valeur2|valeur3)/i){  
  if ($to ne ""){  
  .....  
  }  
}else{  
 ...  
}

--
GNU/Linux:Linux is Not Ubuntu! Quel linux choisir ne veut pas dire votre Distribution préférée,
106485010510997108

Réponse 3 / 4

sbouli Messages postés 200 Date d'inscription Statut Membre Dernière intervention 2

ben il est complet :

     if ($to && $to ne "" && $status =~ m/(valeur1|valeur2|valeur3)/i ){
	   delete($tableau_to{$id});
     }

lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention 3 570

Re,

Maintenant, oui il est complet.

$to && $to ne "" peut être écris tout simplement $to ne ""

Teste et affiche ça.

if ($to ne "" && $status =~ m/valeur1|valeur2|valeur3/i ){
  print "$to - $status\n";
}

sbouli Messages postés 200 Date d'inscription Statut Membre Dernière intervention 2

alors là je dois dire que je ne pense pas ... si je test uniquement avec $to ne "" j'ai :
Use of uninitialized value in string ne

si j'ajoute un test sur $to ça passe ...

Réponse 4 / 4

sbouli Messages postés 200 Date d'inscription Statut Membre Dernière intervention 2

j'ai fais l'inverse :

if ($to && $to ne "") {
			if ($status =~ m/(valeur1|valeur2|valeur3)/i ){
				delete($tableau_to{$id});
			}
		}

et j'ai la même erreur sur la ligne :

if ($status =~ m/(expired|bounced|sent)/i ){

Use of uninitialized value in pattern match (m//)

j'ajoute que c'est une erreur qui se reproduit à plusieurs endroit de mon code comme par exemple :

($info1,$info2,$info3)=$tmp_from=~/([^_|\n]*)?_?([^_|\n]*)?_?([^_|\n]*)?$/o;

PS :j'aurais pu utiliser split pour celle là :)

lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention 3 570

Re,

Mais $id c'est quoi?
Test ton if avec des print puisque ce n'est pas forcement que l'erreur vienne de la condition if

Test ça

if ($to ne "" && $status =~ m/valeur1|valeur2|valeur3/i ){
  print "$to - $status - $id\n";
}

lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention 3 570

Re,

Tu n'est pas dans une boucle while par hasard?

sbouli Messages postés 200 Date d'inscription Statut Membre Dernière intervention 2

eu si ... je lis un fichier ligne à ligne ....

pour répondre à ta question sur le $id il vient de plus haut (plusieurs endroit possible) et juste avant le if en question j'ai cette ligne :

$to = $tableau_to{$id};

lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention 3 570

Re,

Ben, affiche ta boucle entière pour voir.

Sinon pour ne et "" regarde un test

$ perl -e 'print $n if $n ne ""'
$ perl -e '$n="a"; print $n if $n ne ""'
a

sbouli Messages postés 200 Date d'inscription Statut Membre Dernière intervention 2

la boucle entière ça représente 90% du fichier et comme je dois "nettoyer" toutes informations personnelles aux internautes ... ça me prend un temps certains ...
si tu le souhaites, je te mail le script, un fichier de log de test pour que tu vois ....

Stéphane

Discussions similaires

Que veut dire "Susu" ?

c est quoi un ping???????

définition de ping

message d'erreur network error

Extraire le contenu de plusieurs fichiers

Votre réponse

Discussions similaires