nicht angemeldet
hallo,
Ähhhh ... ist das nicht eher etwas, wofür man sonst RegExpressions einsetzt?
tut er ja
Nö. Ich kann jedenfalls nichts davon erkennen.
Allerdings sehe ich hier auf anhieb keine / die escaped werden müßten!?
Das Script tut in folgender Form wohl das, was es tun soll (allerdings fehlt mir jedes Verständnis dafür, warum man das im Browser lesen können muß):
use CGI;
use strict;
use FileHandle;
use WIN32::Console;
my @zprog;
my $zzpci;
print "Content-type: text/html\n\n";
print "<html><head><meta name="author" content="XXX"></head>";
print "<body><h1>CGI with Windows Registry</h1>";
my $keypci="HKLM\SYSTEM\ControlSet001\Enum\PCI";
@zprog = reg query $keypci \|findstr HKEY;
print "<table border=1 cellpadding=5 style="line: solid blue">";
foreach $zzpci(@zprog){
print "<tr>";
print "<td>$zzpci></td>\n";
print "</tr>";
}
print "</table>";
print "</body></html>";
Grüße aus Berlin
Christoph S.
mailto:christoph.schnauss@berlin.de
http://www.christoph-schnauss.de
ss:| zu:) ls:& fo:) va:) sh:| rl:|