Разное > Флейм

Пофлеймить захотелось...

(1/1)

bloody:
Microsoft и все-все-все :)
противостояние с AOL.
Windows XP-кто что о ней думает
Глобальная компьютеризация и развитие инета.

:

--- Цитировать ---Xonix (21-06-2001 23:11):
Кто то может на перле написать такой скрипт что б из формы в него передавалось число, он его сверял с другим числом, которое заранее заносится мною, и если числа совпадают пересылал на одну страницу, если не совпадают на другую. Пожалуйста напишите !
--- Конец цитаты ---

А на PHP не устроит???

:
privet
#html forma






#script

#! /usr/bin/perl


if ($ENV{\'QUERY_STRING\'}) {$namevalues = $ENV{\'QUERY_STRING\'};}
else {read(STDIN, $namevalues, $ENV{\'CONTENT_LENGTH\'});}
@pairs = split(/&/, $namevalues);
   foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ s///g;
        $value =~ s/]|
)*>//g;
   $form{$name} = $value;}



$tvoe_chislo = "5";
$chislo = $form{\'chislo\'};

#esli user vvel 5
if($chislo eq "$tvoe_chislo"){print "Location: http://www.yahoo.com

"; }

#esli user vvel lyuboe drugoe
else {print "Location: http://www.ya.ru

";}


bye

Навигация

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