nicht angemeldet
Daten in Schleife öffnen und auswerten
Hallo ,
hier mein Problem.
Ich möchte gern alle drei Dateien auswerten und von jeder txt-datei die Zeile mit dem höchsten Wert ausgeben.
Das mit der Auswertung und Ausgabe geht, aber nur bei einer txt.datei.
Ich will aber alle drei auswerten und ausgeben.
#!\bin\perl
use CGI;
my $q=new CGI;
my @text = ("daten/a.txt", "daten/p.txt", "daten/w.txt" "daten/c.txt") ;
print "Content-type: text/html\n\n";
#ERST HABE ICH ES SO VERSUCHT
#open (DATEN, " $text[1]") or die $!;
#my @daten = <DATEN>;
#close DATEN;
Und jetzt so, er wertet auch vier mal aus, aber nur eine Datei
foreach $daten("daten/p.txt", "daten/a.txt", "daten/w.txt", "daten/c.txt") {
open(DATEN, "$daten");
my @daten = <DATEN>;
close DATEN;
my $i = 0;
my (@zaehler, $summe, $hoechste_summe, $gesuchter_index);
foreach (@daten) {
@zaehler = split(/&&/, $_);
$summe = $zaehler[0] + $zaehler[1] + $zaehler[2] + $zaehler[3];
if ($summe > $hoechste_summe) {
$hoechste_summe = $summe;
$gesuchter_index = $i;
}
$i++;
}
@zaehler = split(/&&/, $daten[$gesuchter_index]);
print qq'
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Neue Seite 1</title>
</head>
<body bgcolor="#336699" topmargin="2" leftmargin="2" marginheight="2" marginwidth="2">
<form method="POST" action="rechn.cgi">
<input type=hidden name="id" value="$zaehler[23]">
<input type=hidden name="typ" value="$zaehler[15]">
<table border="0" width="$zaehler[22]" height="110" bgcolor="$zaehler[5]" cellspacing="1" cellpadding="2">
<tr>
<td width="$breit" height="19" colspan="2" bgcolor="$zaehler[6]"><b><font size="2" face="$zaehler[9]" color="$zaehler[7]">$zaehler[12]</font></b></td>
</tr>
<tr>
<td width="" height="14" bgcolor="$zaehler[6]"><font color="$zaehler[8]" face="$zaehler[9]" size="1"><input type="radio" value="1" name="sgut">$zaehler[17]</font></td>
<td width="145" height="14" bgcolor="$zaehler[6]"><font color="$zaehler[8]" size="2" face="$zaehler[9]"><img border="0" src="" width="140" height="0"><br>
<img border="0" src="image/$zaehler[10]" width="$sg"
'
;
printf "height="15"> %.2f%", $sgutproz ;
print qq'</font></td>
</tr>
<tr>
<td width="" height="14" bgcolor="$zaehler[6]"><font color="$zaehler[8]" face="$zaehler[9]" size="1"><input type="radio" value="1" name="gut">$zaehler[18]</font></td>
<td width="145" height="14" bgcolor="$zaehler[6]"><font color="$zaehler[8]" size="2" face="$zaehler[9]"><img border="0" src="image/$zaehler[10]" width="$g" height="15">
'
;
printf "%.2f", $gutproz ;
print qq'
%</font></td>
</tr>
<tr>
<td width="$breit" height="19" colspan="2" bgcolor="$zaehler[6]"><b><font face="$zaehler[9]" size="1" color="$zaehler[7]">$abstimm User haben bereits abgetimmt</font></b></td>
</tr>
<tr>
<td width="$breit" height="19" colspan="2" bgcolor="$zaehler[6]"><input type="submit" value="Abstimmen" name="B1"style="background-color:$zaehler[11]"></td>
</tr>
</table>
</form>
</body>
</html>
';
}