Говнокод #19597 — Perl — Говнокод.ру

Говнокод: по колено в коде.

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

Perl / Говнокод #19597

−13

package Whatever;

use strict;
use warnings;
use Data::Dumper;

use constant {
    PASSWORD            => 'password',
    PROFILE             => 'profile',
    ROOT_USER_DN        => 'bind-dn',
};

sub _export_data {
    my ($self, $data) = @_;
    # внутренняя логика не важна: просто напечатаем что получили
    print Dumper($data);
}

sub method {
   my ($self) = @_;

# <govnokod location="here">
   $self->_export_data({
      map { __PACKAGE__->$_ => $self->{'_' . lc $_} } qw(PASSWORD PROFILE ROOT_USER_DN)
   });
# </govnokod>
}

package main;

# быстро создадим обьект (чтоб не копировать конструктор)
my $obj = bless {
    _password     => 'foo',
    _profile      => 'bar/baz',
    _root_user_dn => 'cn=root,dc=example,dc=com'
} => 'Whatever';

$obj->method();

Захотелось вы**нуться: експортнуть несколько значений внутри обьекта по константам с такими же названиями...

Запостил:

Elvenfighter, 09 Марта 2016

Комментарии (25) RSS

gost 10.03.2016 11:56 # +13

>>> # быстро создадим обьект
...пока никто не заметил!
Ответить
- Elvenfighter 10.03.2016 21:59 # +15
  
  ... пока Оккам не заметил
  Ответить
  - kegdan 10.03.2016 22:20 # +14
    
    Амаяк Акопян
    Ответить
    - Amayak_Akopyan 10.03.2016 23:46 # +13
      
      Сим-салабим!
      Ответить
      - kegdan 10.03.2016 23:47 # +13
        
        Покажи фокус!
        Ответить
        
        Amayak_Akopyan 10.03.2016 23:57 # +15
        
        Ахалай-махалай:
        
        my $str = "265 dogs and 1488 cats are walking at 42 street"; my $count =()= $str =~ /\d/g; print $count;
        
        Программа считает количество цифр в строке:
        http://ideone.com/XRgdp4
        Ответить
        
        kegdan 10.03.2016 23:58 # +15
        
        хуйня это, а не фокус
        
        Сделай так что бы у меня баба появилась
        Ответить
        
        Amayak_Akopyan 11.03.2016 00:00 # +14
        
        О, щербет моей души, покажи ты, что можешь!
        
        Ром-баба в любом магазине есть и стоит, как батон хлеба.
        Ответить
        
        kegdan 11.03.2016 00:39 # +14
        
        magic=: +/@(<&58*.>&47)@(a.&i.) magic '265 dogs and 1488 cats are walking at 42 street' 9
        Ответить
        
        bormand 11.03.2016 07:22 # +14
        
        А на мальбодже слабо?
        Ответить
        
        kegdan 11.03.2016 07:22 # +13
        
        слабо(
        Ответить
        
        1024-- 11.03.2016 16:56 # +14
        
        var magic = x => x.split(/\d/).length - 1; // Без гоатсе и ГМО
        Ответить
        
        kegdan 11.03.2016 17:01 # +16
        
        magic = length.filter isDigit
        Ответить
        
        Elvenfighter 13.03.2016 22:04 # +13
        
        я вам тут еще принес:
        my $count = length join '', $str =~ /\d/g;
        по сути та же махинация со списковым контекстом
        Ответить
        
        bormand 13.03.2016 22:08 # +13
        
        Ответить
        
        Elvenfighter 13.03.2016 22:17 # +13
        
        my $count = map {$_} $str =~ /\d/g; my $count = grep {1} $str =~ /\d/g;
        Ответить
        
        Elvenfighter 13.03.2016 22:33 # +12
        
        # $] < 5.014 my $count = length(do { ($_ = $str) =~ s/\D//g, $_ }); # $] >= 5.014 my $count = length $str =~ s/\D//rg;
        Ответить
        
        Elvenfighter 13.03.2016 22:38 # +14
        
        Оператор baby cart:
        my $count = @{[ $str =~ /\d/g ]};
        Ответить
        
        kegdan 14.03.2016 06:35 # +14
        
        for(i=-1;str[++i]!='\0'; count += str[i]<='9'&&str[i]>='0');
        
        Языки, на которых я могу писать хеллоуворды. стремительно заканчиваются
        Ответить
        
        gost 14.03.2016 21:56 # +14
        
        int count = std::count_if(str.begin(), str.end(), [](char c){return c>='0'&&c<='9';});
        Ответить
        
        kegdan 13.03.2016 22:22 # +13
        
        str.scan(/\d/).count
        Ответить
        
        Elvenfighter 10.03.2016 23:59 # +18
        
        Да это же оператор гоатсе!
        Ответить
        
        guest 19.03.2016 03:12 # +13
        
        not exp log srand xor s qq qx xor
        s x x length uc ord and print chr
        ord for qw q join use sub tied qx
        xor eval xor print qq q q xor int
        eval lc q m cos and print chr ord
        for qw y abs ne open tied hex exp
        ref y m xor scalar srand print qq
        q q xor int eval lc qq y sqrt cos
        and print chr ord for qw x printf
        each return local x y or print qq
        s s and eval q s undef or oct xor
        time xor ref print chr int ord lc
        foreach qw y hex alarm chdir kill
        exec return y s gt sin sort split
        Ответить
      - fajes_rown 19.03.2016 16:54 # +14
        
        Бля, я так и думал, что Акопян - перлоёб. Как в хрустальный шар глядел.
        Ответить
guest 19.03.2016 03:10 # +13

Ух-ух, лапоточки мои, Что вы ходите как будто не туды? Вы меня совсем не держите, Упаду - вы не поддержите!
Ответить

Говнокод: по колено в коде.

Perl / Говнокод #19597

Комментарии (25) RSS

Добавить комментарий