Perl split()函数 - 芒果文档

📌 相关文章

📜 Perl split()函数

📅 最后修改于: 2021-01-07 08:33:09 🧑 作者: Mango

Perl分割功能

Perl split函数将字符串分割成一个数组。字符串根据pattern指定的分隔符进行分割。默认情况下，它的空白被假定为定界符。

拆分语法为：

Split /pattern/, variableName

Perl分割示例

在此示例中，split返回字符串列表。分隔符是(-)。这意味着字符串在(-)处分割。

my $str = "Cu-K-Na-Hg-Pb-Li";  
my @break = split /-/, $str;  
print "@break\n";

输出：

        
Cu K Na Hg Pb Li

Perl split极限零件数

我们可以限制要分割为字符串的部分的数量。

在此示例中，字符串分为三部分。

my $str = "Cu-K-Na-Hg-Pb-Li";  
my @break = split(/-/, $str, 3);  
print "@break\n";

输出：

Perl分割成多个字符

我们可以在多个定界符处分割一个字符。在下面的示例中，我们在(=)和(，)处分割了字符串。

my $str = 'Vishal=18Sept,Anu=11May,Juhi=5Jul';  
my @words = split /[=,]/, $str;  
print "@words\n";

输出：

Vishal 18Sept Anu 11May Juhi 5Jul

由于它们是键值对，因此我们可以将结果分配给哈希而不是数组。

use Data::Dumper qw(Dumper);
my $str = 'Vishal=18th Sept,Anu=11th May,Juhi=5th Jul';
my %words = split /[=,]/, $str;
print Dumper \%words;

输出：

$VAR1 = (
        'Anu', => '11th May',
        'Vishal', => '18th Sept',
        'Juhi', => '5th Jul', 
);

Perl在空字符串上拆分

在空字符串上分割意味着字符串将在找到空字符串的每个地方分割。每两个字符之间有一个空字符串。这意味着它将返回分割成各个字符的原始字符串。

my $str = "JAVATPOINT";  
my @break = split //, $str;  
print "@break\n";

输出：

J A V A P O I N T

Perl连接功能

Perl连接字符，使用分隔符模式将元素连接到单个字符串中，以分隔每个元素。它与split相反。

连接语法为：

join 'pattern', variableName

Perl连接示例

在以下示例中，我们以三种不同的方式加入。

首先，我们在数组的每个元素之间加入(:)。

第二，我们将与(-元音)与第一个的输出结合在一起。

第三，我们在原始数组中又添加了两个字符。

my @vowels = ('A', 'E', 'I');
my $str = join ':', @vowels;
print "$str\n";                    
my $data = join "-", $str, "vowels";
print "$data\n";                     
$str = join '', @vowels, 'OU';
print "$str\n";

输出：

A:E:I
A:E:I -vowels
AEIOU