Практические примеры программирования cgi-скриптов на Perl: чат.

этот чат довольно прост для начинающего подойдет. Каждый кто хочет стать гуру вначале своего пути должен написать подобный чат, просто для тренировки.

Но я бы не рекомендовал приучать начинающих к такому стилю.

Первое что я увидел и ужаснулся это декодирование данных форм:

# Функция для декодирования полей форм.
@pairs = split(/&/, $query);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ s///g;
$name =~ s/<([^>]|n)*>//g;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/n//g;
$value =~ s/cM/ /g;
$value =~ s/|/ /g;
$value =~ tr/ / /s;
$value =~ s/<([^>]|n)*>//g;
$value =~ s/"/"/g;
$value=~s/:)/<img src='$src0'>/g;
$value=~s/:(/<img src='$src1'>/g;
$value=~s/:o/<img src='$src2'>/g;
$value=~s/:D/<img src='$src3'>/g;
$value=~s/;)/<img src='$src4'>/g;
$value=~s/:p/<img src='$src5'>/g;
$value=~s/:cool:/<img src='$src6'>/g;
$value=~s/:rolleyes:/<img src='$src7'>/g;
$value=~s/:mad:/<img src='$src8'>/g;
$value=~s/:eek:/<img src='$src9'>/g;
$value=~s/:confused:/<img src='$src10'>/g;
$input{$name} = $value;
}

Все это чтобы получить:

# Получаем переменные

$enter=$input {'enter'};
$color=$input {'color'};
$nick=$input {'nick'};
$time=scalar localtime;

Ведь гораздо удобнее использовать подпрограмму вида:

sub urldecode{
local($val)=@_;
$val=~s/\+/ /g;
$val=~s/%([0-9A-Ha-h]{2})/pack('C',hex($1))/ge;
return $val;
}

и выбивать данные в хэш простым обращением к ней:

foreach(split(/&/,$query)){
($f_n,$f_v)=split(/=/,$_);
$f_n=&urldecode($f_n);
$f_v=&urldecode($f_v);
$Form{$f_n}=$f_v;
}

в результате имеем тоже самое, но ведь гораздо удобнее.

Далее что удивляет что нет употребления функции flock();
которая блокирует файл, т.к. при популярности например чата, или других причинах возможно такое что разные процессы одновременно откроют один файл и что тогда будет неизвестно?

И еще нет никакой защиты от ввода вместе с сообщением тегов , я например люблю поболоваться в полохо сделанных чатах.

Рекомендую всем читать хорошие книги, но все равно за эту стать спасибо, было интересно этот чат разобрать.

Практические примеры программирования cgi-скриптов на Perl: чат.

Чат.

Вход в чат.

Вход в чат.

Здравствуйте, гость!

Добавление сообщения в чат.

Выход из чата.

Показ посетителей,в данный момент находящихся в чате.

Вывод системного журнала.

Вывод сообщений.

Главная страница.