00000000
00000018
00000030
00000048
00000060
00000078
00000090
000000A8
000000C0
000000D8
000000F0
00000108
00000120
00000138
00000150
00000168
00000180
00000198
000001B0
000001C8
| 23 21 2F 6F 70 74 2F 6C 61 6D 70 70 2F 62 69 6E 2F 70 65 72 6C 0D 0A 75
73 65 20 44 42 49 3B 0D 0A 0D 0A 6D 79 20 24 64 73 6E 20 3D 20 27 44 42
49 3A 6D 79 73 71 6C 3A 63 64 63 6F 6C 3A 6C 6F 63 61 6C 68 6F 73 74 27
3B 0D 0A 6D 79 20 24 64 62 5F 75 73 65 72 5F 6E 61 6D 65 20 3D 20 27 72
6F 6F 74 27 3B 0D 0A 6D 79 20 24 64 62 5F 70 61 73 73 77 6F 72 64 20 3D
20 27 27 3B 0D 0A 6D 79 20 28 24 69 64 2C 20 24 70 61 73 73 77 6F 72 64
29 3B 0D 0A 6D 79 20 24 64 62 68 20 3D 20 44 42 49 2D 3E 63 6F 6E 6E 65
63 74 28 24 64 73 6E 2C 20 24 64 62 5F 75 73 65 72 5F 6E 61 6D 65 2C 20
24 64 62 5F 70 61 73 73 77 6F 72 64 29 3B 0D 0A 0D 0A 6D 79 20 24 73 74
68 20 3D 20 24 64 62 68 2D 3E 70 72 65 70 61 72 65 28 71 71 7B 0D 0A 09
53 45 4C 45 43 54 20 69 64 2C 74 69 74 65 6C 2C 69 6E 74 65 72 70 72 65
74 2C 6A 61 68 72 20 46 52 4F 4D 20 63 64 73 20 4F 52 44 45 52 20 42 59
20 69 6E 74 65 72 70 72 65 74 3B 0D 0A 7D 29 3B 0D 0A 24 73 74 68 2D 3E
65 78 65 63 75 74 65 28 29 3B 0D 0A 0D 0A 77 68 69 6C 65 20 28 6D 79 20
28 24 69 64 2C 20 24 74 69 74 6C 65 2C 20 24 69 6E 74 65 72 70 72 65 74
2C 20 24 6A 61 68 72 20 29 20 3D 20 0D 0A 20 20 20 20 24 73 74 68 2D 3E
66 65 74 63 68 72 6F 77 5F 61 72 72 61 79 28 29 29 20 0D 0A 7B 0D 0A 20
20 20 20 20 70 72 69 6E 74 20 22 24 74 69 74 6C 65 2C 20 24 69 6E 74 65
72 70 72 65 74 5C 6E 22 3B 0D 0A 7D 0D 0A 24 73 74 68 2D 3E 66 69 6E 69
73 68 28 29 3B 0D 0A 0D 0A | #!/opt/lampp/bin/perl u
se DBI; my $dsn = 'DB
I:mysql:cdcol:localhost'
; my $db_user_name = 'r
oot'; my $db_password =
''; my ($id, $password
); my $dbh = DBI->conne
ct($dsn, $db_user_name,
$db_password); my $st
h = $dbh->prepare(qq{
SELECT id,titel,interpre
t,jahr FROM cds ORDER BY
interpret; }); $sth->
execute(); while (my
($id, $title, $interpret
, $jahr ) = $sth->
fetchrow_array()) {
print "$title, $inte
rpret\n"; } $sth->fini
sh(); |