newbie sucht Hilfe :) - #33264 (Datenbanken und Verzeichnisdienste)

J-jayz-Z

2005-05-19 13:19

User since
2005-04-13
625 Artikel
BenutzerIn

Hi,

ich bin ein totaler newbie, was Datenbanke angeht und auch dem DBI Modul. Aber daher, das renee auf seiner website ein so hübsches Beispiel als PDF liegen hat, dachte ich mir, schaust du es dir einfach mal an...
Wenn ich das so mache, wie es renee in seinem Beispiel gemacht hat (für alle die das PDF nicht kennen, hier der Teil, den ich meine):

Code: (dl )

my @ergebnisse;
while (my @row = $sth->fetchrow_array())
{
push (@ergebnisse, \@row);
}

bekomme ich nur folgende Ausgabe:

Code: (dl )

1
2
3

ARRAY(0x82191d0)ARRAY(0x8219c80)ARRAY(0x8219cd4)ARRAY(0x8219d28)ARRAY(0x8219d7c)
ARRAY(0x8219dd0)ARRAY(0x8219e24)ARRAY(0x8219e78)ARRAY(0x8219ecc)ARRAY(0x8219f20)
ARRAY(0x8219f74)ARRAY(0x8219fc8)ARRAY(0x821a01c)ARRAY(0x821a974)ARRAY(0x821a9c8)

und so weiter...
wenn ich es bei mir allerdings so schreibe:

Code: (dl )

my @ergebnisse;
while (my @row = $sth->fetchrow_array())
{
push @ergebnisse, $_ for (@row);
}

print "$_\n" for (@ergebnisse);

bekomme ich zwar die richtigen Ausgaben, würde diese aber gerne etwas formatieren...
Wie kann ich das machen? Ich hab von dem DBI Modul keine Ahnung und bin auch noch ein Perl newbie, also bitte etwas Nachsicht *g
Ich habe 4 Spalten in der Tabelle, das dürfte dafür noch interessant sein, denk ich mal. Danke schonmal für eire Hilfe!
Hier noch das ganze script:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

use DBI;

my $user = '*me*';
my $passwd = '*beep*';
my $db = 'mysql';
my $host = 'localhost';
my $driver = "DBI:mysql:$db:$host";

my $dbh = DBI->connect($driver,$user,$passwd) || die $DBI::errstr;

my $statement = 'SELECT * from filme';
my $sth = $dbh->prepare($statement) || die $DBI::errstr;

$sth->execute() || die $DBI::errstr;

my @ergebnisse;
while (my @row = $sth->fetchrow_array())
{
push @ergebnisse, $_ for (@row);
}

print "$_\n" for (@ergebnisse);

$dbh->disconnect();

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de