LINUX.ORG.RU
Форум — Talks  

Новый членомер на Perl

 


1

4

https://github.com/zdo/chlenomer/blob/master/chlenomer.pl

$ perl chlenomer.pl 
Ты действительно хочешь узнать правду, какой бы она ни была? [y/N]
> y
Так, считаем сколько времени ты проводишь на ЛОРе...
Твоя РекталОС содержит нормальную дисковую утилиту?
640 КБ должно хватить всем. Тебе не хватает что ли?
Джява не тормозит, говоришь? Сейчас посмотрим...
Сколько вареза ты скачал с рапидшары?
Сколько вкладок со флэшом у тебя запущено?
Русские физики юзают старую слаку. А ты?
***** ВНИМАНИЕ! Ваш член измерен. Держите-с... *****
8=====D
*** Вердикт доктора (5 сантиметров):
*** Когда через восемь лет вы закончите школу, вновь пройдите этот тест. Вы удивитесь, инфа 146%.

Что он покажет вам? Предложения по улучшению?

Для Ъ:

Код на гитхабе, ссылка вверху.

★★

Последнее исправление: bk_ (всего исправлений: 1)

 ← 1 2 →
geladil@suiseiseki ~ $ ./chlenomer.pl 
Ты действительно хочешь узнать правду, какой бы она ни была? [y/N]
> y
Так, считаем сколько времени ты проводишь на ЛОРе...
Твоя РекталОС содержит нормальную дисковую утилиту?
640 КБ должно хватить всем. Тебе не хватает что ли?
Джява не тормозит, говоришь? Сейчас посмотрим...
Сколько вареза ты скачал с рапидшары?
Сколько вкладок со флэшом у тебя запущено?
Русские физики юзают старую слаку. А ты?
***** ВНИМАНИЕ! Ваш член измерен. Держите-с... *****
Ваш член черезчур длинный и в терминал не влезет, извините.
geladil ★
()
Ответ на: комментарий от Novell-ch

Ага, было такое же на сервере.

bk_ ★★
() автор топика

***** ВНИМАНИЕ! Ваш член измерен. Держите-с... *****

8D

*** Вердикт доктора (0 сантиметров):

*** Технически, это означает, что Вы можете стать хорошим певцом...

Еее, круто!

Cooler ★★★★
()

my $chlen_length = ($uptime * 0.5) *

лол :)

Harald ★★★★★
()

Использовать русский язык, но не контролировать локаль - первый признак быдлокода.

Блобов и однострочников не нашёл, запустил сначала на виртуалке. Результат -

*** Вердикт доктора (0 сантиметров): *** Технически, это означает, что Вы можете стать хорошим певцом...

потом на десктопе:

***** ВНИМАНИЕ! Ваш член измерен. Держите-с... ***** Ваш член черезчур длинный и в терминал не влезет, извините.

router ★★★★★
()
Ответ на: комментарий от bk_

Это полудесктоп. На немолодом уже ноуте тот же результат. Может, стоить усложнить? А то придется жену искать на конюшне.

geladil ★
()
Ответ на: комментарий от router

Поправил: 

} else {
+    print "Длина: $chlen_length\n";
    die "Ваш член черезчур длинный и в терминал не влезет, извините.\n";
}

Длина: 35535182

router ★★★★★
()

print "...\n"

На что только люди не идут, лишь бы say не использовать...

redgremlin ★★★★★
()
Ответ на: комментарий от router

Даже если это в микрометрах - всё равно неплохо :)

router ★★★★★
()

Ваш член черезчур длинный и в терминал не влезет, извините.

:D

Xenesz ★★★★
()

***** ВНИМАНИЕ! Ваш член измерен. Держите-с... *****
8D
*** Вердикт доктора (0 сантиметров):
*** Технически, это означает, что Вы можете стать хорошим певцом...

