Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: Join files using perl

by Cristoforo (Curate)
on Jan 11, 2013 at 20:17 UTC ( #1012970=note: print w/replies, xml ) Need Help??

in reply to Join files using perl

Using this data (file 1 and file 2):
ID1 50 ID2 60 ID3 100
ID1 20 ID2 100 ID3 10
I got the results:
C:\Old_Data\perlp>perl o44.txt o55.txt ID1 50 20 ID2 60 100 ID3 100 10 C:\Old_Data\perlp>
The code is:
#!/usr/bin/perl use strict; use warnings; my %data; while (<>) { # reads 2 files from @ARGV - filenames are on the command + line my ($id, $val) = split; push @{ $data{$id} }, $val; } for my $id (sort keys %data) { print join("\t", $id, @{ $data{$id} }), "\n"; }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1012970]
[erix]: my favorit scientist Darwin-reply was a good sly move to keep the chattering going ;)

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (7)
As of 2017-12-15 12:54 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (432 votes). Check out past polls.