I believe you have to initialize the array in order. Switching these two lines:
$flds[16] = undef;
$flds[8] = 0;
...around like this:
$flds[8] = 0;
$flds[16] = undef;
...will work, but then you won't be able to populate the other ones. Perhaps a full blown initialization of any array elements that aren't populated by split first?:
use warnings;
use strict;
use Data::Dumper;
my $value = "A\tB\tC\tD\tE\tF\t\t\t\t";
my @flds = split(/\t/,$value);
for (0..16){
$flds[$_] = undef if ! defined $flds[$_];
}
$flds[8] = 0;
print Dumper \@flds;
Output:
$VAR1 = [
'A',
'B',
'C',
'D',
'E',
'F',
undef,
undef,
0,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef
];
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.