使用 perl 或 awk 搜索文件中的数字，并从命令行将其按常量增加

Question

我有一个文件，其中有一堆 3 位数的数字，我需要将它们增加一定的量（实际上，我需要将所有大于某个值的数字增加恒定的量）。如何从命令行尽可能简单地完成此操作？

编辑：为了澄清，文件中的文本不仅仅是数字，而且将它们提取为 awk 中的字段并不容易。

Answer 1

下面是一个示例，它将取文件中大于 400 的每个数字（好吧，正整数）并加上 13。

perl -pe 's/\d+/
amp; > 400 ? 
amp;+13 : 
amp;/ge' file

\d+ 是匹配文本中任何整数的正则表达式

$& 是一个特殊的 Perl 变量，包含与正则表达式匹配的文本。在这种情况下，它将是一个数字。

/e 修饰符告诉 Perl 评估替换表达式。在这种情况下，它评估 $& > 400？ $&+13 : $& 获取不同的数字。

'/g' 修饰符替换每行上正则表达式（整数）的所有实例。

Answer 2

怎么样：

awk '$1>300{$1+=100;print $0}' file

变成：

/home/sirch>cat file
313
233
133
413

变成：

/home/sirch>awk '$1>300{$1+=100}1' file
413
233
133
513

Answer 3

这可能不是最紧凑的，但这是我首先想到的：

perl -e 'my $file=$ARGV[0];my $amt_to_increase=$ARGV[1];
open(my $read,"<",$file) or die $!;my @lines=<$read>;close($read);
open(my $write,">","temp") or die $!;
foreach(@lines){print $write $_+$amt_to_increase . "\n";}
close($write);system("mv temp $file")==0 or die $!;' <file to read> <amount to add to each line>

Answer 4

假设文件有 3 位数字，以换行符分隔：

$ cat file|while read number;do
if [ $number -gt $minvalue ]; then
    echo $(($number+$constant))
else
    echo $number
fi