"-E" ativa Perl 5.10.<br><br><div class="gmail_quote">2009/4/17 Donato Azevedo <span dir="ltr"><<a href="mailto:donatoaz@gmail.com">donatoaz@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="im">On 4/17/09, Marco Lima <<a href="mailto:braun.lima@gmail.com">braun.lima@gmail.com</a>> wrote:<br>
> Só para não perder o hábito! =P<br>
><br>
> perl -E '$,=$/,say$_..10'<br>
<br>
</div>say usa feature ou já é padrão em alguma versão nova?<br>
<font color="#888888"><br>
Donato<br>
</font><div><div></div><div class="h5">_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>This is my poney:<br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>
------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>--------\_-(\\.---.//)-_/------------<br>----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>
----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>perl -MLWP::Simple -le 'grep{ print $1 if /href="(http.+?)"/}split($/,get("<a href="http://www.perl.org.br">http://www.perl.org.br</a>"))'<br>