Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
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
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 avoiding work at the Monastery: (5)
As of 2014-11-29 09:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (204 votes), past polls