对我很有效。$content有换行符吗？试试chomp $content;

use warnings;
use strict;

my $content = '{}';
if($content =~ m/{.+}/s){
    print "Contains things \n";
} elsif($content eq "{}"){
    print "empty \n";
} else {
    print "Error \n";
}

__END__

empty

我不喜欢八年前的答案。现在我只想看看JSON：

use v5.36;
use experimental qw(builtin);
use builtin qw(reftype); # or get it from Scalar::Util

use JSON;

my @inputs = (
    '{', '}', 'abc',
    '{}', '{"a":"b"}',
    );

foreach my $input ( @inputs ) {
    my $json = eval { decode_json( $input ) };

    my $empty =
        defined( $json ) &&
        ( reftype $json eq reftype {} and 0 == keys $json->%* );

    say "INPUT: $input --> ", $empty ? 'Empty' : 'Not empty (or not JSON)';
    }

如果你在程序之外，有jq：

$ jq '. == {}' <<< "{}"
true

$ jq '. != {}' <<< "{}"
false

一个顶级的JSON可以是一个对象（{...}）或一个数组（[...]），但你只检查其中的一个。如果你只是想看看它是否为空，我会检查字符串的长度：

chomp $possible_json;
if( $length $possible_json >= 3 ) { ... }

你也可以考虑Randal Schwartz的regex for JSON parsing。它不能处理所有的事情，但它通常足以处理简单的事情。

如果我在{}后面添加一个换行符，我可以复制这个行为：

#!/usr/bin/perl
use strict;
use warnings;

my $content = "{}\n";

if($content =~ m/{.+}/s){
    print "Contains things \n";
} elsif($content eq "{}"){
    print "empty \n";
} else {
    print "Error \n";
}

它返回“Error”，如果我用==替换eq，它返回empty，因为"{}"和"{}\n"的数值都是0。正如你提到的，一个警告被抛出。
在处理$content之前，您可能会尝试chomp。

我可能会把它拆散：

unless ($content) {print "Error\n"};
$content =~ /{(.*)}/
my $resp = $1;
if ($resp) {
 print "Contains Things ($resp)\n";
} else {
 print "Empty\n";
}