Ok OK Pessoal..<br>Obrigada pela Força :D<br><br><b><i>Fernando Oliveira &lt;fernandocorrea@gmail.com&gt;</i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> 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 &lt;<a href="mailto:nferraz@gmail.com"> nferraz@gmail.com</a>&gt;:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">&gt; Ex:<br>&gt; arquivo:<br>&gt; VAR,VAR4,VAR5,VAR1,VAR3..... ( nao estao em ordem e muda de arquivo <br>&gt; para arquivo)<br>&gt; 4,6,7,8,9,0.....<br>&gt; 2,7,4,6,2,0,......<br>&gt; 3,57,4,2,44,2,1,4,55,6......<br><br>Isso parece um trabalho para o Text::CSV::Simple<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $parser =
 Text::CSV::Simple-&gt;new; <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my @data = $parser-&gt;read_file($datafile);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print @$_ foreach @data;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; # Only want certain fields?<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $parser = Text::CSV::Simple-&gt;new;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $parser-&gt;want_fields(1, 2, 4, 8); <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my @data = $parser-&gt;read_file($datafile);<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; # Map the fields to a hash?<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $parser = Text::CSV::Simple-&gt;new;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $parser-&gt;field_map(qw/id name null town/);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my @data = $parser-&gt;read_file($datafile); <br><br><a
 href="http://search.cpan.org/%7Etmtm/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 _______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm</blockquote><br><p>&#32;


      Flickr agora em português. Você clica, todo mundo vê. <a href="http://br.rd.yahoo.com/mail/taglines/flickr/*http://www.flickr.com.br/">Saiba mais</a>.