I want to split a string into array from 2nd element using Perl

Question

I have a string "sample.1.csv.main" want to split into array from 2nd element.

Here is the code I had tried

Code --

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

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

OUTPUT :

first element : sample

DESIRE OUTPUT :

first element : sample.1

question from:https://stackoverflow.com/questions/65916743/i-want-to-split-a-string-into-array-from-2nd-element-using-perl

Answer 1

Split on dots, then join the first two elements:

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

See join and splice.