Так ведь и обидеть можно :(

ymuv ★★★★
()
Ответ на: комментарий от bk_

Навскидку: снимать баллы за самые известные кедо- и гномопрограммы в ps, а за конструкции вида cat ...|grep в .bash_history снимать вообще 100500 баллов и запускать скачивание Максимальной.

geladil ★
()

Ну всё - венде теперь точно капец!

ados ★★★★★
() 
[21:31:16][alex][~/Developing/C/Leopard]: perl ~/Developing/Perl/Mer.pl 
Ты действительно хочешь узнать правду, какой бы она ни была? [y/N]
> Y
Так, считаем сколько времени ты проводишь на ЛОРе...
Твоя РекталОС содержит нормальную дисковую утилиту?
df: «/root/.gvfs»: Отказано в доступе
640 КБ должно хватить всем. Тебе не хватает что ли?
Джява не тормозит, говоришь? Сейчас посмотрим...
Сколько вареза ты скачал с рапидшары?
Сколько вкладок со флэшом у тебя запущено?
Русские физики юзают старую слаку. А ты?
***** ВНИМАНИЕ! Ваш член измерен. Держите-с... *****
Ваш член черезчур длинный и в терминал не влезет, извините.

Пойду менять штаны.

AlexCones ★★★
()
Ответ на: комментарий от AlexCones

И да, ноут Lenovo G530, uptime: 

[23:33:08][alex][~]: uptime
 23:33:09 up 44 days, 22:04,  4 users,  load average: 0.92, 0.68, 0.46

AlexCones ★★★
()

Через какой такой чур? Всю жизнь «чересчур» писалось.

Artificial_Thought ★★★★
()

На одной машине 

Длина: 23553 сантиметров.
на другой 
*** Вердикт доктора (0 сантиметров):
Улучшайте алгоритм, пока что никакой корреляции

fads ★★
()
Ответ на: комментарий от AptGet

Считается загрузка системы. Почему ноль?

bk_ ★★
() автор топика
Ответ на: комментарий от bk_ 
[23:42:04][alex][~]: perl ~/Загрузки/zdo-chlenomer-6279fe2/chlenomer.pl 
Ты действительно хочешь узнать правду, какой бы она ни была? [y/N]
> Y
Так, считаем сколько времени ты проводишь на ЛОРе...
Твоя РекталОС содержит нормальную дисковую утилиту?
df: «/root/.gvfs»: Отказано в доступе
640 КБ должно хватить всем. Тебе не хватает что ли?
Джява не тормозит, говоришь? Сейчас посмотрим...
Сколько вареза ты скачал с рапидшары?
Сколько вкладок со флэшом у тебя запущено?
Русские физики юзают старую слаку. А ты?
***** ВНИМАНИЕ! Ваш член измерен. Держите-с... *****
Длина: 193650 сантиметров.
Ваш член чересчур длинный и в терминал не влезет, извините.

~2 километра... Мда...

AlexCones ★★★
()
Ответ на: комментарий от ymuv

Так ведь и обидеть можно :(

Аналогичная ситуация...

zibert ★★★
() 
Ты действительно хочешь узнать правду, какой бы она ни была? [y/N]
> y
Так, считаем сколько времени ты проводишь на ЛОРе...
Твоя РекталОС содержит нормальную дисковую утилиту?
640 КБ должно хватить всем. Тебе не хватает что ли?
Джява не тормозит, говоришь? Сейчас посмотрим...
Сколько вареза ты скачал с рапидшары?
Сколько вкладок со флэшом у тебя запущено?
Русские физики юзают старую слаку. А ты?
***** ВНИМАНИЕ! Ваш член измерен. Держите-с... *****
Длина: 109501 сантиметров.
Ваш член чересчур длинный и в терминал не влезет, извините.

километр, чо

xapienz ★
()

Кстати, циничная идея для членомера на perl:

Форкнуться n раз, по числу ядер. Потомки наперегонки запускают однострочник. Предок в это время замеряет load average, параметры из iostat, объём дискового кэша

Потом выводит: «длина члена = $len. А мозгов явно не хватает.»

router ★★★★★
()
Ответ на: комментарий от router

По какой приблизительно формуле считать длину?

bk_ ★★
() автор топика
Ответ на: комментарий от router

Пусть выведет по отдельности $10, $11, $12. Скрипт писался вообще на макоси, а уже потом портирован под линупс. Но везде работает, а тут нет. Хз, почему.

bk_ ★★
() автор топика
Ответ на: комментарий от router

Да, в локали дело

[~]$ export LC_NUMERIC=C
[~]$ uptime | awk '{print $10+$11*0.5+$12*0.1}'
0.602
AptGet ★★★
() 
$ ./chlenomer.pl 
Ты действительно хочешь узнать правду, какой бы она ни была? [y/N]
> N^M^M^M^M^M^M^M

wtf?

demidrol ★★★★★
() 
39c39
< $uptime = $1 if (`uptime` =~ /(\d+)\sday/) or $uptime = 0;
---
> $uptime = $1 if (`uptime` =~ /(\d+)\sdays/) or $uptime = 0;
maloi ★★★★★
() 
Ты действительно хочешь узнать правду, какой бы она ни была? [y/N]
> y
Так, считаем сколько времени ты проводишь на ЛОРе...
'uptime' is not recognized as an internal or external command,
operable program or batch file.
Здесь нет 'uptime'. Это что, Шиндовс?
kranky ★★★★★
()

ещё - я думаю в маке число ядер не влияет на результат, а в линуксах - влияет, или я неправ?

maloi ★★★★★
()

Строчки возможных ответов в коде радуют :)

gh0stwizard ★★★★★
()

Предложения по улучшению?

Убери дурацкий вопрос насчет правды — не хотел бы узнать, не запускал бы. А то сейчас wget -q -O - https://github.com/zdo/chlenomer/raw/master/chlenomer.pl | perl выдает совершенно некорректный результат

dexpl ★★★★★
() 
***** ВНИМАНИЕ! Ваш член измерен. Держите-с... *****
Длина: 6371 сантиметров.
Ваш член чересчур длинный и в терминал не влезет, извините.
gadfly ★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
 ← 1 2 →
Talks