Discussion :

[TabrisLeFol]

Bonjour,

Je viens d'écrire une sous routine mais elle ne passe pas.

Code :

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

1
2
3
4
5
6
sub check_line {
        if(!($_[0]~=$_[1])) {
                print "error : ".$_[0];
                exit 1;
        }
}

Mon but serait de passer en premier argument la ligne a verifier et dans le second mon (ma?) regex. Ecrit directement cela fonctionne mais pas ici (perl n'aime pas cet operateur sur des variables? ), existe il un moyen ?

D'avance merci

[TabrisLeFol]

Etourderie... =~ Je comprenais pas.

Cependant mon test se revele toujours etre faux. C'est à dire que je sors toujours de mon programme et je ne comprends pas d'avantage.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
$/ = "\n";
my $line = <STDIN>;
 
sub check_line {
        if(!($_[0]=~$_[1])) {
                print "error : [".$_[0]."]"."\n";
                exit 1;
        }
}
while(1) {
        check_line($line,"m{^\d{1,2}\n$}");
}

Que je rentre 1 ou a dans mon terminal, j'ai error...

[Jedai]

Etourderie... =~ Je comprenais pas.

Cependant mon test se revele toujours etre faux. C'est à dire que je sors toujours de mon programme et je ne comprends pas d'avantage.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
$/ = "\n";
my $line = <STDIN>;
 
sub check_line {
        if(!($_[0]=~$_[1])) {
                print "error : [".$_[0]."]"."\n";
                exit 1;
        }
}
while(1) {
        check_line($line,"m{^\d{1,2}\n$}");
}

Que je rentre 1 ou a dans mon terminal, j'ai error...

C'est probablement parce que tu n'as pas de lignes commençant pas "m{" dans ton fichier...

Le m{ } fait partie du code, pas de la regex, un script correct serait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
local $/ = "\n";
 
sub check_line {
    my( $string, $regex ) = @_;
        if( $string !~ m{$regex} ) {
                print "error : [$string]\n";
                exit 1;
        }
}
 
while(1) {
  my $line = <STDIN>;
  check_line($line, '^\d{1,2}\n$');
}

(note l'emploi de simple quotes plutôt que de double quotes autour du texte dont on va faire une regex, c'est important pour éviter que les caractères spéciaux soient interprétés trop tôt).

Mais je te conseille plutôt d'envoyer des regexs compilés avec qr(), c'est plus propre et ça évite d'avoir à se poser des questions d'interpolation précoce :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
local $/ = "\n";
 
sub check_line {
    my( $string, $regex ) = @_;
        if( $string !~ m{$regex} ) {
                print "error : [$string]\n";
                exit 1;
        }
}
 
while(1) {
  my $line = <STDIN>;
  check_line($line, qr{^\d{1,2}$});
}

(le \n à la fin de la regex n'est pas nécessaire, $ va le matcher automatiquement)

--
Jedaï

[TabrisLeFol]

ok , merci. Cela fonctionne mieux.
Et en plus j'ai appris des choses?

Par contre pour le qr, c'est juste quand on utilise des strings pour passer les regex, non ?
m{qr{^\d{1,2}$}} n'a pas de sens.

NB : J'ai essayé de lire une doc au sujet de qr, mais pour l'instant je trouve cela compliqué. (L'explication, pas l'usage.)

EDIT : Et j'ai un nouveau problème : Comment faire pour recuperer les variables $1, $2 ... Car si j'ai bien compris, elles ont initialisées au niveau de ma fonction et donc invisible apres l'appel de cette fonction...

RE-EDIT : problème résolu, on ecrivant autrement ma fonction. (Le test se fait maintenant avant l'appel. )

[Jedai]

m{qr{^\d{1,2}$}} n'a pas de sens.

Non, effectivement, mais qr{ }ne construit pas une chaîne de caractère, il construit une regex déjà compilé. m/$rx/ utilise directement cette regex compilée sans la recompiler si $rx contient une regex, alors qu'elle l'interpole simplement si $rx contient une string.

--
Jedaï