qq und Dateien

[Beate Mielke]

Hallo Thomas;

In einer Textdatei steht:
Ich heiße $Name und bin $Alter Jahre alt.

Im Programm habe Initialisiere ich die Variablen $Name und $Alter, lesen die Datei ein und
$Name="Thomas Hofmann";
$Alter="31";
open(TEMPLATE,$READFILE);
$Template=<TEMPLATE>;
close TEMPLATE;
print qq($Template);

So funktioniert es:

bevor Du die letzte Ausgabe schreibst noch:

$Template =~ s/$Name/$Name/;
$Template =~ s/$Alter/$Alter/;

danach

print qq($Template);

Viele Gruesse

Beate Mielke