Re: Parsing a table with variable columns on each line


Do you know where your variables are?
	PerlMonks

Re: Parsing a table with variable columns on each line

by bichonfrise74 (Vicar)

on Oct 23, 2009 at 19:28 UTC ( [id://802958]=note: print w/replies, xml )

Need Help??

in reply to Parsing a table with variable columns on each line

Here's another way to solve your problem.

#!/usr/bin/perl

use strict;

while( <DATA> ) {
    chomp;
    my ($name, $val1, $val2, @val3) = split ( "\t" );
    print join( "\t", ($name, $val1, $val2, $val3[$_]) ) , "\n"
       for (0 .. $#val3);
}
__DATA__
Apples  0.5     -10     Emma:17:15:14:18        Peter:2:7:4:1(Newline)
Pears   0.7     -12     Alex:101:144:110:111(Newline)
Oranges__0.8    -14     Shan:12:14:9:57 Heena:65:17:15:24       Rachel
+:1:5:18:54(Newline)
[download]

Comment on Re: Parsing a table with variable columns on each line Download Code

Replies are listed 'Best First'.
Re^2: Parsing a table with variable columns on each line by kikuchiyo (Hermit) on Oct 23, 2009 at 19:56 UTC
Now available with more punctuation variables: `#!/usr/bin/perl -l use strict; while( <> ) { chomp; local $, = "\t"; my ($name, $val1, $val2, @val3) = split ( "\t" ); print $name, $val1, $val2, $_ for @val3; }` [download] Update: Edited because I apparently didn't understand the original question. The point of setting $, instead of using join remains.	[reply] [d/l]
Re^3: Parsing a table with variable columns on each line by Anonymous Monk on Oct 26, 2009 at 13:52 UTC
Thank you. Job is done now.	[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://802958]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others surveying the Monastery: (2)

As of 2024-04-25 20:19 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found