2012/6/1 Stanislaw Pusep <creakt...@gmail.com>: > @breno, infelizmente, se for um "CSV" gerado por algumas ferramentas de > escritório cujo nome não quero citar nessa lista, expressão regular não > basta, já dizia o brian d > foy: http://www.effectiveperlprogramming.com/blog/1386
Ah, claro, vale tudo em "CSV", só imaginei que o Manoel tinha algum controle sobre os dados de entrada =) -----------------------8<----------------------- use strict; use warnings; use utf8; my @linhas = ( 'Manoel;Pedro', 'João;Pedro', 'Pedro;Manoel', ); my @header = qw( X Pedro Manoel ); my @result = (); foreach (@linhas) { my @colunas = split /\s*;\s*/; my @nova; foreach my $i ( 1 .. $#header ) { $nova[$i-1] = $colunas[1] eq $header[$i] ? 1 : ''; } { no warnings 'uninitialized'; push @result, join ';' => $colunas[0], @nova; } } ----------------------->8----------------------- Isso atende? Caso sim, dá licença então que vou brincar de golfe :) []s -b _______________________________________________ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm