in reply to Re: simple search and print
in thread simple search and print
When I read the post, my impression was that the order of values in NUMBERS was what the poster wanted preserved, and so would have said:
If runtime is an issue, namevals could always be split into a hash of lists based on the floor() of the given value - then, when comparing, you'd only compare against the two lists that contained namevals near the target value.#!/usr/bin/perl use strict; use warnings; open (NUMBERS, '<', "numbers.txt") or die "Unable to open numbers.txt +for reading : $!"; open (NAMES, '<', "names.txt") or die "Unable to open names.txt for re +ading : $!"; my @namevals = map {chomp; [split /\t/ , $_ , 2]} <NAMES>; while (<NUMBERS>) { s/\s//gs; my $current = $_ + 0; map {print $_->[0]," matched $current\n" if (abs($_[1] - $current) <= 0.5);} @namevals; }
|
|---|