Opened by Gast at 2009-01-14 01:45
User since
2003-08-07
2921 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-07
2921 Artikel
BenutzerIn
Bei mir funktioniert das:
Du hast einen Tippfehler der foreach-Schleife. Dort steht bei dir @driver, du liest die Treiber aber in @drivers ein.
use strict; macht dich auf so etwas aufmerksam.
Irgendwo im Wiki gibt es einen Artikel dazu, warum du strict immer und überall verwenden solltest (kann den mal jemand verlinken?).
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
#!/usr/bin/perl
=comment
dbi2.pl vorhandene Datenbanktreiber
=cut
use strict;
use warnings;
use DBI;
use CGI;
my $q = CGI->new();
#print "Content-type: text/html\n\n";
print $q->header();
my @drivers = DBI->available_drivers();
print "vorhandene Treiber:<br>";
foreach (@drivers){
print "$_<br>";
}
Du hast einen Tippfehler der foreach-Schleife. Dort steht bei dir @driver, du liest die Treiber aber in @drivers ein.
use strict; macht dich auf so etwas aufmerksam.
Irgendwo im Wiki gibt es einen Artikel dazu, warum du strict immer und überall verwenden solltest (kann den mal jemand verlinken?).
http://www.intergastro-service.de (mein erstes CMS :) )