Bonjour,

J'avais ce code qui fonctionnait très bien :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
( my $content = <$FILE>)  =~ s/$StdInChIKey_old/$StdInChIKey_new/g;
J'ai ajouté une ligne pour compter le nombre de substitutions, ce qui fonctionne parfaitement également :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
			my $content = <$FILE>;
			my $count = () = $content =~ m/($StdInChIKey_old)/g;
			$content =~ s/$StdInChIKey_old/$StdInChIKey_new/g;
			say  $count."\n".$content;
Y a-'il moyen de faire plus simple, en une seul regexp ?

Merci,