Discussion :

[Jasmine80]

Code :

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

1
2
3
4
5
6
7
8
9
10
use Readonly;
 
my $id = ">gi|161138348|gb|EU128674.1| Brucella abortus strain 2308 pathogenicity island PAIB1 sequence";
 
Readonly::Scalar my $GI		=> qx{gi\|(\d+)\|}xms;
Readonly::Scalar my $GB		=> qx{gb\|([.\w]+)\|}xms;
Readonly::Scalar my $DEFINITION	=> qx{(.+)\z}xms;
Readonly::Scalar my $ID		=> qx{($GI)($GB)($DEFINITION)}xms;
 
my ($gi, $gb, $definition) = $id =~ $ID;

Erreurs :

Unrecognized escape \d passed through at RX_Perl_Best_Practices.pl line 48.
Bareword found where operator expected at RX_Perl_Best_Practices.pl line 48, near "qx{gi\|(\d+)\|}xms"
Unrecognized escape \w passed through at RX_Perl_Best_Practices.pl line 49.
Bareword found where operator expected at RX_Perl_Best_Practices.pl line 49, near "qx{gb\|([.\w]+)\|}xms"
Unrecognized escape \z passed through at RX_Perl_Best_Practices.pl line 50.
Bareword found where operator expected at RX_Perl_Best_Practices.pl line 50, near "qx{(.+)\z}xms"
Bareword found where operator expected at RX_Perl_Best_Practices.pl line 51, near "qx{($GI)($GB)($DEFINITION)}xms"
syntax error at RX_Perl_Best_Practices.pl line 48, near "qx{gi\|(\d+)\|}xms"
syntax error at RX_Perl_Best_Practices.pl line 49, near "qx{gb\|([.\w]+)\|}xms"
syntax error at RX_Perl_Best_Practices.pl line 50, near "qx{(.+)\z}xms"
syntax error at RX_Perl_Best_Practices.pl line 51, near "qx{($GI)($GB)($DEFINITION)}xms"
Execution of RX_Perl_Best_Practices.pl aborted due to compilation errors.

J'utilise Perl 5.8.8 je peux donc utiliser Readonly::Scalar ou simplement Readonly.
Pourriez-vous m'aider à corriger ce code s'il vous plait?
Que pensez-vous de toujours utiliser /xms ... j'ai l'impression que cela complique les choses mais probablement est-ce parce que je n'ai pas encore l'habitude de les utiliser.

Merci.

[iblis]

Bonjour.

Tu es sûre que tu ne voulais pas plutôt écrire :

Code :

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

Readonly::Scalar my $GI=> qr{/gi\|(\d+)\|/xms};

C'est à dire qr au lieu de qx et avec les modifieurs xms dans le qr.

[Jasmine80]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use Readonly;
 
my $id = ">gi|161138348|gb|EU128674.1| Brucella abortus strain 2308 pathogenicity island PAIB1 sequence";
 
Readonly::Scalar my $GI		=> qr{gi\|(\d+)\|}xms;
Readonly::Scalar my $GB		=> qr{gb\|([.\w]+)\|}xms;
Readonly::Scalar my $DEFINITION	=> qr{(.+)\z}xms;
Readonly::Scalar my $ID		=> qr{$GI$GB$DEFINITION}xms;
 
 
my ($gi, $gb, $definition) = $id =~ $ID;

... faudra que je m'achète de lunettes ^^ c'était bien qr au lieu de qx. Ce script fonctionne maintenant. J'ai utilisé qr{} au lieu de qr// le xms était donc bien placé

Utilises-tu xms dans tes expreg?


Merci beaucoup pour ton aide.

[iblis]

Utilises-tu xms dans tes expreg?

Selon mon besoin.

/x quand il vaut mieux commenter pour être à même de comprendre ce qu'on a écrit quelques semaines auparavant. Je ne l'utilise pas si je ne commente pas l'expression régulière car cela ignore les espaces.

/ms si je traite une chaîne multiligne, donc pas par défaut. et parfois juste /s, si je veux simplement matcher dans l'ensemble de la chaîne (par exemple avec un \n au milieu).

[Jasmine80]

Je pose la question parce que dans le livre 'Perl Best Practices' d'O'Reilly, ils conseillent de l'utiliser systématiquement.

[iblis]

Oui, cela fait partie des règles du Best practices que j'enfreins sciemment, en me disant que cela me force à bien connaître le fonctionnement des ancres sous Perl.

Ce qui est bien quand on connaît ce type de règles, c'est qu'on comprend mieux ce qu'on y gagne et ce qu'on y perd à les appliquer. C'est en cela que je trouve Best practices très utile : il donne une vue d'ensemble des forces et des dangers du langage, forces et dangers qui sont souvent liés.

Mais tu as raison dans beaucoup de cas mieux vaut opter pour la lisibilité et la sécurité.