perl - 我想使用 Perl 将字符串从第二个元素拆分为数组

Question

我有一个字符串“sample.1.csv.main”想从第二个元素拆分成数组。

这是我尝试过的代码

代码——

my $str = "sample.1.csv.main";
my @arra = split('\.',$str,2);

print "first element : $arr[0]";

输出：

第一个元素：样本

愿望输出：

第一个元素：sample.1

标签： perlsplit

Answer 1

拆分点，然后加入前两个元素：

my $str = 'sample.1.csv.main';
my @arra = split /\./, $str;
splice @arra, 0, 2, join '.', @arra[0, 1];

请参阅连接和拼接。