[Cascavel-pm] Expressao Regular

[Adriano Ferreira]

On 7/18/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
> Pessoal.. preciso de ajuda em uma expressao regular:
> preciso recuperar somente os ultimos 4 digitos do arquivo:
>
> $file=teste_A1202012.TXT

tente

   $file =~ /(\d{4})\.TXT$/;
   print "os ultimos 4 digitos: $1\n";