nicht angemeldet
#!/usr/bin/perl -wT
progi ohne Gewehr,
script als ASCII uploaden,
ausführliche errors stehen in der errorlog
use CGI::Carp qw(fatalsToBrowser);
use strict ;
my $file = 'home/deinedomain/html/';
#pfad zum file eingeben, file muss chmod 666 kürzfristig gesetzt werden
Einlesen
open(FILE,"$file") or die $! "pfad ok?";
my @main = <FILE>;
close(FILE);
Manipulieren
my $chunk = join @main;
$chunk =~ s/<(br|BR)>/\t/g;
$chunk =~ s/\n/\t/g; # passendes aussuchen
$chunk =~ s/\n/#/g;
$chunk =~ s/<(br|BR)>/#/g;
$chunk =~ s/Tante Olga/Beat/g;
Schreiben
open(FILE,">$file") or die $! "chmod vergessen?";
print FILE $chunk;
close(FILE);
print "Content-type: text/html\n\n";
print "<html><body>";
print "<p>Tante Olga war da !<br> damit keine ir(r ?)itierende "premature end of script header" message erscheint</p>";
print "</body></html>";
exit ;