比较Perl中具有特定范围的两个十进制值

克里希

我是Perl的新手。我有两组不同的数组。这两个具有十进制值的数组都没有精确匹配，可能只有+0.5或有所不同-0.5。我尝试了此程序，但无法正常工作。

@inpt = qw(1003.3965 1036.4392 1037.3843 1045.4459 1101.4259 1107.4253 1118.3928 1191.4904 1320.4855 1420.6291 1440.6921 1562.6698 1742.7587 2084.9137 2248.8761 2337.8865 2628.9931);
@outpt = qw(1191.6017 1101.5336 2629.2865 1742.9336 1036.5726 2338.1574 2249.1057 1440.8222 1440.2074);

foreach $s (@outpt){

    $inc = $s + 0.5;
    $dec = $s - 0.5;

   foreach $p ( @inpt ) {
        if ( $p .. $inc ) {           
            print "$p \t $inc";
        }
        elsif ( $p .. $dec ) {
            print "$p \t $dec";
        }
    }
}

我期望下面的输出。所述@outpt的值1191.6017是与范围匹配+0.5或-0.5在@inpt的价值1191.4904。

outpt          inpt
1191.6017     1191.4904
1101.5336     1101.4259
2629.2865     2628.9931
1742.9336     1742.7587
1036.5726     1037.3843
2338.1574     2337.8865
2249.1057     2248.8761
1440.8222     1440.6291
1440.2074     1440.6291

列伊

尝试这个：

use strict;
use warnings;

my $limit = 0.5;
my $result = "";

my @inpt = qw(1003.3965 1036.4392 1037.3843 1045.4459 1101.4259 1107.4253 1118.3928 1191.4904 1320.4855 1420.6291 1440.6921 1562.6698 1742.7587 2084.9137 2248.8761 2337.8865 2628.9931);
my @outpt = qw(1191.6017 1101.5336 2629.2865 1742.9336 1036.5726 2338.1574 2249.1057 1440.8222 1440.2074);

foreach my $s (@outpt){
   foreach my $t (@inpt) {
      if($s >= $t - $limit && $s <= $t + $limit) {
          $result .= "$s \t $t\n";
      }
   }
}     
print $result;

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。