Perl split函数

本文概述

• Perl分割示例
• Perl split极限零件数
• Perl分割成多个字符
• Perl在空字符串上拆分
• Perl连接功能
• 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 = "srcmini";  
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