- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
my $data = $dbh->selectall_arrayref($sql, {Slice=>{}});
$self->_proccess_data($data);
sub _proccess_data {
    my $self = shift;
    my @array = @_;
    foreach (@array) {
        foreach my $s (@$_) {
            # some code here
        }
    }
}
 Follow us!
 Follow us!
Комментарии (0) RSS
Добавить комментарий