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(); |