=()= / Говнокод #682 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
my @idx = map{ (split(/\|/, $_))[0] || () }
	    map{ io($_)->chomp->slurp } 
		io($boardsdir)->filter(sub{ my $f = fileparse($_->name, qr/.txt/i);
					    $_->name =~ /\.txt$/i and grep{$_ eq $f} @board;
					})->all_files;

Так бывает, когда хочется одним предложением сказать все.

Запостил: guest guest, (Updated )

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

  • ava guest # Ссылка на оригинал 0

    забавно ) я писал такие же монстроподобные конструкции которые через полгода уже не мог понять %))
    Ответить

  • ava guest # Ссылка на оригинал 0

    Нормально, на perlmonks идите, там такого добра много 🙂
    Ответить

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

Из-за тебя ушел bormand, guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