Datei auslesen

[Alexander Foken]

Das Script legt eine Datei an aber sonst nichts !
also meine ausgabe datei heisst t_artikel.htm , aber mein script zeigt nichts an , warum ?

Laß mich raten: Du haßt vergessen, uns zu sagen, daß Du ein CGI-Script hast/haben willst.

CGIs schreiben ihr Ergebnis an die Standard-Ausgabe.

#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(header);

my $line;
my $kunst='nasse Seife';

open FILE,"<dunno.html" or die "dunno.html: $!";
print header();
while (defined ($line=<FILE>)) {
  $line=~s/[kunst]/$kunst/ge;
  print $line;
}
close FILE;

Alexander