[SP-pm] ER para separar o primeiro e o último campo de um registro.
jimmy
ronaldo_tgz at yahoo.com.br
Mon Dec 22 09:01:03 PST 2008
saudações wagner,
sou iniciante em perl e me parece mas fácil fazer split nas linhas pelo
caracter de espaço e imprir o primeiro e o último elemento, a menos que seu
arquivo fuja do padrão que você usou para exemplificar, isso também deve
funcionar.
On Mon, Dec 22, 2008 at 02:47:01PM -0200, Wagner Arbex wrote:
> 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/
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
________________________________________________________________________
More information about the SaoPaulo-pm
mailing list