Allright, this is driving me nuts. Going through a loop updating or inserting data into an Oracle table based on a flat file and I keep getting: Use of uninitialized value in numeric eq (==) at ParseFile.pl line 435, <INF> line ######. Simplified code: 
my $lock = 0;
$GetDataFromTable->execute($indexnumber)
    || die "Can't execute GetDataFromTable ($DBI::errstr)";

unless (($lock,$updon) = $GetDataFromTable->fetchrow()) {
    $InsertData->execute($data1,$someotherdata,1,1,0)
        || die "Can't execute InsertData ($DBI::errstr)";
    goto DONE;
}

[download]
I evaluate some other unrelated data here, and here's the infamous line 435 that generates the warning. 
if ($lock) {
     # Do some other stuffDon't mess with it, it's LOCKED!
}

elsif(...) {
    ...
}
else (...) {
    ...
}


DONE:
    #Do some stuff

[download]
It seems to me, the only way $lock could be uninitialized is for the fetchrow to have set it to undefined for not finding data in the table, in which case data is inserted and the line that generates the warning is skipped over. I've tried 
if ($lock and 1) {

[download]
but it still generates the warning. The code works as I intend it to for all intents and purposes, but it spits out a lot of warnings, and I hate the idea of just shutting off the warning and ignoring it. Any ideas, and thanks. Blake Sorensen

In reply to Yet Another Unitialized Value Question by doorslam

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.