[SP-pm] ER para separar o primeiro e o último campo de um registro.

Wagner Arbex arbex at arbex.pro.br
Mon Dec 22 08:47:01 PST 2008


Eu mesmo respondo :D acabei de fazer com

$ultimo =~ s/.*\s(.*$)/$1/;

Se alguém tiver uma sugestão melhor... eu agradeço.

[]s e obrigado.


On 12/22/2008 02:37 PM, Wagner Arbex wrote:
> Prezados Monges... estou com um pequeno prob com ERs e tenho certeza de
> que é trivial, mas agarrei.
> 
> Vou dar um exemplo simplificado. Tenho um arquivo com vários registro
> que pode ser, por ex:
> 
> 1         ABC X Y CDA 40
> 5         XYZ - U BBB  0
> 8         --- T C CTT 80
> 
> E gostaria de gravar um arquivo com:
> 
> 1,40
> 5,0
> 8,80
> 
> O que eu preciso é ler esse arquivo e separar o primeiro e o último
> campo para gravá-los em outro arquivo, seria +-
> 
> while ( <ARQ1> ) {
>    chomp;
> 
>    my $primeiro = $_;
>    $primeiro =~ s/\s.*//;  # OK... esse funciona.
> 
>    my $ultimo = $_;
>    $ultimo =~ s/.*\s.+$//; # Bom, aqui eu não sei qual a ER a ser usada.
> 
>    print ARQ2 "$primeiro,$ultimo\n";
> }
> 
> Além de me ajudarem com a ER, todas as sugestões para eu melhorar o
> código, conhecer novas estruturas, formas de fazer etc são muito bem vindas.
> 
> []s e, desde já, obrigado.


-- 
   Wagner Arbex
   Doutorando em Engenharia de Sistemas e Computacao - COPPE/UFRJ

   Vendo notebook - http://www.arbex.pro.br/



More information about the SaoPaulo-pm mailing list