Perl は初めてで、テキスト ファイルの特定の行の値を変更しようとしています。行は次のとおりです。
1.0040 1.0033 1.0021 0.9997 0.9997 0.9997
1 未満の値を 1.0000 に置き換えたいと思いますが、元の 1 以上のすべての値を保持し、すべての数字をテキスト ファイル (変更されたものを含む) の「元の」場所に保持します。視覚的なチェックが必要な場合がありますが、変更されたファイルのすべてが同じ場所にあると簡単になります。新しい行は次のようになります。
1.0040 1.0033 1.0021 1.0000 1.0000 1.0000
$_ =~ s/[1 未満の値のみを置換するロジック]/1.0000/g; の行に沿って何かできますか? ? どんな助けでも大歓迎です。ありがとう。