Perl делает запрос SELECT и возвращает массив объектов - PullRequest
Новая
       24

Perl делает запрос SELECT и возвращает массив объектов

0 голосов
/ 14 апреля 2019

Я хочу сделать запрос к базе данных sqlite и вернуть массив объектов.

Я создаю бот-телеграмму, и мне нужно хранить дату последнего сообщения для каждого user_id, потому что telegram API возвращает сообщения, которые я уже прочитал. Итак, я создал базу данных sqlite с двумя таблицами: пользователи и сообщения; users содержит все user_id и username; в сообщениях содержится последнее сообщение, которое я прочитал.

Я сделал эту функцию, она работает, но работает не очень хорошо, потому что она должна воссоздать весь массив объектов (fetchrow_hashref). 

sub sqlLiteSelect {
    my ($db,$table,$columnsRef,$where,$others) = @_;
    my $columns = join(', ', @{ $columnsRef });
    $others ||= '';
    my $query = "select ${columns} from ${table} ${where}${others}";
    my $obj = $db->prepare($query);
    my $ret = $obj->execute() or die $DBI::errstr;
    my @array = ();
    while(my $row = $obj->fetchrow_hashref) {
        my $tmp = {};
        foreach my $column (@{ $columnsRef }) {
            $tmp->{$column} = $row->{$column};
        }
        push @array, $tmp;
    }
    return @array;
}

my @columns  = ('user_id','first_name','username','type');
my $where = ' where user_id in (1,2)';
my @result = sqlLiteSelect($db,'users',\@columns,$where,'');
foreach my $row (@result) {
    print "user_id=$row->{user_id}, username=$row->{username}\n";
}

Я ожидаю, что мой выбор вернет массив объектов без повторного создания его каждый раз.

1 Ответ

2 голосов
/ 15 апреля 2019 
my ($user_id, $first_name, $username, $type);

my $sql = q{
SELECT user_id, first_name, username, type
  FROM users
 WHERE user_id IN (1,2)
};

my $sth = $db->prepare($sql);
$sth->execute or die $DBI::errstr;
$sth->bind_columns(\$user_id, \$first_name, \$username, \$type);

while ($sth->fetch) {
    print "$user_id, $username\n";
}

читать документацию https://metacpan.org/pod/DBI#bind_columns

...