如何正则表达每个单词perl的第一个字母

Question

我只需要输出一个字符串的第一个字母。

my $string = Bank Of America;
# I tried this
my $newstring = grep (/\b(\w)+/, $string);

这一切让我觉得“银行”甚至不是B.我做错了什么？

Answer 1

试试这个:(删除+）

(\b\w)

Demo

Answer 2

虽然你得到了答案，但你做得不对：真的没有必要像grep那样使用重量级的人;使用instead =〜将您的字符串与模式匹配相关联。你不需要\ b，因为这只需要将搜索限制为整个单词，而你只需要一个字符。结果将存储在$ 1。

    my $string = "Bank Of America";
    $string =~ /(\w)/;
    print "$1\n";