Модераторы: korob2001, ginnie

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> А давайте улыбнемся :), А давайте улыбнемся :) 
:(
    Опции темы
wladk
Дата 17.4.2007, 18:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 11.4.2007

Репутация: нет
Всего: нет



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

Код

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


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


PM MAIL   Вверх
maxim1000
Дата 17.4.2007, 21:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: нет
Всего: 110



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


--------------------
qqq
PM WWW   Вверх
nitr
Дата 17.4.2007, 21:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84



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


--------------------
PM   Вверх
igorold
Дата 18.4.2007, 08:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 557
Регистрация: 22.12.2005
Где: Россия->Урал-& gt;Миасс

Репутация: 3
Всего: 17



Цитата(wladk @ 17.4.2007,  18:44)
Ковырялся в одном модуле, наткнулся на кусок кода, не могу не поделится с общетсвенностью


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

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

Это сообщение отредактировал(а) igorold - 18.4.2007, 08:10


--------------------
... у семи нянек 14 сисек ...  
Putin here, Putin there, Putin almost everywhere!
PM MAIL   Вверх
Бонифаций
Дата 18.4.2007, 11:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 827
Регистрация: 15.9.2005
Где: Brisbane

Репутация: нет
Всего: 40



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


--------------------
 Бонифаций.
 
PM MAIL ICQ Skype GTalk Jabber YIM   Вверх
korob2001
Дата 18.4.2007, 12:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61



Цитата(igorold @  18.4.2007,  05:10 Найти цитируемый пост)
меня больше напрягают безграмотные посты ...

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


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
KSURi
Дата 18.4.2007, 12:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 20
Всего: 27



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

my $arg = shift;

$arg = 'hello world';
...

Например так


--------------------
Died at Life.pl line 21
PM Jabber   Вверх
tishaishii
Дата 18.4.2007, 16:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Создатель
***


Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: 4
Всего: 8



Нафига?
Что оно за заглушка, которая может быть в Perl нужна и без которой вообще ни как?
PM MAIL ICQ Skype   Вверх
KSURi
Дата 18.4.2007, 18:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 20
Всего: 27



Цитата(tishaishii @ 18.4.2007,  16:52)
Нафига?
Что оно за заглушка, которая может быть в Perl нужна и без которой вообще ни как?

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

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

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


--------------------
Died at Life.pl line 21
PM Jabber   Вверх
wladk
Дата 18.4.2007, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 11.4.2007

Репутация: нет
Всего: нет



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

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

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

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

А тему то я задумывал не для обсуждения именно этого куска кода, а может кто-то что-то тоже смешное наковыряет;)
PM MAIL   Вверх
stan777
  Дата 19.4.2007, 09:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 145
Регистрация: 29.1.2007

Репутация: нет
Всего: нет



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

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



Это сообщение отредактировал(а) stan777 - 19.4.2007, 09:51
PM MAIL   Вверх
nitr
Дата 19.4.2007, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84



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

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


--------------------
PM   Вверх
stan777
Дата 19.4.2007, 17:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 145
Регистрация: 29.1.2007

Репутация: нет
Всего: нет



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

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

ну конечно это не по теме, ну а на мои темы все равно мне не отвечают smile.
PM MAIL   Вверх
smartov
Дата 19.4.2007, 17:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


свой собственный
****


Профиль
Группа: Экс. модератор
Сообщений: 4225
Регистрация: 2.2.2006
Где: NJ

Репутация: нет
Всего: 259



Уже есть подобная тема. Там уж страниц пять. Называется "Самые бесполезные куски кода". Вот только надо ее нарыть smile
PM MAIL   Вверх
Бонифаций
  Дата 19.4.2007, 17:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 827
Регистрация: 15.9.2005
Где: Brisbane

Репутация: нет
Всего: 40



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

Код


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



 smile 



--------------------
 Бонифаций.
 
PM MAIL ICQ Skype GTalk Jabber YIM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1123 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.