Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
 |
|< 1 2 >| |  |
19 Einträge, 2 Seiten |
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
Data::Dumper in der while-Schleife den Inhalt von $row_ref ausgeben. Dann wirst Du erkennen, dass der Inhalt immer gleich bleibt!
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
33
34
35
36
37
#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use DBI;
#Variabeln Deklarierung
my $dbname="cdliste";
my $username="root";
my $pw="123";
my $db = "DBI:mysql:$dbname";
#Die Verbindung zur Datenbank wird hergestellt
my $dbh = DBI->connect($db, $username, $pw, { RaiseError => 1 }) || die("Kann DB nicht öffnen!");
sub selecthashref{
my ($statement,@array) = @_;
unless(my $sth = $dbh->prepare( $statement)){
die $dbh->err().": ".$dbh->errstr();
}
$sth->execute() or die $dbh->errstr();
while(my $hashref = $sth->fetchrow_hashref()){
push(@array,$hashref);
}
return \@array;
}
#Legt den Dokumenttypen fest
print "Content-type: text/html; charset=iso-8859-1\n\n";
foreach my $row_ref(@{selecthashref("SELECT * FROM ordner ORDER BY ordnername ASC")}){
print "$row_ref->{ordnerid}\n";
}
1
2
3
4
5
6
7
8
9
Schrift
Tipp zum Debugging
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
sub selecthashref{
my ($statement,@array) = @_;
my $sth = $dbh->prepare( $statement) or die $dbh->err().": ".$dbh->errstr();
$sth->execute() or die $dbh->errstr();
while(my $hashref = $sth->fetchrow_hashref()){
push(@array,$hashref);
}
return \@array;
}
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
33
34
35
#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use DBI;
#Variabeln Deklarierung
my $dbname="cdliste";
my $username="root";
my $pw="123";
my $db = "DBI:mysql:$dbname";
#Die Verbindung zur Datenbank wird hergestellt
my $dbh = DBI->connect($db, $username, $pw, { RaiseError => 1 }) || die("Kann DB nicht öffnen!");
sub selecthashref{
my ($statement,@array) = @_;
$sth = $dbh->prepare( $statement);
$sth->execute() or die $dbh->errstr();
while(my $hashref = $sth->fetchrow_hashref()){
push(@array,$hashref);
}
return \@array;
}
#Legt den Dokumenttypen fest
print "Content-type: text/html; charset=iso-8859-1\n\n";
foreach my $row_ref(@{selecthashref("SELECT * FROM ordner ORDER BY ordnername ASC")}){
print "$row_ref->{ordnerid}\n";
}
1
2
3
4
5
foreach my $row_ref(@{selecthashref("SELECT * FROM ordner ORDER BY ordnername ASC")}){
print "$row_ref->{ordnerid}\n";
}
1
2
3
4
5
6
7
8
9
10
[...]
sub selectsinglehashref{
my ($statement) = @_;
$sth = $dbh->prepare( $statement);
$sth->execute() or die $dbh->errstr();
my $hashref = $sth->fetchrow_hashref();
return $hashref;
}
my $row_ref = selectsinglehashref("select-statement");
1
2
my $hashref = $db->selectrow_hashref($statement)
or die "Error in executing sql: $DBI::errstr\n\t$statement\n";
1
2
3
4
5
6
7
8
9
10
[...]
sub selectsinglehashref{
my ($statement) = @_;
$sth = $dbh->prepare( $statement);
$sth->execute() or die $dbh->errstr();
my $hashref = $sth->fetchrow_hashref();
return $hashref;
}
my $row_ref = selectsinglehashref("select-statement");
|
|< 1 2 >| | |
19 Einträge, 2 Seiten |
![[Powered by Battie]](/battie/img/powered.png)
