- 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
}
}
}
Комментарии (0) RSS
Добавить комментарий