Вопрос : проблема с внешней подпрограммой

Я имею тревогу using внешние архив или подпрограмма «myutilities» (конечно просто.  В сути, я использую perl в ubuntu и я имею сценарий «mymain.pl» и я хочу необходимо «обрабатывать» другой сценарий «load_vars.pl» который нагружает пук перемеююых, тогда более поздно в «mymain.pl» я хочу использовать внешнюю подпрограмму в «myutilities.lib» или «myutilities.pl» (само легко).  Я не ищу долгосрочное повторное пользование или что-нибудь подобное Кодего.  Я как раз смотрят, что получаю это asap.
I am новым к perl, но я реально leveraging все возможности regex.  Пожалуйста дайте мне некоторое наведение, я имею судимую «пользу», «требуйте» etc. и ничего работает.  Я уверен это довольно легко.  Очень очень коротким примером using следующий будет appreciated.

print «: Я нахожусь в mymain.pl \ n»; />print «…  Я нахожусь в теперь load_vars.pl \ n»;
print
… «using общие назначения…  Я нахожусь в теперь myutilities \ n»; />print «: Я нахожусь назад в mymain.pl \ n»;

Thanks.
Chris
 class=

Ответ : проблема с внешней подпрограммой

Если вы не хотите использовать deprecated «vars пользы», то вы можете передать перемеююые к sub режимам в myutilities.pl, и в load_vars.pl, возвращаете их после того как они задано. В этот случай, вы должны использовать sub режим в load_vars.pl
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

mymain.pl
#! /usr/bin/perl
используйте только;

мо ($a, $b, $c);
требуйте «load_vars.pl»;
требуйте «myutilities.pl»;
старт печати «: Я нахожусь в mymain.pl \ n \ n»;
($a, $b, $c) = &load_vars;
&myutilities ($a);
конец печати «: Я нахожусь в mymain.pl \ mymain nand n, котор нагруженные перемеююые являются следующими: \ na=$a \ nb=$b \ nc=$c \ n»;

load_vars.pl
#! /usr/bin/perl
используйте только;

sub load_vars {
  напечатайте «перемеююые нагрузки…  Я нахожусь в теперь load_vars.pl \ n \ n»;
  мо $a = «яблоко»;
  мо $b = «банан»;
  мо $c = «вишня»;
  возвращение ($a, $b, $c);
}
1;

myutilities.pl
#! /usr/bin/perl
используйте только;

sub myutilities {
  мо ($a) = @_;
  печать «using общие назначения…  Я нахожусь в теперь myutilities \ n».
  «и в myutilities a = $a \ n \ n»;
}
1;


Выход:
[~ root@dm1] # ./mymain.pl
старт: Я нахожусь в mymain.pl

перемеююые нагрузки…  Я нахожусь в load_vars.pl теперь

using общие назначения…  Я нахожусь в myutilities теперь
и в myutilities a = яблоко

конец: Я нахожусь в mymain.pl
и mymain n нагруженные перемеююые являются следующими:
a=apple
b=banana
c=cherry
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us