já q é assim:<br>perl -MExtUtils::Installed -le '$,=$/;print keys%{ExtUtils::Installed->new}'<br><br><div><span class="gmail_quote">Em 11/07/07, <b class="gmail_sendername">Nelson Ferraz</b> <<a href="mailto:nferraz@gmail.com">
nferraz@gmail.com</a>> escreveu:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">> Em uma linha:<br>><br>> perl -MExtUtils::Installed -e '$inst = ExtUtils::Installed->new();
<br>> foreach $module ($inst->modules()) { print "$module\n"; }'<br><br>O construtor já retorna a lista de módulos instalados:<br><br>perl -MExtUtils::Installed -e 'print join("\n", keys %
<br>{ExtUtils::Installed->new})'<br><br>Removendo espaços e parênteses supérfluos:<br><br>perl -MExtUtils::Installed -e'print join"\n",keys%<br>{ExtUtils::Installed->new}' # 77 caracteres<br><br>
Perl golf!!! :-D<br><br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>[]'s Fernando