Автор Тема: Пофлеймить захотелось...  (Прочитано 2749 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн bloody

  • Завсегдатай
  • Новичок
  • *
  • Сообщений: 45
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.wineger.com
Пофлеймить захотелось...
« : 04 Июня 2001, 15:43:54 »
Microsoft и все-все-все :)
противостояние с AOL.
Windows XP-кто что о ней думает
Глобальная компьютеризация и развитие инета.
bNetworks Group

  • Гость
Пофлеймить захотелось...
« Ответ #1 : 22 Июня 2001, 02:43:29 »
Цитировать
Xonix (21-06-2001 23:11):
Кто то может на перле написать такой скрипт что б из формы в него передавалось число, он его сверял с другим числом, которое заранее заносится мною, и если числа совпадают пересылал на одну страницу, если не совпадают на другую. Пожалуйста напишите !

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

  • Гость
Пофлеймить захотелось...
« Ответ #2 : 24 Июня 2001, 14:16:57 »
privet
#html forma

http://www.url_to scirpt.com/cgi-bin/digi.pl">




#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

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28