Perl

Начала учить perl. Учу галопом, надо быстро получить результат. Нормально учить получиться только потом. Поэтому возможно глупый вопрос.

Это голосовалка. Сейчас она выводит результат голосования на отдельной странице, а я хочу чтобы выводила вместо самого голосования. Помогите девушке. Можно просто ссылкой на почитать. 

( код формы для голосования ) <FORM ACTION="golos.cgi" METHOD="POST">
<INPUT TYPE="RADIO" NAME="golos" checked VALUE="классно">Классно<br>
<INPUT TYPE="RADIO" NAME="golos" VALUE="хорошо">Хорошо<br>
<INPUT TYPE="RADIO" NAME="golos" VALUE="удовлетворительно">Удовлетворительно<br>
<INPUT TYPE="RADIO" NAME="golos" VALUE="не очень">Не очень<br>
<INPUT TYPE="RADIO" NAME="golos" VALUE="плохо">Плохо !!<br>
<INPUT TYPE="SUBMIT" NAME="Submit1" VALUE="Отправить">

  

( код скрипта )#!/usr/bin/perl

$golos="golos.txt"; #fail s soobweniyami golosovaniya
$up="up.txt"; #fail s verhnim colontitumom
$down="down.txt"; #fail s nignim colontitumom
$head="head.txt"; #fail so sloyami stiley

################################################

&parse_form;
$slovo=$FORM{golos};
open (GOLOS, $golos);
@gls=<GOLOS>; #zadaetsya massiv gls,zapolnyaetsya iz faila golos.txt
close (GOLOS);

for ($i=0; $i<=$#gls; ++$i) {
($s1,$s2,$s3)=split (/;/,$gls[$i]); #razbivaet massiv $gls na tri chasti
if ($s1 eq $slovo) {$s3++; $gls[$i]="$s1;$s2;$s3\n";} #esli pervoe slovo
#sovpadaet s vibrannim to kol golosov uvel na 1
}

open (GOLOS, ">$golos"); #otkrili file golos.txt i zapisali v nego dannie
print GOLOS @gls;
close (GOLOS);

print "Content-type: text/html\n\n";

open (COL, $up);
@col=<COL>;
print @col;
close (COL);

open (GOLOS, $golos);
@gls=<GOLOS>;
close (GOLOS);

open (GOLOS, $head);
$style=<GOLOS>;
close (GOLOS);

$sum=0;

for ($i=0; $i<=$#gls; ++$i) {
($s1,$s2,$s3)=split (/;/,$gls[$i]);
$sum+=$s3;    #peremennaya dlya ucheta kolichestva progolosovavshih
$num[$i]=$s3; #peremennaya dlya ucheta golosov v %
$zag[$i]=$s2; #nazvanie pozicii
}

print_all ($sum);
for ($i=0; $i<=$#gls; ++$i) {
print_text ($zag[$i],$num[$i],$sum);
}
  
open (COL, $down);
@col=<COL>;
print @col;
close (COL);

###################################
#
# Procedur neobhodimie prog
#
###################################

  
# Procedura dlya chteniya formi
#############################
sub parse_form{
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs=split (/&/, $buffer);
foreach $pair (@pairs){
($name,$value) = split (/=/,$pair);
$value=~ tr/+/ /;
$value=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$FORM{$name}=$value;
}}

# Procedura dlya vivoda soobheniya na ecran
##########################################
sub print_text{
my ($zag, $num, $sum)=@_;
$st=$style;
$text="$zag - всего голосов: $num (".int((($num/$sum)*100))."%)";
$st=~ s/<<text>>/$text/;
print $st;
}

# Vivod colichestva progolosovavshih
###############################
sub print_all{
my ($sum)=@_;
$st=$style;
$text="Всего проголосовало: $sum";
$st=~ s/<<text>>/$text/;
print $st;
}

 

Для Mojolicious есть какие-нить модули чтобы просто было авторизировать пользователя и хранить сессии в БД?

попробовал MojoX::Auth::Simple , но то ли он недописан, то ли у меня руки кривые :(

Всем привет!

Мне тут надо попользоваться Ядекс.Фотки API, и не найдя соответсвующего модуля, решил сварганить свой. Хочу результат выложить на CPAN, раз ничего такого (к своему большому удивлению) я ещё не нашёл. Но хочется чтоб это было кому-то кроме меня полезно, и поскольку ничего особо общественно полезного на Perl я ещё не делал, хотелось попросить совета у профессионалов :)

Кое что из задуманного я уже реализовал, выложу чуть позже.

Что вы думаете/посоветуете по следующим пунктам (по любым из них):

(1) Модуль будет с ограничеными возможностями, без авторизации и, соответсвенно, без функций заливки и редактирования.
Crypt::RSA::Yandex собрать даже на своём компе не получается (в ActiveState репозитории его нет), поэтому надеятся что на виртуальном хостинге будет лучше не дерзаю.

(2) Не использует AtomPub модули с CPAN (API использует протокол AtomPub). Те модули которые там есть, насколько я понял, тянут за собой слишком много зависимостей, некоторые из которых ещё и компилируемые, что не позволит из поставить на некоторых бюджетных виртуальных хостинг-аккаунтах.

(3) Самый главный вопрос, который меня мучает - в каком виде лучше возвращать полученые данные.
На данный момент, для коллекций (альбомов, фоток) возвращаю ссылку на массив хэшей. Для одиночных элементов (фото, альбом) - ссылку на хэш. Это нормально? Как обычно делают?

(4) Название. Не хочу называть Yandex::Fotki::API, на случай кто-нибудь более грамотный напишет полную имплементацию. Сейчас пока Yandex::Fotki::API::Limited... как-то длинно. Посоветуйте?

Заранее спасибо.

Привет! Давайте играть в Perlgolf :-)