Re: A better way to make the script run faster?

Why do you have the strings in arrays and not in hashes?

I'd put the array you search in into a hash where the array elements would be the keys and the value would be the number of occurences.

Finding then the number of occurences for each of your searched keys is simply getting the value from the hash.

foreach my $g (@gl) {
  print "$g occures ",($hfr_genes{$g} || 0)," time(s)\n";
}
[download]

s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

Comment on Re: A better way to make the script run faster? Select or Download Code

Replies are listed 'Best First'.
Re^2: A better way to make the script run faster? by Anonymous Monk on Jul 31, 2013 at 13:59 UTC
Thank you! I sorry but my knowledge with perl is basic as im just a beginner. Hashes did the job really well. But the $hfr_genes{$g} in the print statement prints the -1 location of the occurrence of the values. Is there a way where i can record the number of occurrences? Thanks again!	[reply]
Re^3: A better way to make the script run faster? by Skeeve (Parson) on Aug 01, 2013 at 06:34 UTC
See tobyink's answer below. `s$$([},&%#}/&/]+}%&{});#$&&s&&$^X.($'^"%]=\&(\|?{%` `+`.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e	[reply] [d/l] [select]