Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: text processing - convert list of vectors to tabular format

by secret (Beadle)
on Dec 15, 2005 at 09:32 UTC ( #516893=note: print w/replies, xml ) Need Help??


in reply to text processing - convert list of vectors to tabular format

Here's a simple solution with an hash of array . There might be a better way, tho ...
use strict ; use warnings ; my $vec ; my %rez ; my $cpt = 0 ; my $maxcpt = 0; foreach my $item (<DATA>) { chomp $item ; next if $item =~ m/^}$/ ; if ( $item =~ m/^v_(.*) {/ ) { $vec = $1 ; $maxcpt = $cpt if $cpt > $maxcpt ; $cpt = 0 ; } else { $rez{$vec}[$cpt] = $item ; $cpt ++ ; } } foreach my $cpt (0..$maxcpt) { foreach my $vec ( keys %rez ) { if (defined $rez{$vec}[$cpt]) { print $rez{$vec}[$cpt], "\t" } else { print "\t" } ; } print "\n" } __DATA__ v_x { x1 x2 x3 x4 x5 x6 x7 x8 } v_y { y1 y2 y3 y4 y5 } v_z { z1 z2 z3 z4 z5 z6 }

Replies are listed 'Best First'.
Re^2: text processing - convert list of vectors to tabular format
by vnpenguin (Beadle) on Dec 15, 2005 at 10:44 UTC
    Thank you very much, Regards,

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://516893]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (5)
As of 2020-02-21 09:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What numbers are you going to focus on primarily in 2020?










    Results (94 votes). Check out past polls.

    Notices?