VPF::возвращение массива из функции

SATYR

Дата 4.7.2006, 10:59 (ссылка)

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

Загрузка ...

Шустрый

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

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

Всем доброго времени суток.

Есть функция которая читает файл и возвращает прочитаное в виде массива

Код


#!/usr/bin/perl-w
use strict;
use CGI qw(:standard);

sub file_read_arr
{
 my @content;
 my $file_name=shift(@_);
 my$path=$ENV{"DOCUMENT_ROOT"}.'/'.$file_name;
 local *FILE;
 open(FILE,"<$path") or $!;
 while(<FILE>){
   push(@content,$_);
 }
 close(FILE);
 return @content;
}

пробовал функцию обьявить в отдельном файле и в нем же выполнить ее вызов и печать результата

Код


my @arr= file_read_arr('text/form_pay.txt');
print @arr;

функция результат возвращается как и требуется в виде списка

но там где ее применение запланировано

Код


    my @pay=file_read_arr('text/form_pay.txt');
                my @size=('150x200','200x300','300x400');
...........................
$content.=scrolling_list($name_field,\@pay);
$content1.=scrolling_list($name_field1,\@size);
.....................

все строки файла возвращаются почемуто в виде одной строки т.е. как результат scrolling_list содержит один, но длинный элемент. smile

. Может в этом виноват scrolling_list хотя ему не все ли равно если ему нужно в качестве параметра ссылку на массив , то он ее получает. В общем теряюсь где ошибка. Народ прошу помоч.
Заранее спасибо.

aksined

Дата 4.7.2006, 14:41 (ссылка)

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

Загрузка ...

Шустрый

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

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

функция, которая читает выглядит нормально, почему бы не привести, что делает scrolling_list

SATYR

Дата 7.7.2006, 11:04 (ссылка)

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

Загрузка ...

Шустрый

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

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

scrolling_list это функция из модуля CGI.pm результат ее работы html элемент <select>....<\select> первый параметр имя элемента (), 2-й содержимое самого селекта, содержимое передается ввиде ссылки на массив на какой(анонимный неанонимный) ,судя по тому что работает .@size нормально, без разници.

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