VPF::Аналог PHP-шного virtual() - Форум программистов

Тиньков

Дата 14.6.2005, 11:27 (ссылка)

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

Загрузка ...

Новичок

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

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

В PHP с помощью функции virtual() можно из одного скрипта вызвать выполнение другого, после чего снова вернуться к первому. Возможно ли то же самое реализовать в Perl?
Схематично это выглядит примерно так:

Начало скрипта1
....
Вызов и выполнение скрипта2
....
Конец скрипта1

korob2001

Дата 14.6.2005, 14:29 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

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

Код


do "имя файла";

Для наглядности вот пример с двумя файлами. Создай файл hello.pl с таким кодом:

Код


#!/usr/bin/perl -w
use strict;
print "Hello, world!\n";
<>; # ожидаем ввода

теперь рядом создай файл "call_hello.pl" с таким кодом:

Код


#!/usr/bin/perl -w
use strict;

print "Hello from $0 before call hello.pl\n";

do 'hello.pl';

print "Hello from $0 after call hello.pl\n";

Теперь запусти файл call_hello.pl, в результате увидишь примерно такой вывод:

Hello from call_hello.pl before call hello.pl
Hello, world!
здесь программа будет ожидать ввода

Нажми enter, появится ещё одна строка
Hello from call_hello.pl after call hello.pl
Есть ещё несколько способов, но этот на мой взгляд самый актуальный.

Удачи.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Тиньков

Дата 14.6.2005, 15:26 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо!
Но, как я понимаю, do может работать только с рядом лежащими файлами. А если нужно обратиться к скрипту в виде "http://имя_хоста:порт/название_скрипта"?

korob2001

Дата 14.6.2005, 15:43 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

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

Все файлы находятся на одном сервере или ты хочешь подгружать их с других хостов???

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Тиньков

Дата 14.6.2005, 16:56 (ссылка)

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

Загрузка ...

Новичок

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

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

Не, они на одном сервере все. Но может понадобиться обращение к модулю сервера (mod_plsql в моём случае), который сгенерит часть результирующей HTML-страницы. Или заранее не будет известен путь к скриптам, а будет определяться настройками сервера (alias /scripts/ "somepath/scripts")

korob2001

Дата 14.6.2005, 17:40 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

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

Указывай примерно такой путь:
/home/localhost/cgi-bin/hello.pl
В итоге, программа call_hello.pl будет выглядеть примерно так:

Код


#!/usr/bin/perl -w
use strict;

print qq|Content-type: text/html\n\n|;
print qq|<html><head><title>Test</title></head><body>|;
print qq|<h1>Hello, from $0 before call hello.pl</h1>|;

do "/home/localhost/cgi-bin/hello.pl";

print qq|<h1>Hello, from $0 after call hello.pl</h1>|;
print qq|</body></html>|;

а программа hello.pl, так:

Код


#!/usr/bin/perl -w
print qq|<hr><h1>This text from hello.pl programm</h1>|;
print qq|<b>Hello, world!</b><hr>|;

Удачи.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

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