Je remplace les underscores par des \s* dans $orga_query afin de l'utiliser dans une expression régulière. Cela serait-il plus propre via une substitution?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 my $orga_query_sans_underscore = $orga_query; my @sans_underscores = split /_/, $orga_query_sans_underscore; my $sans_underscore = join '\s*', @sans_underscores; if((exists $h_organismes{$orga_sbjct}) || ($orga_sbjct =~ /$orga_query_sans_underscore/i)){ $alignment = ''; next; print "même organisme\n"; }
Comment faire afin de dire au système que les \s* de $orga_query_sans_underscore doivent être considérés comme des espaces?
Merci,
Partager