Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > А давайте улыбнемся :)

Автор: wladk 17.4.2007, 18:44

Ковырялся в одном модуле, наткнулся на кусок кода, не могу не поделится с общетсвенностью

Код


    my $email;
    if ($email eq '-2') {
       $email = '-2';
    }

По-моему смешно smile

Автор: maxim1000 17.4.2007, 21:02

может, это для эмуляции условного breakpoint'а? smile

Автор: nitr 17.4.2007, 21:21

wladk, а что за модуль? smile

Автор: igorold 18.4.2007, 08:10

Цитата(wladk @ 17.4.2007, 18:44)

Ковырялся в одном модуле, наткнулся на кусок кода, не могу не поделится с общетсвенностью

По-моему смешно smile

общетсвенностью видимо довольна ... это могла быть заготовка для дальнейшего развития программы ... своего рода "затычка" ... меня больше напрягают безграмотные посты ... smile

Автор: Бонифаций 18.4.2007, 11:42

что касается "общетсвенности" то это очевидно простая опечатка. Это не безграмотность

Автор: korob2001 18.4.2007, 12:01

Цитата(igorold @ 18.4.2007, 05:10

)

меня больше напрягают безграмотные посты ...

По большому счёту ты прав, но у нас вроде как форум по программированию, а не по русскому языку и литературе. К тому же здесь участники как из россии, так же и из других стран.
Не стоит так заострять внимание на этом, к тому же это действительно больше похоже на опечатку. Это моё мнение.

Автор: KSURi 18.4.2007, 12:37

Скорее всего это заглушка... Я тоже частенько делаю подобные вещи:

Код


my $arg = shift;

$arg = 'hello world';
...

Например так

Автор: tishaishii 18.4.2007, 16:52

Нафига?
Что оно за заглушка, которая может быть в Perl нужна и без которой вообще ни как?

Автор: KSURi 18.4.2007, 18:53

Цитата(tishaishii @ 18.4.2007, 16:52)

Нафига?
Что оно за заглушка, которая может быть в Perl нужна и без которой вообще ни как?

Ну почему-же нельзя? Можно... Но мне удобно в принципе.
Вот хотя-бы отрывок из скрипта который я сейчас пишу:

Код


my $dev = shift;
    
$dev = '\Device\NPF_{60E68F93-DFDB-41FE-A0F5-E4204D46D530}';

Дело в том, что $dev берется из выпадающего списка Tk, но мне нет резона каждый раз его выбирать, потому, как я знаю какой интерфейс у себя на компе я хочу использовать. Также это может удобно когда аргумент для саба вычисляет какой-то другой саб, но еще не готов или имеет баги...

Автор: wladk 18.4.2007, 19:01

Может и заглушка. Може вообще что-то умное задумывалось. Откуда ж мне знать. Я ж вижу то что написано. Скорей всего просто "китайская методика многократного использования кода Copy&Paste". С минимальной правкой полученного кода до рабочего состояния.

А сам модуль... да есть энджайн, 670М с безумным кол-вом модулей, в котором я полтора года ковыряюсь. Местами очень изящно, а местами такие "макароны".... Из сегодняшнего:

Код


if( $field{$field} eq '_optin' || $fields->{ $field{$field} } );

Формально правильно, но от названий в глазах рябит:(

А тему то я задумывал не для обсуждения именно этого куска кода, а может кто-то что-то тоже смешное наковыряет;)

Автор: stan777 19.4.2007, 09:50

Вот мой смешной код.

Код


    # Citibank never sleeps
my @money =("dollars","euros","yens","pounds","swiss franks"); # Money it's crime
open BLACKHOLE, ">>/dev/null";
for(@money){
      print BLACKHOLE $_;
}

Автор: nitr 19.4.2007, 15:06

wladk,
stan777,
думаю все же не обсуждение в форуме, хотя судить модерам... есть вот небольшой "ресурс", там как раз такие посты обсуждают ;)

http://community.livejournal.com/ru_perlfuck/

Автор: stan777 19.4.2007, 17:14

Цитата(nitr @ 19.4.2007, 15:06)

ну конечно это не по теме, ну а на мои темы все равно мне не отвечают smile

Автор: smartov 19.4.2007, 17:34

Уже есть подобная тема. Там уж страниц пять. Называется "Самые бесполезные куски кода". Вот только надо ее нарыть smile

Автор: Бонифаций 19.4.2007, 17:46

У нас в начале 80-ых была на работе одна программистка, которая писала на бейсике. Когда ей понадобилось занести значение 1 в переменную i, она написала такой код:

Код



100 print  "Введите 1"
101 input i

Автор: stan777 19.4.2007, 18:18

Цитата(Бонифаций @ 19.4.2007, 17:46)

Код



100 print  "Введите 1"
101 input i

чо правда, вот бы нам таких програмисток smile

Автор: amg 24.4.2007, 13:01

Вот это мне понравилось.
Способ определить вчерашнюю дату (http://www.opennet.ru/openforum/vsluhforumID9/6361.html):

Код


my $ydate = localtime();
sleep(60*60*24);
print $ydate;