Um funcionário do Facebook postou antigo fonte(em perl) da feature que calculava um grafo entre os amigos, https://gist.github.com/philfreo/7257723
O que me chamou atenção foi má qualidade do código, exemplo, linha 39 "parece" aceitar SQL Injection. O IF/ELSE infinito na linha 100, etc. A própria thread no HN[https://news.ycombinator.com/item?id=6650195] metralha o código chamando de "perl4-ism". [off-topic] Não chamando atenção para escrever código ruim, mas volto ao antigo dilema, código que funciona VS ~Catedral~. Atualmente, quando aperta faço até um ./xgh (hehehe). Enfim, código que entrega VS código que "atrasa"(talvez). Hoje o fonte deles não deve ser dessa forma, claro(com tanta gente pra manter esse código e tentativas de hacking facebook), mas começou dessa forma.
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
