[Rio-pm] Tratamento de dados para CSV

[breno]

2012/6/1 Manoel Domingues Junior <manoel.domingues.junior em gmail.com>:
> Olá pessoal,
>
> Estou com um dificuldade em encontrar um módulo no cpan que me ajude a
> fazer a geração de uma matriz...
>
> Eu obtenho os dados de um software no seguinte formato:
> Manoel;Pedro
> João;Pedro
> Pedro;Manoel
> ....
>
> Esses dados eu gostaria de colocar em uma matriz do tipo:
> X; Pedro;Manoel;
> Manoel; 1;;
> João;1;;
> Pedro;;1;
>
> Alguém conhece algum módulo que me permita fazer isso?
>

Manoel,

desculpa a pergunta, mas "isso" o quê? Pode ser pq ainda não acordei
direito, mas não entendi o que vc está fazendo...

Supondo que vc tem uma lista na forma:

my @linhas = (
    'Manoel;Pedro',
    'João;Pedro',
    'Pedro;Manoel',
);

você pode gerar uma nova lista fazendo algo como:

my @nova = ();

foreach my $linha (@linhas) {
    my @campos = split /\s*;\s*/ => $linha;

    # modifique @campos como bem entender...

    push @nova, join ';' => @campos;
}

é isso?


[]s

-b