calling sub

[Benjamin Jeeves]

Can someone tell me why my call to build_db() works but when I call alert() it 
will not work as it calls alert but will not enter the while loop I my 
opening the file with

#!/usr/bin/perl

$filein = $ARGV[0];
open(filein, "$filein");

sub start
{

        for(;;)
        {
                while ( <filein> )
                {
                        build_db();
                        $counter++;
                        alert();
                        $counter1++;
                        print "$counter..$counter1\n";
                }
                sleep 50;
                seek filein,0,1;
        }
}

sub alert
{
        while( <filein> )
        {
                does some thing on pattern matching
        }
-- 
Thank You



Benjamin Jeeves

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]