So, it sounds to me like you have a 'son' number, and you want to find the 'father' of the son, and the father of the father (the sons grandfather you could say).

The code you have will work in your second case, if you just put the variable instead of the number, but there are several more elegant methods you could use, this is how I would probably do it...

sub father_of {
    my $find = shift;

    my $data_file = "reff.data";
    open(DAT, $data_file) || die "Could not open file: $!";
    foreach(<DAT>) {
        chomp;
        my($son,$father) = split;
        if($son == $find) { return $father; }
    }
    close(DAT);
}

my $son = 1045316419;
my $father = father_of($son);
my $grandfather = father_of($father);

print "The son is $son\n";
print "The father of $son is $father\n";
print "The father of $father is $grandfather\n";

[download]

This has a couple of advantages, you have reusable code rather than duplicating the search code every time, and it doesn't read the entire file into memory,

If you did want to read the whole file into memory, storing it as a has makes it easier to use:

open(DAT,$data_file) || die "Couldn't open file":
foreach(<DAT>) {
    chomp;
    my($son,$father) = split;
    $fathers{$son} = $father;
}
close(DAT);

my $son = 1045316419;
my $father = $fathers{$son};
my $grandfather = $fathers{$father};

[download]

(See perldata for more info on hashes)

In reply to Re: Correction to Database problem by jasonk
in thread Correction to Database problem by nasa

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.