VPF::Передать массивы из sub что находится в библиотеке

MoXxX

Дата 25.1.2009, 01:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 13.8.2007

Репутация: нет
Всего: нет

Есть следующая подпрограмма в библиотеке some/func.pm

Код


my $cache_tables = "mysql.db";
...
sub rdb{
## функция чтения из таблиц, по ранее записанным данным в mysql.db
my ($self, $table_root) = @_; # получаем из оператора вызова подпрограммы корень таблицы
open(F, "< $cache_tables") or die $!;
$t=0;
while (<F>) {
      $table, $rows = split(/\:/);
if($table =~ /$table_root/i){
$t_id=$t;
$tables[$t] = $table;
$id_{$table}=$t+1;
$rows[$t] = $rows;
$t++;
}
}
close(F);

return (@tables, @rows, $t_id);
}

вызов подпрограммы

Код


...
some::func->rdb('root_');
my $statement = "select @rows from @tables";

необходимо получить 2 массива @tables и @rows для последующей подстановки в запрос

tolkien

Дата 25.1.2009, 04:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 277
Регистрация: 5.4.2008

Репутация: 4
Всего: 4

надо в функцию дополнительно передать 2 параметра по ссылки

Код



...
my @rows = ();
my @tables = ();
some::func->rdb('root_', \@rows, \@tables );
my $statement = "select @rows from @tables";

Код


sub rdb{
## функция чтения из таблиц, по ранее записанным данным в mysql.db
my ($self, $table_root, $a_rows, $a_tables) = @_; # получаем из оператора вызова подпрограммы корень таблицы
open(F, "< $cache_tables") or die $!;
$t=0;
while (<F>) {
      $table, $rows = split(/\:/);
if($table =~ /$table_root/i){
$t_id=$t;
#$tables[$t] = $table;
$a_tables->[$t] = $table;
$id_{$table}=$t+1;
#$rows[$t] = $rows;
$a_rows->[$t] = $rows;
$t++;
}
}
close(F);
#return (@tables, @rows, $t_id);
return $t_id;
}

ginnie

Дата 27.1.2009, 12:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

MoXxX, еще можно так

Код


my ($tables, $rows, $t_id) = some::func->rdb('root_');

а в фунции

Код


sub rdb {
    ## функция чтения из таблиц, по ранее записанным данным в mysql.db
    my ($self, $table_root) = @_; # получаем из оператора вызова подпрограммы корень таблицы

    open(F, '<', $cache_tables) or die $!;
    my (@tables, @rows);
    while (<F>) {
        s/[\r\n]+$//;
        my ($table, $row) = split /:/;
        next if ($table !~ /$table_root/i);
        push(@tables, $table);
        push(@rows, $row);
    }
    close(F);
    
    return (\@tables, \@rows);
}

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

MoXxX

Дата 27.1.2009, 16:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 13.8.2007

Репутация: нет
Всего: нет

спасибо за помощь, разобрался =)

Это сообщение отредактировал(а) MoXxX - 27.1.2009, 17:04

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »