在Perl 6中匹配非空白字符

ChatGPT的回答仅作参考：

在Perl 6中，可以使用正则表达式来匹配非空白字符。具体方法如下：

1. 使用\s元字符匹配空白字符，包括空格、制表符、换行符等。

2. 使用\S元字符匹配非空白字符，即除了空白字符以外的所有字符。

例如，下面的代码可以匹配一个字符串中的第一个非空白字符：

```
my $str = "  Hello, world!";
if $str ~~ / \S / {
    say "The first non-whitespace character is: $/";
}
```

输出结果为：

```
The first non-whitespace character is: H
```

在上面的代码中，使用了\S元字符来匹配第一个非空白字符。如果匹配成功，则输出匹配到的字符。