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";
			}
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?

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,