Discussion :

[Jasmine80]

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,

[Gardyen]

s/// te renvoie déjà le nombre de substitution

cf doc perl et leur exemple

Code :

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

$count = ($paragraph =~ s/Mister\b/Mr./g);

[Jasmine80]

Merci, Gardyen

Code :

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

my $count = (( my $content = <$FILE>)  =~ s/$StdInChIKey_old/$StdInChIKey_new/g);

ce code ne fonctionne pas ... je vais creuser dans la doc

[Lolo78]

A mon humble avis, fais-le en plusieurs lignes, tu y gagneras beaucoup en clarté.

Il m'arrive d'enchaîner plusieurs opérations sur une même ligne (par exemple des map, grep, sort, split, join), mais dès que l'on comprend l'idée du pipeline de données, ça reste clair.

Dans ton cas, tout mettre sur une seule ligne obscurcit le code plus qu'autre chose. Applique le principe du KISS: "Keep It Simple and Stupid".

[Philou67430]

Merci, Gardyen

Code :

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

my $count = (( my $content = <$FILE>)  =~ s/$StdInChIKey_old/$StdInChIKey_new/g);

ce code ne fonctionne pas ... je vais creuser dans la doc

Ce code fonctionne très bien chez moi.
As-tu vérifié le contenu de $StdInChIKey_old par exemple ?

Dans le contexte de ta question, je trouve que, par le choix des nommages de variables, l'uniligne reste claire et lisible.
Tu peux cependant supprimer les parenthèses extérieures qui ne sont pas utiles.

[Jasmine80]

Code :

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

my $count = ( my $content = <$FILE>)  =~ s/$StdInChIKey_old/$StdInChIKey_new/g;

Oui, merci, cela fonctionne ce matin, j'ai dû faire une erreur hier.