The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Немного юмора :) Не офф :)"
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"Немного юмора :) Не офф :)"
Сообщение от zlinuxan emailИскать по авторуВ закладки on 17-Фев-03, 09:19  (MSK)
Исключительно прикола ради, а также способствует обучению :)
Дополнения и исправления приветствуются :)
#!/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 рублей");
}

  Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

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


  Рекомендовать в FAQ | Cообщить модератору | Наверх

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


  Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "RE: Немного юмора :) Не офф :)"
Сообщение от dawnshade emailИскать по авторуВ закладки on 18-Фев-03, 11:56  (MSK)

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

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

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

  Рекомендовать в FAQ | Cообщить модератору | Наверх

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

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

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

  Рекомендовать в FAQ | Cообщить модератору | Наверх

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

  Рекомендовать в FAQ | Cообщить модератору | Наверх

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

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

sleep 300*2

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

sleep 300*4

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

^)

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

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


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

  Рекомендовать в FAQ | Cообщить модератору | Наверх

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

  Рекомендовать в FAQ | Cообщить модератору | Наверх

9. "RE: Немного юмора :) Не офф :)"
Сообщение от dawnshade emailИскать по авторуВ закладки on 18-Фев-03, 17:42  (MSK)
>Бензин важнее девок, ибо "первым делом - самолеты... " :)


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

  Рекомендовать в FAQ | Cообщить модератору | Наверх

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

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


  Рекомендовать в FAQ | Cообщить модератору | Наверх

11. "RE: Немного юмора :) Не офф :)"
Сообщение от LS emailИскать по авторуВ закладки on 18-Фев-03, 18:16  (MSK)
>>Бензин важнее девок, ибо "первым делом - самолеты... " :)
>
>
>Так ты ж до первого мента не доедешь.

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

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

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

  Рекомендовать в FAQ | Cообщить модератору | Наверх

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


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

  Рекомендовать в FAQ | Cообщить модератору | Наверх

13. "RE: Немного юмора :) Не офф :)"
Сообщение от Zulu emailИскать по авторуВ закладки on 20-Фев-03, 16:54  (MSK)
1) если используете $мысль, то не забывайте
use utf8;

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

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

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

  Рекомендовать в FAQ | Cообщить модератору | Наверх

14. "RE: Немного юмора :) Не офф :)"
Сообщение от I.Emil Искать по авторуВ закладки on 21-Фев-03, 09:11  (MSK)
:))) 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


  Рекомендовать в FAQ | Cообщить модератору | Наверх

15. "RE: Немного юмора :) Не офф :)"
Сообщение от zlinuxan emailИскать по авторуВ закладки on 21-Фев-03, 10:03  (MSK)
>:))) 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 ;))

  Рекомендовать в FAQ | Cообщить модератору | Наверх

16. "RE: Немного юмора :) Не офф :)"
Сообщение от starlets Искать по авторуВ закладки on 25-Фев-03, 20:36  (MSK)
nu rebjata spasibo :-))))))) posmeshili vy menja na slavu :-)))
  Рекомендовать в FAQ | Cообщить модератору | Наверх

17. "RE: Немного юмора :) Не офф :)"
Сообщение от 1 Искать по авторуВ закладки on 28-Фев-03, 06:40  (MSK)
fuflo eto a ne humor
  Рекомендовать в FAQ | Cообщить модератору | Наверх


Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей 		Created 1996-2025 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру