Perl 分割字符串（空格）212

在 Perl 中，您可以使用 split() 函数将字符串以空格为分隔符分割成一个数组。split() 函数的语法如下：
my @array = split( PATTERN, STRING, LIMIT );

其中：* PATTERN 是分隔符，在这种情况下是空格。
* STRING 是要分割的字符串。
* LIMIT 是可选参数，指定要分割的子字符串数量（不包括空子字符串）。

示例：
my $string = 'Perl 程序设计语言';
my @words = split( ' ', $string );
foreach my $word (@words) {
print "$word";
}

输出：
Perl
程序
设计
语言

匹配多个空格：

如果字符串中有多个连续空格，split() 函数会将它们视为单个分隔符。例如：
my $string = 'Perl 程序 设计 语言';
my @words = split( ' ', $string );
foreach my $word (@words) {
print "$word";
}

输出：
Perl
程序
设计
语言

忽略空子字符串：

默认情况下，split() 函数会将空子字符串包括在结果数组中。要忽略空子字符串，请使用 /s 修饰符。例如：
my $string = 'Perl 程序 设计 语言';
my @words = split( ' ', $string, -1, ' /s' );
foreach my $word (@words) {
print "$word";
}

输出：
Perl
程序
设计
语言

拆分特定次数：

LIMIT 参数允许您指定要拆分的子字符串数量。例如，要将字符串拆分为最多两个单词，请使用：
my $string = 'Perl 程序设计语言';
my @words = split( ' ', $string, 2 );
foreach my $word (@words) {
print "$word";
}

输出：
Perl
程序设计语言

其他分隔符：

split() 函数可以以任何分隔符分割字符串。例如，要以逗号分割字符串，请使用：
my $string = 'Perl,程序,设计,语言';
my @words = split( ',', $string );
foreach my $word (@words) {
print "$word";
}

输出：
Perl
程序
设计
语言

2024-12-20

上一篇：Perl 变量类型详解

下一篇：perl 智能匹配