Ways to add an item into the middle of an array?

Cody Fendant has asked for the wisdom of the Perl Monks concerning the following question:

I have a situation where I'm reading from an unreliable source of data.

Essentially, if I split a line and there are only 6 elements, I've got a problem, because there should be 7. The extra one should be at index 1.

['foo' , 'bar',  'baz', 'etc', 'etc', 'etc']       ##problem line
['foo' , '',     'bar', baz', 'etc', 'etc', 'etc'] ## problem now fixe
+d.
[download]

What's the elegant or Perlish way to do this? Doing it this way:

@newline = ($line[0], '',@line[ 1, 2, 3, 4, 5 ]);

Doesn't seem so great.

Comment on Ways to add an item into the middle of an array? Select or Download Code

Replies are listed 'Best First'.
Re: Ways to add an item into the middle of an array? by choroba (Cardinal) on Nov 20, 2015 at 00:49 UTC
See splice: `#!/usr/bin/perl use warnings; use strict; use Data::Dumper; my @line = qw( foo bar baz etc etc etc ); splice @line, 1, 0, ''; # Insert at position 1, replace 0 elements. print Dumper \@line;` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^2: Ways to add an item into the middle of an array? by Cody Fendant (Hermit) on Nov 20, 2015 at 04:02 UTC
Thank you! I knew there was a function to do that out there...	[reply]
Re: Ways to add an item into the middle of an array? by vinoth.ree (Monsignor) on Nov 20, 2015 at 04:01 UTC
You could have done search, How do I insert an element into an arbitrary (in range) array index? ++choroba, As choroba given the code, splice is the best way to insert element in middle of the array, I mean performance. *All is well. I learn by answering your questions...*	[reply]