URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID9
Нить номер: 1406
[ Назад ]

Исходное сообщение
"Немного юмора :) Не офф :)"

Отправлено zlinuxan , 17-Фев-03 09:19 
Исключительно прикола ради, а также способствует обучению :)
Дополнения и исправления приветствуются :)
#!/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 рублей");
    }
    


Содержание

Сообщения в этом обсуждении
"RE: Немного юмора :) Не офф :)"
Отправлено SergCh , 18-Фев-03 10:58 
>Исключительно прикола ради, а также способствует обучению :)
>Дополнения и исправления приветствуются :)
>#!/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 рублей");
> }
>



"RE: Немного юмора :) Не офф :)"
Отправлено zlinuxan , 18-Фев-03 11:09 
>>Исключительно прикола ради, а также способствует обучению :)
>>Дополнения и исправления приветствуются :)
>>#!/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 рублей");
>> }
>>



"RE: Немного юмора :) Не офф :)"
Отправлено dawnshade , 18-Фев-03 11:56 

>>>    open (СASH, "<$кошелек")|| die "Can't open кошелек: потерял
>>>наверное. ^E\n";
Ты же вытаскивать деньги собрался? И более точная диагностика кошелька.

>>>      if ($нал <= "150 рублей"){
>>>        die "А на сигареты?
>>>А на бензин?";
Хм, какой бензин, лучше добавить на девок :)

>>>    $нал = ($нал - $beer_price);
>>Надо открыть кошелёк и записать остаток :)
Либо в строке my $нал = <CASH>; брать не весь кошелек.


"RE: Немного юмора :) Не офф :)"
Отправлено konst , 18-Фев-03 16:26 
>>Надо открыть кошелёк и записать остаток :)
при таком подходе: while ($хочу_пива) {
записывать остаток не имеет смысла. Надо поставить счетчик после while ($хочу_пива) { ++$кружка_пива...
И в зависимости от этого -- бензин или лучше девок или ....

"RE: Немного юмора :) Не офф :)"
Отправлено LS , 18-Фев-03 16:49 
>>>Надо открыть кошелёк и записать остаток :)
>при таком подходе: while ($хочу_пива) {
>записывать остаток не имеет смысла. Надо поставить счетчик после while ($хочу_пива) {
>++$кружка_пива...
>И в зависимости от этого -- бензин или лучше девок или ....
>

+ sleep увеличивать :-)


"RE: Немного юмора :) Не офф :)"
Отправлено zlinuxan , 18-Фев-03 16:58 
Бензин важнее девок, ибо "первым делом - самолеты... " :)
sleep - можно увеличить :)
А вот счетчик зачем - гулять, так пока не останется на бензин и на сигареты ! :)


"RE: Немного юмора :) Не офф :)"
Отправлено konst , 18-Фев-03 17:10 
>Бензин важнее девок, ибо "первым делом - самолеты... " :)
>sleep - можно увеличить :)
>А вот счетчик зачем - гулять, так пока не останется на бензин
>и на сигареты ! :)
СМЫСЛ СЧЕТЧИКА
($кружка == 2) &&  $мысль = "А барменша то ничего..";
....
($кружка == 4) &&  $мысль = "Пойду бить морду Бушу" ;# типа после 3-й говорят о политике
........

"RE: Немного юмора :) Не офф :)"
Отправлено LS , 18-Фев-03 17:30 
>>Бензин важнее девок, ибо "первым делом - самолеты... " :)
>>sleep - можно увеличить :)
>>А вот счетчик зачем - гулять, так пока не останется на бензин
>>и на сигареты ! :)
>СМЫСЛ СЧЕТЧИКА
> ($кружка == 2) &&  $мысль = "А барменша то ничего..";

sleep 300*2

>
>....
> ($кружка == 4) &&  $мысль = "Пойду бить морду Бушу"

sleep 300*4

>;# типа после 3-й говорят о политике
>........

^)

PS жду не дождусь выхода окончательной версии программы

PPS ну насчет 300*2 и 300*4 это я загнул - зависимость (не алкогольная) явно не линейная - так что большой простор мысли для разработчика :)


PPPS не надо о политике :)


"RE: Немного юмора :) Не офф :)"
Отправлено SergCh , 28-Фев-03 07:21 
>>Бензин важнее девок, ибо "первым делом - самолеты... " :)
>>sleep - можно увеличить :)
>>А вот счетчик зачем - гулять, так пока не останется на бензин
>>и на сигареты ! :)
>СМЫСЛ СЧЕТЧИКА
> ($кружка == 2) &&  $мысль = "А барменша то ничего..";
>
>....
> ($кружка == 4) &&  $мысль = "Пойду бить морду Бушу"
>;# типа после 3-й говорят о политике
>........
($кружка == 5) && $мысль = "Деньги на бензин уже можно пропивать :)";


"RE: Немного юмора :) Не офф :)"
Отправлено dawnshade , 18-Фев-03 17:42 
>Бензин важнее девок, ибо "первым делом - самолеты... " :)


Так ты ж до первого мента не доедешь.


"RE: Немного юмора :) Не офф :)"
Отправлено zlinuxan , 18-Фев-03 18:14 
>>Бензин важнее девок, ибо "первым делом - самолеты... " :)
>
>
>Так ты ж до первого мента не доедешь.
Доеду, ибо бензин для скутера :)

Над окончательным вариантом ведутся работы :)



"RE: Немного юмора :) Не офф :)"
Отправлено LS , 18-Фев-03 18:16 
>>Бензин важнее девок, ибо "первым делом - самолеты... " :)
>
>
>Так ты ж до первого мента не доедешь.

тщательней код изучайте:

>>#######################################
>># Покупка дополнительного пива в баре #
>>#######################################
...

менты будут за дополнительную плату (адаптация программы под заказчика)


"RE: Немного юмора :) Не офф :)"
Отправлено LS , 18-Фев-03 18:17 
>>>Бензин важнее девок, ибо "первым делом - самолеты... " :)
>>
>>
>>Так ты ж до первого мента не доедешь.
>
>тщательней код изучайте:
>
>>>#######################################
>>># Покупка дополнительного пива в баре #
>>>#######################################
>...
>
>менты будут за дополнительную плату (адаптация программы под заказчика)


забыл добавить: :-)


"RE: Немного юмора :) Не офф :)"
Отправлено Zulu , 20-Фев-03 16:54 
1) если используете $мысль, то не забывайте
use utf8;

2) Открывать кошелек лучше open с тремя аргументами
open (СASH, "<", "$кошелек") - кто знает этих производителей кошельков, вдруг у кого-то кошелек со знака "<" начинается?

3) die "Can't open кошелек: потерял наверное"; лучше заменить на
die "Can't open кошелек: $!";
потому что вдруг ты его просто открыть не можешь? Рукт там дрожат или еще что... Не надо дезориентировать пользователя догадками 8)))

4) Наличность вначале сравнивается численно, а в конце - строково, причем ne - что чревато...


"RE: Немного юмора :) Не офф :)"
Отправлено I.Emil , 21-Фев-03 09:11 
:))) 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



"RE: Немного юмора :) Не офф :)"
Отправлено zlinuxan , 21-Фев-03 10:03 
>:))) 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 ;))


"RE: Немного юмора :) Не офф :)"
Отправлено starlets , 25-Фев-03 20:36 
nu rebjata spasibo :-))))))) posmeshili vy menja na slavu :-)))

"RE: Немного юмора :) Не офф :)"
Отправлено 1 , 28-Фев-03 06:40 
fuflo eto a ne humor