Forum Webscript.Ru

Разное => Флейм => Тема начата: bloody от 04 Июня 2001, 15:43:54

Название: Пофлеймить захотелось...
Отправлено: bloody от 04 Июня 2001, 15:43:54

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

Название: Пофлеймить захотелось...
Отправлено: от 22 Июня 2001, 02:43:29

Цитировать

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

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

Название: Пофлеймить захотелось...
Отправлено: от 24 Июня 2001, 14:16:57

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