DS has asked for the wisdom of the Perl Monks concerning the following question:

do you know a right way of doing this : I have file one with this info 
22-28
36
44-49
234
77
26

[download]
and file two : 
23
11
21
44
233
26

[download]
I need to see if any number or numbers in file one matches a number in file two or if there is number in file two that is in the range of a number in file one . If there is , then print it ... for example ,, in my files I would print 26 since it appears in both file and 23 since it is in the range of 22-28 I am doing somthing like this but don't seem to get the ones in the range. 
for (@fileTow)
{
for (@fileOne)
{ 
    if ($_  =~ /(\d+)-(\d+)/) { my ($start, $end) = split(/-/, $_)};
if (($fileTowValue== $_ ) or ( $fileTowValue>= $start) and ( $fileTowV
+alue<= $end)) {print"$fileTowValue\n"};
}
}

[download]
thanks for any help or adivce on doing this ..

Replies are listed 'Best First'.
Re: comparing
by gav^ (Curate) on Jul 22, 2002 at 04:49 UTC
    I'm not sure what on earth you're doing in your code, you have 2 loops using $_ and you pull a magic $fileTowValue out of thin air.

    Here is something that works: 

    my @file1 = qw(22-28 36 44-49 234 77 26);
my @file2 = qw(23 11 21 44 233 26);

my %wanted = ();

foreach my $num (@file1) {
    if ($num =~ /^(\d+)-(\d+)$/) {
        $wanted{$_}++ for $1 .. $2;
    } else {
        $wanted{$num}++;
    }        
}

foreach (@file2) {
    print $_, "\n" if $wanted{$_};
}

__END__
Output:
23
44
26

    [download]

    gav^

[reply]
[d/l]
      thanks :)
[reply]

Back to Seekers of Perl Wisdom