nicht angemeldet
Textdateien mit Perl ausgeben.
Hallo, ich habe beispielsweise fünf Dateien rumliegen.
1.txt, 2.txt, 3.txt, 4.txt und 5.txt mit je unterschiedlichen Inhalten.
auf meiner HTML-Seite haben ich fünf Links, die jeweils zu .../blabla/perlscript.pl?zahl=1 (bzw. zahl=2, etc, je nachdem, auf welchen Link man klickt) führen.
und im perlscript soll sowas erscheinen:
#!/usr/bin/perl
print "Content-type:text/html\n\n";
print "<html><head><title>Test Page</title></head>\n";
print "<body>\n";
und hier soll er jetzt die $zahl.txt-Datei einfügen
print "</body></html>\n";
Wie lautet der Befehl, um Dateien einzufügen?
Den such ich verzweifelt... =)
Danke im Voraus,
Flave.
-
Hi,
Wie lautet der Befehl, um Dateien einzufügen?
perldoc -f open
perldoc perlopentut
et.al.Cheatah
-
Hi!
Um dem ganzen noch eins draufzusetzen:
<../../tgcj.htm>
Wo gibts eigentlich diese Flames ("Das hättest du auch in Selfhtml gefunden" , ...) ? -Das hätt glaub ich einen verdient!
Bernhard
-
Hallo Bernhard,
Wo gibts eigentlich diese Flames ("Das hättest du auch in Selfhtml gefunden" , ...) ? -Das hätt glaub ich einen verdient!
<img src="/images/08.gif" alt="">
http://www.teamone.de/selfaktuell/forum/forumsfaq_3.htm#a1
*g*
Ciao,
Tobi<img src="http://www383.l7.xodox.com/87ba30.gif" alt="Tobi`s Welt" style="cursor:hand;" onmouseup="window.location.href='http://www383.l7.xodox.com'" onmouseover="window.status='http://www.tobi-beck.de';return true;" onmouseout="window.status='';return true">
-
hi ho
du stoeberst eindeutig zu wenig auf den Seiten hier....
Nimm dies: http://www.teamone.de/selfaktuell/forum/forumsfaq_3.htm#a4
und das: http://www.blackshirt.de/selfflame/flame.htmlcua
n.d.p.
p.s.: :-)
-
Hi!
Sorry, aber ich muss das jetzt einfach mal ausprobieren!
<img src="/images/04.gif" alt="">
du stoeberst eindeutig zu wenig auf den Seiten hier....
na, es gibt ja soviel, ich habs auch schon mal gesehen, aber mir nicht gemerkt wo ich sie gefunden hab! -Hätt ja nie im Leben damit gerechnet, dass ich mal sowas _austeilen_ werde! Hab eher damit gerechnet, bald mal einen einstecken zu müssen ;-)
Nein, die sind mir ein bissl zu frech! -vor allem die Strafen sind so gemein *g*
Nimm dies: http://www.teamone.de/selfaktuell/forum/forumsfaq_3.htm#a4
Die sind lustig und echt lieb :-)
Alles Liebe
BernhardPS: An Flavio: Nimm's nicht so tragisch, aber trotzdem zu Herzen ;-)
-
-
-
-
Du könntest zum Beispiel die Datei in ein array lesen und dieses an den Browser ausgeben.
etwa so(nur so ne schnelle idee):#!/usr/bin/perl
$dat1 = "d1";
open (DATEI, "$dat1.txt")flock (DATEI, 2);
$max=0;while (<DATEI>)
{
push(@inhalt,$_);
$max++;
}close (DATEI);
flock (DATEI, 8);
print "content-type: text/html\n\n";
print <<html_e;
<html>
<head>
<title>irgendwas</title>
<body>
@inhalt
</body>
</html>
html_e
exit; -
Du könntest zum Beispiel die Datei in ein array lesen und dieses an den Browser ausgeben.
etwa so(nur so ne schnelle idee):#!/usr/bin/perl
$dat1 = "d1";
open (DATEI, "$dat1.txt"); #das semikolon hat beim ersten mal #gefehlt, sorryflock (DATEI, 2);
$max=0;while (<DATEI>)
{
push(@inhalt,$_);
$max++;
}close (DATEI);
flock (DATEI, 8);
print "content-type: text/html\n\n";
print <<html_e;
<html>
<head>
<title>irgendwas</title>
<body>
@inhalt
</body>
</html>
html_e
exit;-
Oder etwas kuerzer (ohne einen extra array):
#!/usr/bin/perl
$dat1 = "d1";
print"content-type: text/html\n\n";
print"<html><head><title>irgendwas</title><body>";
open (DATEI, "$dat1.txt") die "Error opening file";
flock (DATEI, 2);
while(<DATEI>){print $_}
close (DATEI);
print"</body></html>";Sonst wuerd ich das aber genauso machen...
:o)
-