perl -F, -MData::Dumper -nale 'if($.==1){@VARs=map{[$_]}@F;next};push@{$VARs[$_]},$F[$_]for 0..$#F; END{print Dumper \@VARs}' data<br><br><div><span class="gmail_quote">2007/8/23, Nelson Ferraz <<a href="mailto:nferraz@gmail.com">
nferraz@gmail.com</a>>:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">> Ex:<br>> arquivo:<br>> VAR,VAR4,VAR5,VAR1,VAR3..... ( nao estao em ordem e muda de arquivo
<br>> para arquivo)<br>> 4,6,7,8,9,0.....<br>> 2,7,4,6,2,0,......<br>> 3,57,4,2,44,2,1,4,55,6......<br><br>Isso parece um trabalho para o Text::CSV::Simple<br><br> my $parser = Text::CSV::Simple->new;
<br> my @data = $parser->read_file($datafile);<br> print @$_ foreach @data;<br><br> # Only want certain fields?<br> my $parser = Text::CSV::Simple->new;<br> $parser->want_fields(1, 2, 4, 8);
<br> my @data = $parser->read_file($datafile);<br><br> # Map the fields to a hash?<br> my $parser = Text::CSV::Simple->new;<br> $parser->field_map(qw/id name null town/);<br> my @data = $parser->read_file($datafile);
<br><br><a href="http://search.cpan.org/~tmtm/Text-CSV-Simple-1.00/lib/Text/CSV/Simple.pm">http://search.cpan.org/~tmtm/Text-CSV-Simple-1.00/lib/Text/CSV/Simple.pm</a><br><br><br><br><br>_______________________________________________
<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div>
<br><br clear="all"><br>-- <br>[]'s Fernando