Help for this page

Select Code to Download


  1. or download this
    ID1     50
ID2     60
ID3     100
  2. or download this
    ID1     20
ID2     100
ID3      10
  3. or download this
    C:\Old_Data\perlp>perl t9.pl o44.txt o55.txt
ID1     50      20
...
ID3     100     10

C:\Old_Data\perlp>
  4. or download this
    #!/usr/bin/perl
use strict;
use warnings;
...
for my $id (sort keys %data) {
    print join("\t", $id, @{ $data{$id} }), "\n";    
}