nabiana has asked for the wisdom of the Perl Monks concerning the following question:
Hi, just joined minutes ago. I am trying join tab-delimited files into a single file/table
Example, say I have these 4 files/tables:ID value (table1)
Aa 22
Bb 28
Cc 32
Dd 50
ID value (table2)Aa 34
Cc 112
Dd 77
Ee 89
Kk 124
ID value (table3)Bb 75
Cc 91
Dd 132
ID value (table4)Aa 66
Cc 94
Ee 213
Gg 250
The output after joining should look like this:
ID value1 value2 value3 value4Aa 22 34 0 66
Bb 28 0 75 0
Cc 32 112 91 94
Dd 50 77 132 0
Ee 0 89 0 213
Gg 0 0 0 250
Kk 0 124 0 0
My best effort:
#usr/bin/perl! use strict; #I opened all files (containg the tables) one by one; is #there a way +I can open all files at once? open(FILEH1, "<table1.txt"); while (my $file = <FILEH1>){ chomp $file; my @file1 = split('\t', $file); #to pick IDs and #values => $fil +e1[0] and $file1[1] } open(FILEH2, "<table2.txt"); #and continued to tables 3 and 4. #And then I tried to collect the items which is where I got #stuck.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: I need help joining tab-delimited files/tables!
by GrandFather (Saint) on Oct 19, 2011 at 22:12 UTC | |
by daptal (Acolyte) on Oct 19, 2011 at 22:19 UTC | |
by NetWallah (Canon) on Oct 20, 2011 at 03:50 UTC |
Back to
Seekers of Perl Wisdom