Thread ein paar fragen - hilfe :/: njaa perl halt ^^ (46 answers)
Opened by Gast at 2005-07-05 21:49

Derunwissende
 2005-07-13 20:42
#5196 #5196
User since
2005-07-05
20 Artikel
BenutzerIn
[default_avatar]
soll das alles in einer datei stehen oder wo wird da ne andere datei aufgerufen ? hab das jetzt ein bisschen ausprobiert und auch mal was bisschen umgeschrieben...ist aber leider falsch ..

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::CARP qw(fatalsToBrowser);

print "Content-type: text/html\n\n";
print "<html><head><title>Logfile </title></head><body>\n";
print "<form action =\"/cgi-bin/comments.pl\" method=\"post\">\n";
print "<p><b> Logfilename eingeben </b> <br> \n";
print " <p> <input name =\"Logfilename\" size = \"40\" > </p> \n";
print "<p> <input type = \"submit\" value = \"Ok\" > </p> \n";
print "</form>\n";
print "</body></html>\n";

$a = "logfile-accesspoint-1.txt";
$b = "logfile-accesspoint-2.txt";

my $cgi = CGI->new();
print $cgi->header();
my $file= $cgi->param("Logfilename");

if($file == $a) {
   logfile1();
}
elsif($file==$b) {
   logfile1();
}

sub logfile1 {
   open(LOGFILE1, ">$a") or die "kann $a nicht oeffnen: $!\n";
   while(<LOGFILE1>) {
      print;
}

sub logfile2 {
   open(LOGFILE2, ">$b") or die "kann $a nicht oeffnen: $!\n";
   while(<LOGFILE2>) {
      print;
}


naja vielleicht kann mir da mal [wieder mal *g+] weiterhelfen

noch ne kleine frage zwischendurch: wie würde die datei da eben heißen ? - *.cgi? oder doch *.pl? und wenn ich so ne *.cgi datei hätte, wie könnt ich mir die dann in nen browser ansehn bzw wie kann ich mir *.pl dateien im browser ansehn ? ..oder sollte das ne *.html datei sein *g+ ?

mfg

View full thread ein paar fragen - hilfe :/: njaa perl halt ^^