Stocker les regexp dans des variables avec qr

Stocker les regexp dans des variables avec qr - Perl - Programmation

Marsh Posté le 13-12-2008 à 14:25:23    

Bonjour,
 
J'ai un petit soucis lorsque je stock mes regexps dans des variables avec qr.
 
L'exemple ci dessous fonctionne.
 

Code :
  1. my $regexp_ip = qr/^[0-9]{0,3}\.[0-9]{0,3}\.[0-9]{0,3}\.[0-9]{0,3}$/;
  2. ...
  3. my @ls = readdir(D);
  4.  
  5. foreach(@ls) {
  7.     next unless($_ =~ m/$regexp_ip/i);
  9.     push(@ips, $_);
  11. }


 
L'exemple objet suivant ne fonctionne pas :
 

Code :
  1. ###############################################
  2. #Classe TOTO
  4. package TOTO;
  6. use strict;
  7. use warnings;
  9. sub new {
  11.   my ($class, $path) = @_;
  12.   my $this = {};
  13.   $this->{'regexp_ip'} = qr/^[0-9]{0,3}\.[0-9]{0,3}\.[0-9]{0,3}\.[0-9]{0,3}$/;
  14.   bless($this, $class);
  15.   return $this;
  17. }
  19. sub get {
  21.   my ($this, $key) = @_;
  23.   return defined($this->{$key}) ? $this->{$key} : '';
  25. }
  26. ###############################################
  27. #Classe TITI
  28. package TITI;
  30. use strict;
  31. use warnings;
  32. use TOTO;
  34. sub new {
  36.   my ($class, $toto) = @_;
  37.   my $this = {};
  38.   $this->{'toto'} = $toto; # Ceci est un objet TOTO
  39.   bless($this, $class);
  40.   return $this;
  42. }
  44. sub test_ip {
  46.   ...
  47.  
  48.   my @ls = readdir(D);
  49.  
  50.   foreach(@ls) {
  52.     next unless($_ =~ m/$this->{'toto'}->get('regexp_ip')/i);
  54.     push(@ips, $_);
  56.   }
  57.  
  58.   ...
  60. }


 
Dans ce second exemple j'utilise un objet TOTO qui contient des informations communes à toutes l'application dont des regexp et cet objet est communiqué à tous les autres.
C'est pourquoi je souhaite utiliser sa regexp via $this->{'toto'}->get('regexp_ip'}.
 
Je pense qu'il doit falloir protéger l'appel car c'est un référence ou encore le protéger dans la structure m//, mais je ne vois pas comment faire.
 
Ne vous formalisez pas si il y a des fautes de synthaxe (ormis au niveau de l'appel de la regexp), car j'ai allégé le code pour mon post et tout le reste fonctionne bien sinon.
 
Merci d'avance pour votre aide,
 
Yellu

Reply

Marsh Posté le 13-12-2008 à 14:25:23   

Reply

Marsh Posté le 14-12-2008 à 14:05:59    

Fais un dump pour voir exactement comment sont tes structures.
http://search.cpan.org/~jhi/perl-5 [...] /Dumper.pm
A+,


---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed