@data=(1,2,3,4);
$,="\n";
sub zapisdata{
open (DATA, ">data.conf");
print DATA @data;
close DATA;
}

sub data{
open (DATA, "<data.conf");
$data=<DATA>;
close DATA;
return $data;
}
&zapisdata;
$data=&data;
@data=split(/$,/,$data);
print @data;

Выводит только первую строку из файла. Как сделать чтобы выводился файл с несколькими строкими?

• RE: Почему не получается вывести файл из нескольких строк,XMan, 02:24 , 01-Мрт-03
  • RE: Почему не получается вывести файл из нескольких строк,lexkotov, 03:03 , 01-Мрт-03
    • RE: Почему не получается вывести файл из нескольких строк,Laskaviy, 20:22 , 09-Мрт-03

А чего ж ты хотел, если читаешь одну строку из файла:

sub data{
open (DATA, "<data.conf");
$data=<DATA>;
close DATA;
return $data;
}

? :) Замени $data на @data и возвращай тоже @data. И лучше сделать эту переменную локальной.

PS. А название "zapisdata" звучит прикольно. Прямо как в каком-то журнале на обложке большими буквами было написано "За e-бизнес" :)

Точно вот я лох. Я прозрел. Вчера часов 5 долбался. Спасибо. А насчет zapisdata я старался :-)

>Точно вот я лох. Я прозрел. Вчера часов 5 долбался. Спасибо. А
>насчет zapisdata я старался :-)

SAPISDATA РУЛИТ ! :)) ггг