Программирование > PHP

передача переменной из PHP в Perl

(1/1)

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

--- Код: ---





--- Конец кода ---

принимаю это скриптом, призванным разбросать по скриптам входа. Здесь вся штука в том, что один из них написан на PHP и с ним проблем нет:
if (ereg ("([0-9]{4})", $login)) {
header(\'Location: ./main.php?UserName=\'.$login.\'&PWDD=\'.$pass.\'\');
}

перекидывает куда надо и передает логин с паролем отлично все.
а второй на Перле написан. И скрипт без расширения:
else {
header(\'Location:./cgi-bin/login?USER=\'.$login.\'&PSWD=\'.$pass.\'\');
}
собсно сам Перл скрипт:
в#!/usr/bin/perl

use DBI;
use CGI qw/:standard/;
use CGI::Cookie;
use MD5;
use Sys::Syslog;

$CGI::POST_MAX=1024 * 10;  # max 10K posts
$CGI::DISABLE_UPLOADS = 1;  # no uploads
$Apache::DBI::DEBUG = 2;

$USER = param(\'USER\');
$USER =~ s/(!((\\w)||(-)))||(\\s)//gx;
$PWD = MD5->hexhash(param(\'PSWD\'));
ну и дальше бла бла, запросы и обработки....

Навигация

[0] Главная страница сообщений