将数据与文件进行比较，并每次向文件附加新数据（perl）

Question

很抱歉，如果这个问题太基本但我是Perl的新手。 我想运行这个命令，它给出文件radtreev6 / TreeToolsInt tree2list中的IP数量georegion.v6.int.tr | wc -l然后我必须将它与文件compare.txt进行比较，其中包含内容bos -mp9ps：.ssh jverma $ cat compare.txt 7 5 4并且每次结果为＆＃34; radtreev6 / TreeToolsInt tree2list georegion.v6.int.tr | wc -l＆＃34;将附加到文件compare.txt，下次将其与命令中的新IP号进行比较 我正在运行一个输出数字的命令。例如

$ ls -ltr | wc -l
7

我想将其与文件进行比较，并验证此数字是否大于文件顶行的数字。

每次从顶部添加命令中的数字。

喜欢这个

$ cat compare.txt 
7
5
4

然后下一次再次进行同样的过程。

编辑1：我试过这个。让我知道这是对的吗？谢谢

#! /usr/bin/perl


use strict;

my $IPS = `radtreev6/TreeToolsInt tree2list georegion.v6.int.tr |wc -l`;
chomp($IPS);
print "$IPS\n";

my $ip = `cat hello.txt | tail -1`;
chomp($ip);
print "$ip\n";

if ($IPS > $ip) {
print "everything is ok\n";}

open(my $FH, '>>', 'hello.txt') || die "cannot open file hello.txt  $!";
say $FH "$IPS";
close $FH;

文件hello.txt如下所示：

host@bos-lpaw1:~/workspace/ddc$ cat hello.txt 
123412
123123123
123123
12312
200174
200174
200174
200174