Perl split函数
Perl split函数
Perl split 函数将字符串拆分为数组。根据模式指定的分隔符分割字符串。默认情况下，它假定空格作为分隔符。
拆分语法是:
Split /pattern/, variableName
Perl 拆分示例
在此示例中，拆分返回一个字符串列表。分隔符是(-)。这意味着字符串在(-) 处被拆分。
my $str = "Cu-K-Na-Hg-Pb-Li";
my @break = split /-/, $str;
print"@break\n";
输出:
Perl split 限制部分数量
我们可以限制一个字符串要分割的部分数量。
在这个例子中，字符串分成 3 部分。
my $str = "Cu-K-Na-Hg-Pb-Li";
my @break = split(/-/, $str, 3);
print"@break\n";
输出:
Cu K Na-Hg-Pb-Li
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;
printDumper \%words;
输出:
$VAR1 = (
'Anu', => '11th May',
'Vishal', => '18th Sept',
'Juhi', => '5th Jul',
);
Perl 在空字符串上拆分
在空字符串上拆分意味着字符串将在找到空字符串的每个位置拆分。每两个字符之间有一个空字符串。这意味着它将返回拆分为单个字符的原始字符串。
my $str = "lidihuo";
my @break = split //, $str;
print"@break\n";
输出:
Perl 连接函数
Perl 连接字符，使用分隔符模式将元素连接成单个字符串以分隔每个元素。与split相反。
join语法是:
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";
输出:
