如何仅打印从mongodb返回的perl值？

脚本

#!/usr/bin/perl -w
use MongoDB;
use Data::Printer;
my $client = MongoDB::MongoClient->new();
my $db   = $client->get_database('students');
my $grades = $db->get_collection('grades');
my $stu = $grades->find->fields({student_id=>1,_id=>0});
while (my $row = $stu->next){
p($row);
}

输出：

\ {
    student_id   198
}
\ {
    student_id   199
}

198
199

预期输出：

\ {
    student_id   198
}
\ {
    student_id   199
}

198
199

用于人类可读的数据检查。它打印到

STDOUT

。这是为了在开发过程中调试和查看数据结构

如果您想实际访问并将数据打印到屏幕上，您需要自己访问它。Data:：Printer帮助您做到这一点，因为它告诉您数据结构的外观

要打印您的

student\u id

s（这些键的值），只需

print

s即可

while (my $row = $stu->next){
    print "$row->{student_id}\n";
}

就这样。考虑使用，因为它已经包含了<代码> \n>代码>

say $row->{student_id};

你需要做

使用功能“say”或包含它的代码。
用于人类可读的数据检查。它打印到
STDOUT
。这是为了在开发过程中调试和查看数据结构

如果您想实际访问并将数据打印到屏幕上，您需要自己访问它。Data:：Printer帮助您做到这一点，因为它告诉您数据结构的外观

要打印您的
student\u id
s（这些键的值），只需
print
s即可

while (my $row = $stu->next){
    print "$row->{student_id}\n";
}

就这样。考虑使用，因为它已经包含了<代码> \n>代码>
say $row->{student_id};

你需要做
使用功能“say”或包含它来执行此操作