|< 1 2 >| | 19 Einträge, 2 Seiten |
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
#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use DBI;
#Variabeln Deklarierung
$dbname="cdliste";
$username="root";
$pw="123";
$db = "DBI:mysql:$dbname";
#Die Verbindung zur Datenbank wird hergestellt
$dbh = DBI->connect($db, $username, $pw, { RaiseError => 1 }) || die("Kann DB nicht öffnen!");
sub selecthashref ($){
$sth = $dbh->prepare( $_[0] ) or return "$DBI::err: $DBI::errstr";
$sth->execute();
return $sth->fetchrow_hashref();
};
#Legt den Dokumenttypen fest
print "Content-type: text/html; charset=iso-8859-1\n\n";
while ($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
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/usr/bin/perl
use strict;
use warnings;
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
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/usr/bin/perl -w
use strict;
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 $sth = $dbh->prepare( $_[0] ) or return "$DBI::err: $DBI::errstr";
$sth->execute() or die $dbh->errstr();
return $sth;
};
#Legt den Dokumenttypen fest
print "Content-type: text/html; charset=iso-8859-1\n\n";
my $sth = selecthashref("SELECT * FROM ordner ORDER BY ordnername ASC");
while ($row_ref = $sth->fetchrow_hashref()){
print "$row_ref->{ordnerid}\n";
}
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
#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use DBI;
#Variabeln Deklarierung
$dbname="cdliste";
$username="root";
$pw="123";
$db = "DBI:mysql:$dbname";
#Die Verbindung zur Datenbank wird hergestellt
$dbh = DBI->connect($db, $username, $pw, { RaiseError => 1 }) || die("Kann DB nicht öffnen!");
sub selecthashref ($){
$sth = $dbh->prepare( $_[0] ) or return "$DBI::err: $DBI::errstr";
$sth->execute();
return $sth->fetchrow_hashref();
};
#Legt den Dokumenttypen fest
print "Content-type: text/html; charset=iso-8859-1\n\n";
[b]
$row_ref = selecthashref("SELECT * FROM ordner ORDER BY ordnername ASC");
while ($row_ref){[/b]
print "$row_ref->{ordnerid}\n";
}
1
2
3
4
use Data::Dumper;
my $arref = selecthashref("SELECT * FROM ordner ORDER BY ordnername ASC");
print Dumper($arref);
|< 1 2 >| | 19 Einträge, 2 Seiten |