Opened by jemand at 2004-06-08 19:06
User since
2004-05-14
231 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-05-14
231 Artikel
BenutzerIn
[quote=renee,22.06.2004, 21:50]Zeig mal Dein Skript, vielleicht ist da auch das Problem...[/quote]
ich habs schon mit 4 skripten versucht
hier ist 1
ich habs schon mit 4 skripten versucht
hier ist 1
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!Perl -w
##zusatz
use CGI::Carp qw(fatalsToBrowser);
open(DATEI, '>>test.txt');
print DATEI 'Dies ist ein Test';
close(DATEI);
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 //EN">';
print '<html>';
print '<head>';
print '</head>';
print '<body><h1>hatz geklappt???!!</h1><br>Ich hoff es geht!!!<br><br><br><br>';
open(DATEI, '<test.txt');
my @daten = <DATEI>;
close(DATEI);
print $_.'<br>' for @daten;
print '</body></html>';
close(DATEII);
print uc 'i',chr(29*4).q+'s +.++($_=q-m-),++$_;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;