Any advice and help to know how to remove duplicated values in each line of a 2 dimensional Array.
I have this 2D array :
@tab = (["12","25","2","18","9","25","18","30","30","12","30","30","18","12"],["154","12","56","8","22","88","74","12","56","32","88","88","56","12","12","56"]);
And would like to obtain this result :
@tab = (["12","25","2","18","9","30"],["154","12","56","8","22","88","74","32"]);
I know how to do on 1D array but don't success on 2D array.
Thanks
I am not acquainted with Perl but if there is no other way maybe you can just build new arrays concatenating together the values of every pair of two arrays, and separating the two arrays with an artificial value unlikely to show up, eventually like '-1'. Then remove duplicates in 1-D and get the two arrays back by dividing the result again through the separator. Sorry if this sounds a bit clumsy.
Good luck.
Dear,
The following piece of code will help you.
On a Red Hat based system you can easily install required library:
# yum install perl-List-MoreUtils perl-Data-Dumper-Names -y
https://gist.github.com/bioinfornatics/3db93c69a6f37fe0867d
Hi,
use following code. In this code each array position is converted in key value pair where keys will become unique. then a list of keys is reassigned to the 2D array position. I hope this helps. This doesn't require any external library.
use strict;
use warnings;
my @tab = (["12","25","2","18","9","25","18","30","30","12","30","30","18","12"],["154","12","56","8","22","88","74","12","56","32","88","88","56","12","12","56"]);
for(my $i=0;$i 1 } @$ref;
$tab[$i]=[keys(%values)];
}
foreach my $ref(@tab)
{
print join("\t",@$ref),"\n";
}
The code without external library is slower.
benchmark code: https://gist.github.com/bioinfornatics/d25f9ff0ae639f60f864
$ perl test.pl
Benchmark: timing 1000000 iterations of test1, test2...
test1: 11 wallclock secs ( 8.53 usr + 0.11 sys = 8.64 CPU) @ 115740.74/s (n=1000000)
test2: 16 wallclock secs (11.14 usr + 0.15 sys = 11.29 CPU) @ 88573.96/s (n=1000000)
@Jonathan Mercier: Thank you for benchmarking the code. I tried a simple solution without worrying about the time complexity. But I agree with you that time complexity is an important factor to note.
- Badges
- Science topic
- Similar topics
- Computer Science and Engineering
- Bioinformatics