如何只获取Perl中String的第一个数字

Question

考虑以下字符串：

AS58536:AS-V6PEERS

我只想得到58536。 到现在为止，我将字符串拆分为：并删除所有非数字。 是否可以选择查找相邻数字的第一个出现并停在第一个非数字字符处？ 我只是想要一个花哨的一个班轮。

Answer 1

如果您想匹配字符串中的第一个数字序列，那么这些示例中的一个可能会对您有所帮助：

 echo "AS58536:AS-V6PEERS" | perl -ne '/(\d+)/ and print $1, $/;'
 perl -e '$string="AS58536:AS-V6PEERS"; $string =~ s/.*?(\d+).*/$1/; print $string,$/;'

我认为这就是你的意思

  

第一次出现相邻数字并停在第一个非数字字符