Gecko [ 8.222.176.185 ]

Name	Size	Permission
.mad-root	0 B	-rw-rw-rw-
BabelSans-B.fdb	39.25 KB	-rw-rw-rw-
adminer.php	465.43 KB	-rw-rw-rw-
cds.xml	368 B	-rw-rw-rw-
dom.php	1.4 KB	-rw-rw-rw-
ftp-mit-perl.pl	275 B	-rw-rw-rw-
ftp-mit-php.php	1.16 KB	-rw-rw-rw-
interbase.php	754 B	-rw-rw-rw-
interbase.pl	1016 B	-rw-rw-rw-
mingstats.html	698 B	-rw-rw-rw-
mingstats_swf.php	2.84 KB	-rw-rw-rw-
mysql.php	644 B	-rw-rw-rw-
mysql.pl	970 B	-rw-rw-rw-
oracle.php	918 B	-rw-rw-rw-
oracle.pl	960 B	-rw-rw-rw-
postgresql.php	1006 B	-rw-rw-rw-
postgresql.pl	986 B	-rw-rw-rw-
pwnkit	10.99 KB	-rw-rw-rw-
sax.php	1 KB	-rw-rw-rw-
soap.php	677 B	-rw-rw-rw-
sql2xml.php	211 B	-rw-rw-rw-
sqlite.php	745 B	-rw-rw-rw-
sqlite.pl	962 B	-rw-rw-rw-
testperldbi.pl	465 B	-rw-rw-rw-
xmlrss.php	572 B	-rw-rw-rw-

Code Editor : oracle.pl

xxxxxxxxxx
 
#!/opt/lampp/bin/perl
use DBI;
​
print "Content-Type: text/html\n\n";
​
my $dsn="dbi:Oracle:host=localhost;sid=xe";
my $dbh=DBI->connect("$dsn","hr","geheim") or
        die "Kann Datenbank nicht erreichen!";
​
print "<html>";
print "<head>";
print "<title>Perl und Oracle</title>";
print "</head>";
print "<body>";
print "<h1>Perl und Oracle</h1>";
print "<table border=\"1\">";
print "<tr>";
print "<th>Interpret</th>";
print "<th>Titel</th>";
print "<th>Jahr</th>";
print "</tr>";
​
my $query="SELECT * FROM cds";
​
my $prep_sql=$dbh->prepare($query) or  die print "Can't prepare";
$prep_sql->execute() or  die print "Can't  execute";
​
while (my @row = $prep_sql->fetchrow_array())
{
    print "<tr>";
    print "<td>".$row[2]."</td>";
    print "<td>".$row[1]."</td>";
    print "<td>".$row[3]."</td>";
    print "</tr>";
}
​
$prep_sql->finish();
$dbh->disconnect();
​
print "</table>";
print "</body>";
print "</html>";
​

${this.title}

Code Editor : oracle.pl