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

choroba · Accepted Answer · 2021-01-27 10:29:06Z

2

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];

answered Jan 27, 2021 at 10:29

choroba

245k27 gold badges221 silver badges304 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

ssr1012 · Accepted Answer · 2021-01-27 10:14:47Z

1

I think no issues while doing like this:

my $str = "sample.1.csv.main";

my @arra = split('\.',$str);

print "first element : $arra[0].$arra[1]";

answered Jan 27, 2021 at 10:14

ssr1012

2,5891 gold badge21 silver badges34 bronze badges