2x2の配列を持つ多くのファイルがたくさんあります。この例では、1つのファイル（ファイル1）のみを表示します。
入力ファイル（ファイル1）：
1: 6.1703
541.631 46.0391
2: 6.1930
537.446 45.9239
3: 6.1931
177.171 288.579
4: 6.1939
167.171 298.579
5: 8.2281
533.686 53.7245
6: 8.6437
519.219 65.0547
7: 9.0823
484.191 95.0753
8: 9.3884
237.75 240.082
9: 9.4701
167.525 246.234
10: 9.7268
411.929 70.7877
まず、各行列の位置（1,2）の値を見て6.1937に近く、要素（2,1）の値が大きい場合は選択する必要があります。この例では、選択した値は6.1930でなければなりません。
第二に、より大きな要素（2,2）値を持つ各行列の位置（1,2）から最も低い値を選択する必要があります。この例で選択した値は 6.1931 です。
したがって、出力は次のようになります
6.1930 6.1931
ベストアンサー1
Perlが構造に来ます：
#!/usr/bin/perl
use warnings;
use strict;
my $close_to = 6.1937;
my ($close, $lowest);
$/ = q();
while (<>) {
my @arr = split;
if ((! defined $close || abs($arr[1] - $close_to) < abs($close - $close_to))
&& $arr[2] > $arr[3]
) {
$close = $arr[1];
}
if ((! defined $lowest || $arr[1] < $lowest)
&& $arr[2] < $arr[3]
) {
$lowest = $arr[1];
}
if (eof) {
print "$close $lowest\n";
undef $close;
undef $lowest;
}
}
別名で保存script.pl、別名で電話script.pl file1 file2 file3...