Исключительно прикола ради, а также способствует обучению :)
Дополнения и исправления приветствуются :)
#!/usr/bin/perl -w
#######################################
# Покупка дополнительного пива в баре #
#######################################
use strict;
use Barmen::Request 1.0.7 ;
my $хочу_пива = shift;
while ($хочу_пива){
my $кошелек = 'штаны/з_карман/лопатник';
open (СASH, "$кошелек")|| die "Can't open кошелек: потерял наверное";
my $нал = <CASH>;
close (CASH);
if ($нал <= "150 рублей"){
die "А на сигареты? А на бензин?";
} else {
do {
my $barmen = "бармен или официант";
my $акция = request(Barmen::Request ->new ( POST =>"$barmen",
[ beer => "Невское", сколько =>"кружечку"]));
my %menu;
my $beer_price = $menu{"beer"};
$нал = ($нал - $beer_price);
sleep 300;
} while ($нал ne "150 рублей");
}
>Исключительно прикола ради, а также способствует обучению :)
>Дополнения и исправления приветствуются :)
>#!/usr/bin/perl -w
>#######################################
># Покупка дополнительного пива в баре #
>#######################################
>use strict;
>use Barmen::Request 1.0.7 ;
>
>
>my $хочу_пива = shift;
>while ($хочу_пива){
> my $кошелек = 'штаны/з_карман/лопатник';
> open (СASH, "$кошелек")|| die "Can't open кошелек: потерял
>наверное";
> my $нал = <CASH>;
> close (CASH);
> if ($нал <= "150 рублей"){
> die "А на сигареты?
>А на бензин?";
> } else {
> do {
> my $barmen = "бармен или официант";
> my $акция = request(Barmen::Request ->new ( POST =>"$barmen",
> [ beer => "Невское", сколько =>"кружечку"]));
> my %menu;
> my $beer_price = $menu{"beer"};
> $нал = ($нал - $beer_price);
Надо открыть кошелёк и записать остаток :)> sleep 300;
> } while ($нал ne "150 рублей");
> }
>
>>Исключительно прикола ради, а также способствует обучению :)
>>Дополнения и исправления приветствуются :)
>>#!/usr/bin/perl -w
>>#######################################
>># Покупка дополнительного пива в баре #
>>#######################################
>>use strict;
>>use Barmen::Request 1.0.7 ;
>>
>>
>>my $хочу_пива = shift;
>>while ($хочу_пива){
>> my $кошелек = 'штаны/з_карман/лопатник';
>> open (СASH, "$кошелек")|| die "Can't open кошелек: потерял
>>наверное";
>> my $нал = <CASH>;
>> close (CASH);
>> if ($нал <= "150 рублей"){
>> die "А на сигареты?
>>А на бензин?";
>> } else {
>> do {
>> my $barmen = "бармен или официант";
>> my $акция = request(Barmen::Request ->new ( POST =>"$barmen",
>> [ beer => "Невское", сколько =>"кружечку"]));
>> my %menu;
>> my $beer_price = $menu{"beer"};
>> $нал = ($нал - $beer_price);
>Надо открыть кошелёк и записать остаток :)
Принято, допишем %)))
>
>> sleep 300;
>> } while ($нал ne "150 рублей");
>> }
>>
>>> open (СASH, "<$кошелек")|| die "Can't open кошелек: потерял
>>>наверное. ^E\n";
Ты же вытаскивать деньги собрался? И более точная диагностика кошелька.>>> if ($нал <= "150 рублей"){
>>> die "А на сигареты?
>>>А на бензин?";
Хм, какой бензин, лучше добавить на девок :)>>> $нал = ($нал - $beer_price);
>>Надо открыть кошелёк и записать остаток :)
Либо в строке my $нал = <CASH>; брать не весь кошелек.
>>Надо открыть кошелёк и записать остаток :)
при таком подходе: while ($хочу_пива) {
записывать остаток не имеет смысла. Надо поставить счетчик после while ($хочу_пива) { ++$кружка_пива...
И в зависимости от этого -- бензин или лучше девок или ....
>>>Надо открыть кошелёк и записать остаток :)
>при таком подходе: while ($хочу_пива) {
>записывать остаток не имеет смысла. Надо поставить счетчик после while ($хочу_пива) {
>++$кружка_пива...
>И в зависимости от этого -- бензин или лучше девок или ....
>+ sleep увеличивать :-)
Бензин важнее девок, ибо "первым делом - самолеты... " :)
sleep - можно увеличить :)
А вот счетчик зачем - гулять, так пока не останется на бензин и на сигареты ! :)
>Бензин важнее девок, ибо "первым делом - самолеты... " :)
>sleep - можно увеличить :)
>А вот счетчик зачем - гулять, так пока не останется на бензин
>и на сигареты ! :)
СМЫСЛ СЧЕТЧИКА
($кружка == 2) && $мысль = "А барменша то ничего..";
....
($кружка == 4) && $мысль = "Пойду бить морду Бушу" ;# типа после 3-й говорят о политике
........
>>Бензин важнее девок, ибо "первым делом - самолеты... " :)
>>sleep - можно увеличить :)
>>А вот счетчик зачем - гулять, так пока не останется на бензин
>>и на сигареты ! :)
>СМЫСЛ СЧЕТЧИКА
> ($кружка == 2) && $мысль = "А барменша то ничего..";sleep 300*2
>
>....
> ($кружка == 4) && $мысль = "Пойду бить морду Бушу"sleep 300*4
>;# типа после 3-й говорят о политике
>........^)
PS жду не дождусь выхода окончательной версии программы
PPS ну насчет 300*2 и 300*4 это я загнул - зависимость (не алкогольная) явно не линейная - так что большой простор мысли для разработчика :)
PPPS не надо о политике :)
>>Бензин важнее девок, ибо "первым делом - самолеты... " :)
>>sleep - можно увеличить :)
>>А вот счетчик зачем - гулять, так пока не останется на бензин
>>и на сигареты ! :)
>СМЫСЛ СЧЕТЧИКА
> ($кружка == 2) && $мысль = "А барменша то ничего..";
>
>....
> ($кружка == 4) && $мысль = "Пойду бить морду Бушу"
>;# типа после 3-й говорят о политике
>........
($кружка == 5) && $мысль = "Деньги на бензин уже можно пропивать :)";
>Бензин важнее девок, ибо "первым делом - самолеты... " :)
Так ты ж до первого мента не доедешь.
>>Бензин важнее девок, ибо "первым делом - самолеты... " :)
>
>
>Так ты ж до первого мента не доедешь.
Доеду, ибо бензин для скутера :)Над окончательным вариантом ведутся работы :)
>>Бензин важнее девок, ибо "первым делом - самолеты... " :)
>
>
>Так ты ж до первого мента не доедешь.тщательней код изучайте:
>>#######################################
>># Покупка дополнительного пива в баре #
>>#######################################
...менты будут за дополнительную плату (адаптация программы под заказчика)
>>>Бензин важнее девок, ибо "первым делом - самолеты... " :)
>>
>>
>>Так ты ж до первого мента не доедешь.
>
>тщательней код изучайте:
>
>>>#######################################
>>># Покупка дополнительного пива в баре #
>>>#######################################
>...
>
>менты будут за дополнительную плату (адаптация программы под заказчика)
забыл добавить: :-)
1) если используете $мысль, то не забывайте
use utf8;2) Открывать кошелек лучше open с тремя аргументами
open (СASH, "<", "$кошелек") - кто знает этих производителей кошельков, вдруг у кого-то кошелек со знака "<" начинается?3) die "Can't open кошелек: потерял наверное"; лучше заменить на
die "Can't open кошелек: $!";
потому что вдруг ты его просто открыть не можешь? Рукт там дрожат или еще что... Не надо дезориентировать пользователя догадками 8)))4) Наличность вначале сравнивается численно, а в конце - строково, причем ne - что чревато...
:))) IMHO nugno dobavit conf-file ili opisat' globalnie peremennie, chto vrode razmer kashelka, nachalnoe sostoyanie (s boduna, trezvennik, yazvenik ili s devushkoi &etc), and more
>:))) IMHO nugno dobavit conf-file ili opisat' globalnie peremennie, chto vrode razmer
>kashelka, nachalnoe sostoyanie (s boduna, trezvennik, yazvenik ili s devushkoi &etc),
>and more
Ага! Уже, наверно, стоит писать специальный пакадж и двигать его на CPAN ;))
nu rebjata spasibo :-))))))) posmeshili vy menja na slavu :-)))
fuflo eto a ne humor