dynamic backreference
Le
luc2
bonjour, j'en ai marre.
#!/usr/bin/perl
use strict;
my $a = 'salut fabrice';
my $b = 'bonjour $1';
$a =~ s/salut (.*)/$b/;
print "$a";
#!/usr/bin/perl
use strict;
my $a = 'salut fabrice';
my $b = 'bonjour $1';
$a =~ s/salut (.*)/$b/;
print "$a";
Poser une question
Oui et ?
bin, l'ordinateur refuse d'obeir aux ordres. on dirait qu'il a developpe
sa propre conscience, et qu'il veut de prendre son destin en main. je
lui ordonne de dire "bonjour fabrice", et il prefere dire "bonjour $1"
Et oui, tu as PERDU.
luc2
Vous n'êtes vraiment ni très clair ni très rigoureux dans votre
demande... (Sauf bug matériel, un ordinateur fait toujours exactement ce
qu'on lui demande. Si vous pensez qu'il a sa propre conscience, arrêtez
la programmation car vous n'y arriverez jamais. Par ailleurs, un
ordinateur étant bête par nature, il faut lui expliquer clairement et
rigoureusement ce qu'on souhaite qu'il fasse. Et pour être clair et
rigoureux vis-à-vis d'un ordinateur, il faut savoir l'être vis-à-vis de
ses congénères.)
Bon, comme je suis pas trop fatigué ce soir, j'ai essayé de comprendre
ce que vous souhaitiez faire (j'ai donc tenté de faire *votre* boulot)
et j'espère que ma boule de cristal n'est pas trop rouillée (ça rouille
ces trucs-là ?).
Je vous donne un bout de code. Débrouillez-vous pour comprendre pourquoi
ça marche... ou pas.
#######################
use strict;
use warnings;
my $a = 'salut fabrice';
my $b = '"bonjour $1"';
$a =~ s/salut (.*)/$b/ee;
print "$an";
#######################
--
Paul Gaborit - Perl en français -
mais pourquoi est-il si mechant
merci
y aurait-il une solution sans eval ?