Opened by oerbb at 2004-04-16 20:46
User since
2003-09-11
67 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-09-11
67 Artikel
BenutzerIn
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
my $file = "meinedatei.txt"; # Die zu lesende Datei
my (@ioc, @kb, @sdc); # 3 Arrays für 3 Datentypen
open(FH,"<$file") || die $!; # Datei $file öffnen
while(<FH>){ # Schleife
chomp;
push @ioc, $_ if($_ =~ /^psaf/); # Wenn Zeile mit psaf anfängt, rein ins @ioc. $_ ist eine vordefinierte Varialble
push @kb, $_ if($_ =~ /^psrs/); # Wie oben
push @sdc, $_ if(_ =~ /^pssd/); # Wie oben
close(FH);
print "Content-type: text/html\n\n";
print "<html>\n";
print "<body>\n";
print "<table width=100% cellpadding=5 cellspacing=1 bgcolor=black>\n";
foreach(@ioc){
print "<tr>\n";
print "<td bgcolor=white>$_</td>\n";
print "</tr>\n";
}
foreach(@ikb){
print "<tr>\n";
print "<td bgcolor=white>$_</td>\n";
print "</tr>\n";
}
foreach(@sdc){
print "<tr>\n";
print "<td bgcolor=white>$_</td>\n";
print "</tr>\n";
}
print "</table>\n";
print "</body>\n";
print "</html>\n";
Möglicherweise ist die zu lesende Datei leer oder anders als das Beispiel oben. Die Zeilen müssen mit "psaf", "psrs" oder mit "pssd" anfangen. Ändere diese Ausdrücke im Code.