我刚刚开始使用Perl CGI和MySQL数据库与html模板。我有一个表称为“保留”和模板称为显示。html。现在我显示最大的reserve_id。但如何显示在之间的id和只有id当reserve_status是3。
1.表数据[预留]：

reserve_id  reserve_status
34001             2
34002             2
34003             3
34004             3
35001             3
35002             3
35003             2
36000             3
36000             2
37000             3
37001             3
37002             2
40000             1
40001             3
40002             1

1.文件[教科书公用学生]：

sub GetReceiptNumber(){
    my $self = shift;
    my $status = shift;
    my $dbh = $self->{'dbh'};

    my $sql = "select *, MAX(reserve_id) as id from reserve where reserve_status = ? ";
    my @keys = ('reserve_status');
    return $dbh->selectall_hashref($sql, @keys, undef, $status);
}

1.文件[索引.cgi]：

use TextBookCommonStudent;
use Data::Dumper;
use CGI;

my $TextBookCommonStudent = TextBookCommonStudent->_new()->DBConnect();

get '/Show' => sub {
    my $self = shift;
    my @breadcrumb = ('Show');

    my $ReceiptNumber = $TextBookCommonStudent->GetReceiptNumber('3');
    my $number = $ReceiptNumber->{'3'}->{'id'};
    $self->stash('ReceiptNumber'=> $number);

    $self->stash('breadcrumb'=> \@breadcrumb);
    $self->render('Show');
};

1.模板[Show.html]：

<%
    use Data::Dumper;
    my $ReceiptNumber = stash('ReceiptNumber');
%>
<div class="row">
    reserve numbers: <%= $ReceiptNumber %>
</div>

输出当前显示：

reserve numbers: 40001

但我想通过以下几点来说明：

reserve numbers: 34003~35002,36000,37001~37002,40001

我怎样用perl cgi显示上面的数据？