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
Meinst Du sowas?
\n\n
<!--EDIT|x-man|1082210379-->
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
my (@ioc, @kb, @sdc);
open(FH,"<$file") || die $!;
while(<FH>){
chomp;
push @ioc, $_ if($_ =~ /^psaf/);
push @kb, $_ if($_ =~ /^psrs/);
push @sdc, $_ if(_ =~ /^pssd/); #<- Fehler hier _ anstatt $_
close(FH);
#<- Fehler gefunden { fehlt
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){#<- Fehler gefunden @ikb anstatt @kb
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";
<!--EDIT|x-man|1082210379-->