Select Code to Download

Select or download this

#!/usr/bin/env perl

...
        print if exists $search_terms{$id};
    } 
}

Select or download this

$ cat pm_1170300_search_terms.txt
J00153:42:HC5NCBBXX:6:1101:10896:14959
J00153:42:HC5NCBBXX:6:1101:10896:14959
J00153:42:HC5NCBBXX:6:1101:26616:20709
J00153:42:HC5NCBBXX:6:1101:27549:19935

Select or download this

$ cat pm_1170300_master_file.txt
 J00153:42:HC5NCBBXX:6:1101:10896:14959    99    gnl|Btau_4.6.1|chr16 
+   72729218    1    12M
J00153:42:HC5NCBBXX:6:1101:27549:19935    83    gnl|Btau_4.6.1|chr8   
+ 49556412    1    7M
 X00153:42:HC5NCBBXX:6:1101:10896:14959    99    gnl|Btau_4.6.1|chr16 
+   72729218    1    12M
X00153:42:HC5NCBBXX:6:1101:27549:19935    83    gnl|Btau_4.6.1|chr8   
+ 49556412    1    7M

Select or download this

$ pm_1170300_hash_search.pl pm_1170300_search_terms.txt pm_1170300_mas
+ter_file.txt
 J00153:42:HC5NCBBXX:6:1101:10896:14959    99    gnl|Btau_4.6.1|chr16 
+   72729218    1    12M
J00153:42:HC5NCBBXX:6:1101:27549:19935    83    gnl|Btau_4.6.1|chr8   
+ 49556412    1    7M

Select or download this

#!/usr/bin/env perl

...
    val_1 => sub { my %hash; $hash{$_} = 1 for @keys },
    val42 => sub { my %hash; $hash{$_} = 42 for @keys },
};

Select or download this

$ pm_1170300_bench_undef_hash_value.pl; pm_1170300_bench_undef_hash_va
+lue.pl; pm_1170300_bench_undef_hash_value.pl; pm_1170300_bench_undef_
+hash_value.pl; pm_1170300_bench_undef_hash_value.pl
        Rate a_inc val_0 undef val42 val_1
...
val_1 4305/s    2%    1%    --   -0%   -0%
undef 4308/s    2%    1%    0%    --   -0%
val42 4316/s    2%    1%    0%    0%    --

Select or download this

#!/usr/bin/env perl

...
    limit_array => sub { my ($id, @rest) = split ' ', $string, 2 },
    nolim_array => sub { my ($id, @rest) = split ' ', $string },
};

Select or download this

$ pm_1170300_bench_split_limit.pl; pm_1170300_bench_split_limit.pl; pm
+_1170300_bench_split_limit.pl; pm_1170300_bench_split_limit.pl; pm_11
+70300_bench_split_limit.pl
                 Rate nolim_array limit_array nolim_undef limit_undef
...
nolim_undef 1114827/s        208%          --         -1%        -26%
limit_array 1127396/s        211%          1%          --        -25%
limit_undef 1506024/s        316%         35%         34%          --