VPF::post get require use - Форум программистов

Marlik

Дата 18.12.2007, 02:31 (ссылка)

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

Загрузка ...

Бывалый

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

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

Требуется написать скрипт который бы обрабатывал как запросы get или post(без разницы который из них) и что-бы этот скрипт можно было-бы вызвать из другого скрипта и передать ему к примеру строку как аргумент. Как это реализовать???

Вот к примеру скрипт который принимает post-запрос, вызывает и передает аргумент другому скрипту:

Код



#!/usr/bin/perl -w
use strict;
require "skript.pl";
use CGI::Carp 'fatalsToBrowser';
use CGI qw(:standard);
my $cgi = new CGI;

my $sid = $cgi ->param('sid');

if($sid){
skript($sid);
}else{
exit(1);
}

Вот skript.pl который вызывают и передают ему аргумент:

Код



#!/usr/bin/perl -w
use strict;
use CGI::Carp 'fatalsToBrowser';
use CGI qw(:standard);
my $cgi = new CGI;


my $sid = shift @_;

if($sid){
fun1();
fun2($sid);
fun3();
}else{ 

print $cgi->header(-charset => 'Windows-1251');
print $cgi->start_html(); 

if( defined $cgi->param('param1') ){
fun4();
}elsif( defined $cgi->param('param2') ){
fun5();
}else {
fun1();
fun2($sid);
fun3();
}
print $cgi->end_html();   

}

Но почему-то не работает такая конструкция, может у кого есть мысли на сей счет??? smile

Помогите!!! ПЛИЗЗЗ!!!
Заранее благодарен. smile

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