1. Perl / Говнокод #682

    −305.9

    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, 07 Марта 2009

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

    • ava guest 11.08.2009 00:38 # 0

      Круто
      Ответить

    • ava guest 11.08.2009 09:47 # 0

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

    • ava guest 11.08.2009 10:10 # 0

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

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