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

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

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