Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Problem in Foreach loop

by Ish (Acolyte)
on Apr 02, 2009 at 05:16 UTC ( #754860=note: print w/ replies, xml ) Need Help??


in reply to Problem in Foreach loop

Sorry, I got a bit tied up with something! Try something like this - your data is in an array but otherwise....

use strict; use warnings; my ($i, @array, $bin, $line); my @input = ( "5893 5985 + LOC645399 645399", "7223 7231 - LOC100131533 100131533", "7630 9882 - LOC100131533 100131533", "10142 11428 + LOC100132836 100132836", "12197 13705 - LOC100132070 100132070", "14248 15806 - LOC100132865 100132865", "16830 17405 - LOC100132865 100132865", "18735 19817 + LOC645399 645399", "20802 23113 - LOC100132865 100132865" ); for ($i = 5893; $i <=23113; $i++) { $bin = $i += 7704; push @array, $bin ; } foreach $line (@input) { $line =~ m/\s*(\d+)\s*(\d+)/; foreach my $bin (@array) { if (($bin >= $1) && ($bin <= $2)) { print "$1 $2\n"; last; } } }


Comment on Re: Problem in Foreach loop
Download Code
Replies are listed 'Best First'.
Re^2: Problem in Foreach loop
by cowboyrocks (Novice) on Apr 02, 2009 at 06:31 UTC
    Thanks for suggesting a good approach :-)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://754860]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (13)
As of 2015-07-31 15:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (279 votes), past polls