I've added the following:

print "\n------------\n";
print join "\n",split /\t/, $hash{$key}, 7;

[download]

This has produced the following output:

------------
spam
20120625T115711
14359
 Time Attendance Software <rasputin@gustyhelp.info>
drape@gustyhelp.info
 Track employee time and attendance
11.034
------------
spam
20120627T054428
119032
"CriminalJustice Education" <CollegePrograms@birdddeals.com>
CollegePrograms@birdddeals.com
 Succeed in a Criminal Justice program

[download]

========

It may not be clear from the second example, but it only has six fields, where the seventh is blank. It is that condition I'm trying to manage with split and keep it from choking.

It looks like the last value is null, which must be the type of thing that's choking the split from my example.

When the database was written, it appears undef'd values were used in some fields where there was no data available.

Is there another way to split the tab-delimited line other than split() that won't choke?

In reply to Re^4: Deleting undefined entries from DB_FILE hash by gossamer
in thread Deleting undefined entries from DB_FILE hash by gossamer

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.