in reply to Re: Re: struggling with sub-routines
in thread struggling with sub-routines

To loop the menu i would suggest using the following: 
while(1) {

    print "\nPlease select the catergory of results that you wish to s
+ee;\n\n\t1. first \n\t2. second \n\t3. third \n\t4. forth \n\t5. Othe
+rs  etc\n\t6. Exit program\n\n";

    chomp($choice = <STDIN>);

    if ($choice eq '6') {
        last;
    }

    #your code here

}

[download]
As for the rest of the program I am still unsure as to what the files your are parsing will be like. Could you give an example file?

~~rob
____________________________________________________________
eval pack "h*", "072796e647022245d445f475454494c5e622b3";

Replies are listed 'Best First'.
Re: Re: Re: Re: struggling with sub-routines
by Anonymous Monk on Jun 20, 2002 at 09:25 UTC
    An example of the file is something like this: 
    
1269    /:tremblnew|AAL98468|AAL98468   344     873     6e-94   534 76
+7 166/177
        93%     172/177         96%             767     533 3 590 766
 1269   /:sptrembl|Q9F445|Q9F445        331     840     5e-90   534 72
+2 162/177
        91%     169/177         94%             722     533 3 545 721
 1269   /:tremblnew|AAK99986|AAK99986   143     357     2e-33   534 21
+3 72/165
        43%     108/165         64%             213     533 39 46 209

    [download]
    where the reg ex's would be something like; 
     

if (defined(($array[1] =~ m{/:sptrembl\|\w+\|\w+}) || ($array[1] =~ m{
+/:tre
mblnew\|\w+\|\w+})) && ($array[8] > 95))

    [download]
    thanks, i appreciate your help!
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom