Forum Webscript.Ru

Программирование => Perl => Тема начата: Energizer от 05 Августа 2002, 10:57:48

Название: Люди, помогите! Не могу понять,как мне передать значение.
Отправлено: Energizer от 05 Августа 2002, 10:57:48

Люди помоги... Не могу понять как мне передать значение!

Есть скрипт, который использует библиотеку, допустит
require "resurs.pl";

Иногда он в нее залезает и берет от туда значения….

Вопрос:
При запуске функции в resurs.pl, функция проходится по множеству значений. Ну допустим читает файл из строк…
1|2|3|4
1|2|3|4

Нужно все эти строки передать скрипту, который сделал запрос.

Не знаю как!

При return $name; передает только одно значения,это и понятно, а как сделать массив !

Подскажите, как мне сделать так, что бы файл передавал не одно значения, а несколько, допустим массив из прочитанных строк?

Заранее спасибо.

Название: Люди, помогите! Не могу понять,как мне передать значение.
Отправлено: Unregistered от 05 Августа 2002, 12:15:23

Цитировать

return $name

return @name;

Название: Люди, помогите! Не могу понять,как мне передать значение.
Отправлено: Energizer от 05 Августа 2002, 12:29:25

Это я понимаю..... вот фунция, к которой обращается к скрипт

sub Script
{
   my $page=@_;
   my $path_news_img="http://non.ru/news"; ### real path img
   my $datadir="data";
   my($ff)="nblock.txt";
   my $filenameshow="show.plx";
   my($text);
   my @alltext="";
   #my $page=10; ### Кол-во показов
   
   open(FILE, "<$datadir/$ff") or die("Can\'t open $datadir/$ff file ", $!);
    my @lines=;
    close(FILE);
   
   
   @lines = reverse(@lines);
   my($num_data)=scalar(@lines);
   
   if ($num_data <= "$page")
      {
         $page=($num_data-1);
      }

   #print "$num_data
$page
";
   $text.="\\n";
   
   my($k);
   foreach ($k=0; $k<=$page; $k++)
            {   
            my ($id,$date,$shot_news,$big_news,$images,$status)=split(/\\|/, $lines[$k]);
            $text.="\\n\\n\\n\\n";
         }
   $text.="

\\n  $date  $shot_news \\n

\\n";
            
   return $text;
}

он проходит по строкам...

foreach ($k=0; $k<=$page; $k++)
{   
            my ($id,$date,$shot_news,$big_news,$images,$status)=split(/\\|/, $lines[$k]);
            $text.="\\n\\n

$date

$shot_news

\\n\\n\\n\\n";
         }

и присваивает $text определенные значения....

как мне передать массив из $text ?

Заранее спасибо.