récupération et substitution en une seule ligne ?

**black bulldog** · 17/12/2014, 14h15

Bonjour,

Dans les lignes suivantes :

Code :

1
2
3
4
5
 
while (<DATA>) {
$var=$_;
$var=~s/titi/toto/;
}

Est ce qu'on peut faire

Code :

$var=$_;

et

Code :

$var=~s/titi/toto/;

en une seule ligne ?
je sais que ce n'est pas long à écrire, mais j'aimerais bien quelque chose de plus "perl" !
Merci
BB

**Philou67430** · 17/12/2014, 14h45

tu peux surtout faire :

Code :

1
2
3
while(my $var = <DATA>) {
  $var =~ s/titi/toto/;
}

Sinon, oui, tu peux écrire :

Code :

(my $var = $_) =~ s/titi/toto/;

**black bulldog** · 17/12/2014, 15h20

j'aime quand les choses sont simples !
Merci

**Philou67430** · 17/12/2014, 17h52

Quand les choses s'écrivent simplement, elles nous donnent la liberté d'écrire des choses complexes.

Langage Perl