[Problem] CDR in Webbrowser aus MySQL DB

xrated

Mitglied
Gehört zwar nicht direkt hier rein, ich habe die CDR in MySQL und möchte diese über ein Perl Script im Webbrowser darstellen. Mit CSV klappt das ganze schon, deswegen kann ich nicht das Script beliebig umschreiben.

Ich habe jetzt z.B. sowas

Code:
#!/usr/bin/perl
use strict;
use utf8;
use DBI;
use Config::IniHash;
use Data::Dumper;

my $configfile = ReadINI 'config.ini';

my $mysql_host = $configfile->{mysql}->{host};
my $mysql_db = $configfile->{mysql}->{db};
my $mysql_tablecdr = $configfile->{mysql}->{tablecdr};
my $mysql_user = $configfile->{mysql}->{user};
my $mysql_pwd = $configfile->{mysql}->{pwd};

my $dbh;

my $cdrcalldate = $configfile->{CDR}->{colcdrcalldate};

$dbh = DBI->connect("DBI:mysql:database=$mysql_db;host=$mysql_host",$mysql_user,$mysql_pwd,
{
RaiseError => 1,
mysql_enable_utf8 => 1
}
);
$dbh->do("SET NAMES utf8");
$dbh->do("SET CHARACTER SET utf8");

my $sth = $dbh->prepare("SELECT clid,src,dst,$cdrcalldate,billsec,disposition,uniqueid,amaflags from $mysql_tablecdr")
            or die "Can't prepare SQL Statement: $DBI::errstr\n";
$sth->execute() or die "Can't execute SQL statement: $DBI::errstr\n";
my $arrayref = $sth->fetchall_arrayref() or die "Cant fetch: $DBI::errstr\n";
my @temp;

foreach (@$arrayref) {
        push (@temp,[@{$_}]);
}

$sth->finish();
$dbh->disconnect();

print Dumper(\@temp[0]); #prints 1st row of table

for (my $i=0;$i<10;$i++) {
my @cdrentry = split (/', '/,$temp[$i]);
print $cdrentry[0]; #should print first item of first 10 rows, but prints array(0x....

}

Das Problem ist das die Variable $cdrentry[n] immer nur Array(0x....) ausgibt, was muss ich machen um die Werte richtig auszugeben?
 
Zurück
Oben