Realmente :)<br><br>Perfeito Adriano..<br>Obrigada<br><br><b><i>Adriano Ferreira &lt;a.r.ferreira@gmail.com&gt;</i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> On 7/18/06, Patty Silva <ptfzs@yahoo.com.br> wrote:<br>&gt;  Ai funcionou.. nao sei se eh a melhor solucao :)<br><br>There is more than way to do it.<br><br>&gt;  obs: sempre ira ser teste_A<br><br>De maneira geral, acho preferível as abordagens que podem dar certo<br>mesmo se você mudar um pouco os detalhes. Quando você apresentou o<br>problema para o qual você procurava uma solução, você disse "preciso<br>recuperar somente os ultimos 4 digitos do arquivo". Quer dizer, acho<br>que não é necessário fazer hipótese alguma sobre o que NÃO faz parte<br>dos últimos 4 dígitos do arquivo. Por isso a solução que sugeri:<br><br>    $file =~ /(\d{4})\.TXT$/;<br>    print "os ultimos 4 digitos: $1\n";<br><br>que também não se preocupa em arrancar
 o ".TXT" com uma substituição<br>(s//). Deste jeito, funciona para entradas como<br><br>   $file = 'teste_A1202012.TXT';<br>   $file = 'BOO2892.TXT';<br>   $file = 'splash_splish_0000.TXT';<br><br>e você ainda pode tornar a extensão mais genérica ("." seguido de<br>qualquer coisa que não é ".").<br><br>    $file =~ /(\d{4})\.[^.]*$/;<br><br><br>&gt;<br>&gt;<br>&gt;<br>&gt; Patty Silva <ptfzs@yahoo.com.br> escreveu:<br>&gt;  Pessoal.. preciso de ajuda em uma expressao regular:<br>&gt; preciso recuperar somente os ultimos 4 digitos do arquivo:<br>&gt;<br>&gt; $file=teste_A1202012.TXT<br>&gt;<br>&gt; para tirar o .TXT<br>&gt; fiz<br>&gt; $file=~ s/.TXT//;<br>&gt;<br>&gt; tentei fazer algo do tipo:<br>&gt; $file=~ /[a-z]_[a-z]\d\d\d\d(\d\d\d\d)/;<br>&gt;<br>&gt; mas nao funcionou tb :)<br>&gt;<br>&gt; Alguem pode dar uma Luzzzzz<br>&gt;<br>&gt; Obrigada<br>&gt;<br>&gt;<br>&gt;<br>&gt;<br>&gt; ________________________________<br>&gt;  Você quer respostas para suas perguntas? Ou
 você sabe muito e quer<br>&gt; compartilhar seu conhecimento? Experimente o Yahoo!<br>&gt; Respostas!_______________________________________________<br>&gt; Cascavel-pm mailing list<br>&gt; Cascavel-pm@pm.org<br>&gt; http://mail.pm.org/mailman/listinfo/cascavel-pm<br>&gt;<br>&gt;<br>&gt;<br>&gt;  ________________________________<br>&gt;  Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.<br>&gt; Registre seu aparelho agora!<br>&gt;<br>&gt;<br>&gt; _______________________________________________<br>&gt; Cascavel-pm mailing list<br>&gt; Cascavel-pm@pm.org<br>&gt; http://mail.pm.org/mailman/listinfo/cascavel-pm<br>&gt;<br>&gt;<br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm<br></ptfzs@yahoo.com.br></ptfzs@yahoo.com.br></blockquote><br><p>&#32;
                <hr size=1> 
Yahoo! Search<br> 
Música para ver e ouvir: <a href="http://us.rd.yahoo.com/mail/br/tagline/search/video/*http://br.search.yahoo.com/search/video?p=james+blunt&ei=UTF-8&cv=g&x=wrt&vm=r&fr=intl-mail-br-b">You're Beautiful, do James Blunt</a>