VPF::if else - Форум программистов

Дата 2.1.2005, 17:35 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Проблема вот в чем, независимо от параметра $parametr в любом случае будет
вызыватся bingo.pl, но ведь так не должно быть, это противоречит выбору if, else.

#!/usr/bin/perl
require 'bingo.pl';
print"Content-Type: text/html; charset: windows-1251\n\n";
use CGI qw(param);
my $parametr=param('parametr');
if($parametr){
print"YES!";
print 'bingo.pl';
exit(0);
}
else{
print"NO!";
exit(0);
}

Спасибо.

Chuck

Дата 2.1.2005, 18:37 (ссылка)

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

Загрузка ...

Сушня

Профиль
Группа: Эксперт
Сообщений: 442
Регистрация: 12.12.2003
Где: Узбекистан, Ташке нт

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

Так будет вернее ...

Код


#!/usr/bin/perl
require 'bingo.pl';
print"Content-Type: text/html; charset: windows-1251\n\n";
use CGI;
$myCGI = new CGI;
$parametr = $myCGI->param('parametr');
if($parametr){
print "YES!";
print 'bingo.pl';
exit(0);
}
else{
print "NO!";
exit(0);
}

;

Это сообщение отредактировал(а) Chuck - 2.1.2005, 18:39

korob2001

Дата 2.1.2005, 23:35 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата

Так будет вернее ...

Почему ты так думаешь? Потому, что ты воспользовался ООП?

Цитата

Проблема вот в чем, независимо от параметра $parametr в любом случае будет
вызыватся bingo.pl, но ведь так не должно быть, это противоречит выбору if, else.

Проблема в том, что ты выполняешь require не в блоке if .... else, а в самом начале скрипта. Попробуй переставь строку:

require 'bingo.pl';

в болок if.
Если не поможет, дай содержимое файла bingo.pl
Удачи.

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

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

Дата 2.1.2005, 23:47 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет Дружище!
Скоро проверю, только-бы к полуночи отрезветь.
Заранее благодарю, только за то(ну. и не только за это)
что отреагировал так быстро и професионально, в
отличии от таких профи как korob2001, MuToGeN.
MuToGeN правда куда-то пропал, а korob2001 еще
наверно празднует. Всех С Новым Годом!!!!!!!
Спасибо. smile

Chuck

Дата 2.1.2005, 23:51 (ссылка)

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

Загрузка ...

Сушня

Профиль
Группа: Эксперт
Сообщений: 442
Регистрация: 12.12.2003
Где: Узбекистан, Ташке нт

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

Код


#!/usr/bin/perl

#Где то слышал, что строка тут пустая желательна ....
print"Content-Type: text/html; charset: windows-1251\n\n";
use CGI;
$myCGI = new CGI;
$parametr = $myCGI->param('parametr');
if($parametr){
require 'bingo.pl';
print "YES!";
print 'bingo.pl';
exit(0);
}
else{
print "NO!";
exit(0);
}

korob2001
Просто непривычно как то smile

korob2001

Дата 2.1.2005, 23:55 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата

Всех С Новым Годом!!!!!!!

Тебя тоже.

Код


#!/usr/bin/perl
print "Heppy new year 2005!\n" x 100;

Думаю с этим кодом проблем не будет.

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

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

Дата 3.1.2005, 10:42 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Мда, надо было сначала проснувшись сюда заглянуть, ведь все равно не работает!!!!!!!
Korob2001 как всегда вне конкуренции. Всем спасибо буду пробовать. smile

Дата 3.1.2005, 11:02 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Все пашет, ну Korob2001 у тебя и голова, если рейтингов не жалко становись Korob2005.
Всем привет, зайду еще не раз. smile

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