perl怎么截取字符串里的数字-开发者知识库平台

perl怎么截取字符串里的数字

perl

1145

2023/11/22 11:47:27

栏目: 编程语言

在Perl中，可以使用正则表达式和字符串函数来截取字符串中的数字。

以下是几种常用的方法：

my $string = "abc123def456";
my @numbers = $string =~ /(\d+)/g;
foreach my $number (@numbers) {
    print "$number\n";
}

这样会将字符串中所有连续的数字匹配出来并保存在数组@numbers中。

my $string = "abc123def456";
$string =~ s/\D//g;
print "$string\n";

这样会将字符串中的非数字字符替换为空，只保留数字。

my $string = "abc123def456";
my @parts = split /\D+/, $string;
foreach my $part (@parts) {
    print "$part\n" if $part =~ /\d/;
}

这样会将字符串按非数字字符拆分成数组@parts，然后筛选出其中包含数字的元素打印出来。

这些方法都可以根据具体情况选择使用，根据字符串的格式和需求选择最合适的方法。

perl怎么截取字符串里的数字