perl 的这个语句是什么意思?解决思路

分类: IT文章 • 2024-01-06 22:48:00

perl 的这个语句是什么意思?
use Lingua::EN::Splitter qw(words);
my $text = "here is Bear,coming downstairs now,bump,bump; "
my $histogram;
$histogram{lc $_}++ for @{words($text)}; #words()函数进行分词,这个语句怎么理解?

#谢谢!!!

------解决方案--------------------
$histogram{lc $_}++ for @{words($text)};

相当于：

foreach ( @{words($text)} ) {
$histogram{lc $_}++;
}