Re: Parsing a table with variable columns on each line

while (<>) {
    chomp;
    my @fields = split /\t/;
    for ( splice(@fields, 3) ) {
        print(join("\t", @fields, $_), "\n");
    }
}
[download]

while (<>) {
    (my $common, $_) = /^((?:[^\t]*\t){3})(.*)/;
    for ( split /\t/ ) {
        print("$common\t$_\n");
    }
}
[download]

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

Replies are listed 'Best First'.
Re^2: Parsing a table with variable columns on each line by Anonymous Monk on Oct 23, 2009 at 16:32 UTC
Thank you Ikegami, The outputs aren't quite what I had in mind but I couldn't really represent my data accurately. I think now with a starting point I can fiddle about and get somewhere with this file. Thank you for you time and wisdom. Have a nice weekend.	[reply]
Re^3: Parsing a table with variable columns on each line by ikegami (Patriarch) on Oct 23, 2009 at 17:00 UTC
The outputs aren't quite what I had in mind I don't understand. The output is exactly what you requested. `Apples 0.5 -10 Emma:17:15:14:18 Apples 0.5 -10 Peter:2:7:4:1 Pears 0.7 -12 Alex:101:144:110:111 Oranges 0.8 -14 Shan:12:14:9:57 Oranges 0.8 -14 Heena:65:17:15:24 Oranges 0.8 -14 Rachel:1:5:18:54` [download] ...except for the second snippet. It had a bug that's now fixed.	[reply] [d/l]
Re^4: Parsing a table with variable columns on each line by Anonymous Monk on Oct 26, 2009 at 13:53 UTC
Thank you. This is working now.	[reply]