Datei auslesen

[Alexander Foken]

Halo ;
Ich habe eine frage :
Ich habe html dateien die ein perl script einlesen soll in der html datei steht z.b. [kunst] wie kann ich es ereichen ,dass das perl script [kunst] gegen einen wert aus dem parameter $kunst austauscht ?
cu ; Larsiboy

Moin Moin !

$kunst='an einem Stück nasser Seife ein Streichholz anzünden';
open FILE,"<some-file.ext" or die "read: $!";
$text=join ('',<FILE>);
$text=s/[kunst]/$kunst/gse;
close FILE;
open FILE,">same-or-other-file.ext" or die "write: $!";
print FILE $text;
close FILE;

Das ist natürlich ein echter Speicherfresser, optimiert für(TM) zwei unterschiedliche Dateien geht's so:

$kunst='an einem Stück nasser Seife ein Streichholz anzünden';
open INFILE,"<some-file.ext" or die "read: $!";
open OUTFILE,">other-file.ext" or die "write: $!";
while (defined ($line=<INFILE>)) {
  $line=~s/[kunst]/$kunst/ge;
  print OUTFILE $line;
}
close OUTFILE;
close INFILE;

Der Rest steht in der Perl-Doku, siehe auch z.B. unter "in place edit".

Alexander