[показать]
[показать]
[показать]
Новый год это для вас лакомый кусочек в плане доступной выпивки и не менее доступного секса. Вы ненасытны в этот светлый период года: но все что вам нужно - это горячительные напитки и Снегурочка под рукой, эдакий мачо в красной шубе с белой бородой. А подарки это просто повод, под закусочку да еще в теплой компании, эх...
Узнать, какой вы дед Мороз!
[показать]8. У дверей ЗАГСа с незнакомым существом противоположного пола. 1-го января вы
очнетесь у дверей ЗАГСе под руку с незнакомым существом противоположного пола.
Есть несколько вариантов объяснения этой ситуации: либо вы слишком открытый
человек и чересчур доверяете людям, либо у вас накопилось слишком много
кармических долгов. Вам стоит задуматься над своим поведением, но посыпать
голову пеплом рано - высшие силы пока только демонстрируют вам свое могущество,
но не собираются наказывать всерьез - ЗАГС 1-го января закрыт!
Полезный совет: На всякий случай, накануне праздника надежно спрячьте свой паспорт!
| "; unless ($exit) { my $first_query = < DOC my $second_query = < DOC my $req = HTTP::Request -> new ( POST => 'http://xmlsearch.yandex.ru/xmlsearch'); $req -> content_type ('application/x-www-form-urlencoded'); $req -> content ($first_query); my $response = $ua -> request ($req); $first_xml = $response -> content; my $first_query_success = $response -> is_success; if ($first_query_success) { $first_xml = XML::XPath -> new ( xml => $first_xml ); my $error_code = $first_xml -> findvalue ('/yandexsearch/response/error/@code'); my $error = $first_xml -> findvalue ('/yandexsearch/response/error'); if ("$error_code" eq '0') { $first_word_matches = "$error_code"; } elsif ("$error") { print "$error: $first_word и $user_word \n"; #$exit = 1; } } else { warn "response from server not succeed\ndetails: " . $response -> {'code'} . " " . $response -> {'message'}; } $req -> content ($second_query); $response = $ua -> request ($req); $second_xml = $response -> content; my $second_query_success = $response -> is_success; if ($second_query_success) { $second_xml = XML::XPath -> new ( xml => $second_xml ); my $error_code = $second_xml -> findvalue ('/yandexsearch/response/error/@code'); my $error = $second_xml -> findvalue ('/yandexsearch/response/error'); if ("$error_code" eq '0') { $second_word_matches = "$error_code"; } elsif ("$error") { print "$error: $second_word и $user_word \n"; #$exit = 1; } } else { warn "response from server not succeed\ndetails: " . $response -> {'code'} . " " . $response -> {'message'}; print "Внутренняя ошибка сервера\n"; $exit = 1; } } if ($exit) { print < подобрать третье слово, которое с одним из слов данной пары встречается намного чаще, чем с другим, т.е. наиболее «контрастное». При подсчете очков учитываются только INTRO } else { if ($mode eq 'by server') { $first_word_matches = $first_xml -> findvalue ('/yandexsearch/response/results/grouping/found[@priority = "strict"]/text()') unless defined $first_word_matches; $second_word_matches = $second_xml -> findvalue ('/yandexsearch/response/results/grouping/found[@priority = "strict"]/text()') unless defined $second_word_matches; |
| Я Английская чистокровная! |
[показать] |
| Характер - нервный. Вы легко раздражаетесь и легко обижаетесь. Склонны бурно радоваться. при хорошем посыле вы не прочь закусить удила и понести. Вас очень сложно остановить, если что-то пришло вам в голову. Относитесь к своим поклонникам свысока - куда этим полукровкам до такого великолепного животного. |
| Узнайте, какая Вы лошадь? |
[показать]
| Я Волк С Пронзительным Взглядом! |
[показать] - Вы видели, как исподлобья смотрят волки? / Не просят, не рычат. Глаза – осколки. / Что было, будет, будет ли, зачем? / Как будто обладают знаньем всем. / В себя упав, там видят ленты сути. / Там сонмы лиц. И ликов. И сердец. / Они вас разгадали наконец. / Уйдите. Вы – лишь тлен. Не обессудьте. |
| Вы - волк. Но какой? |
[показать]
цитата
Смерть грязнокровкам!!!И Гарри Поттеру!
давайте над ними просто прикольнёмся!
Если нет то предлагаю повесить поттера,потом задушить,потом утопить,потом расчленить,потом отдать каким нибудь хищным тварюгам чтоб от него ничё не осталось!
Пожалуйста
[показать]