Olha eu estou tentando usar mas retorna:<br><erro><br><br>*main::47n<br><br></erro><br><br>Olha o meu código:<br><code><br><br>#!usr/bin/perl<br><br>use strict;<br>use warnings;<br><br>palavras("a");<br>
<br>#Abre o arquivo para somente leitura<br>sub dir {<br><br> my $argvs = shift;<br> if (defined $argvs) {<br> open DIR, "<", $argvs or die "Não foi possível abrir o arquivo\t erro 01 \n$!\n";<br>
return split(" ", <DIR> );<br> }<br><br> else {<br> print "Você precisa esclher um arquivo\t erro 02\n";<br> return undef;<br> }<br>}<br><br>#Filtra as palavras<br>sub palavras {<br>
<br> my $regex = shift;<br> *palavras = &dir("resposta");<br> foreach my $palavra( *palavras ) {<br> if ( $palavra =~ qr/$regex/i) {<br> print $palavra;<br> }<br> }<br>}<br><br></code><br>
<br>[]s<br><br>Obrigado<br><div class="gmail_quote">2008/12/30 Nelson Ferraz <span dir="ltr"><<a href="mailto:nferraz@gmail.com">nferraz@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="Ih2E3d">>> Basta olhar para o lado direito da atribuição.<br>
>><br>
>> *foo = [ 1, 2, 3 ]; # array @foo<br>
>> *foo = { bar => 'baz' }; # hash %foo<br>
>> *foo = sub { 'hello world' }; # sub foo()<br>
><br>
> Entendi Nelson, mas agora fiquei empolgado, por exemplo:<br>
><br>
> *foo = [ 1, 2, 3 ]; # array @foo<br>
><br>
> Por que usar * se você pode usar @ ?<br>
<br>
</div>Não me lembro de ter precisado manipular a tabela de símbolos para<br>
modificar escalares, array, ou hashes.<br>
<br>
Uso este recurso apenas eventualmente, para instalar ou sobrescrever<br>
subrotinas ( como no exemplo *foo = sub { ... } ). Isso é bastante<br>
útil.<br>
<div><div></div><div class="Wj3C7c">_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-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><br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>
------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>--------\_-(\\.---.//)-_/------------<br>----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>
----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>