Как вставить кусок кода

Код

$mas=({name=>"vasja",sername=>"petrov"},{city=>"moskow",street=>"red"},{home=>"80",phone=>"21321434"})

, генерируемый одним скриптом в другой скрипт?

murka Сtrl-C, Ctrl-V

или поясни вопрос, не понятно.

Один скрипт генерит следующее

Код

$mas = ({a=>"1",b=>"2"},{c=>"3",d=>"4"},{e=>"5",f=>"6"},...,{{e=>"32",r=>"23"});

Все это храниться в каком-то файле, из которого происходит считывание другим скриптом так, чтобы последний воспринимал это как код.

Воспользуйся модулем Data::Dumper или Storable. В описании к модулям есть примеры. Будут неясности - спрашивай.

script1.pl

Код

print '$mas = ({a=>"1",b=>"2"},{c=>"3",d=>"4"},{e=>"5",f=>"6"},{e=>"32",r=>"23"});'

script2.pl

Код

$kusokkoda = `perl script1.pl`; eval($kusokkoda); print '$mas is ' . ref $mas;

Это сообщение отредактировал(а) Kannabismus - 6.12.2005, 17:58

murka

Цитата(Kiber_rat @ 6.12.2005, 18:41)

Storable

а пример работы смотри здесь

В первом скрипте у тебя retrieve, а во втором store.



Добавлено @ 18:09
Kannabismus жестокое предложение, так никто не делает.

Мне почему-то сдаётся, что сериализация для такой задачи, равносильна стрельбе из пушки по воробьям. С ней вполне справляется do().
Например сохрани следующий код в файл с любым именем и расширением, расширение можешь вообще не указывать.

Код

sub sum {     my $sum = 0;     map { $sum += $_ } @_;     return $sum; }

Эта подпрограмма получает список чисел и возвращает их сумму. Заметь что никакого пути к Perl интерпертатору указывать не нужно, т.е. не нужно ничего добавлять сохрани только тот код, который я привёл выше.

Теперь сохрани следующий код в файл с расширением как у исполняемого файла, как правило .pl, .cgi, в тот же каталог:

Код

#!/usr/bin/perl -w use strict; do("filefunc");           # Здесь укажи имя файла, который мы создали ранее. my $sum = sum(5, 10, 15); # Здесь укажи числа, которые нужно просумировать print $sum;

Теперь запусти второй файл и получишь сумму всех чисел.

Это сообщение отредактировал(а) korob2001 - 7.12.2005, 02:21