need advice on this - hash

[baxy77bax]

Hi,

I think i saw a solution of this problem on this forum but i can't find that post, so i'll ask again.
my problem is that i have a table that i converted to hash, the table looks something like this:

x => y
23 32
12 45
12 35
12 67
45 34
34 90
34 55
35 53
35 44
44 41
...
now when i try to search for #12 it returns only the #67 but not 35 and 45.
why is that, and how can i solve this problem,that, at the end of my search it returns all the matching results.

also i'm having problems with creating a loop that would find for example #12, return the result(s) for #12 and start the search again with that result(s) (example: 12=>35, 35=>44, 44=>41). and that it writes down the results of each search.

thank you ,

robert

[KevinADC]

please post your existing perl code.

[baxy77bax]

this is only the working version with some artefact's that were left behind. the actual code for the problem I don't have jet.

use warnings;
use strict;
 
use Getopt::Long;
 
my $a;
my $b;
my $nods;
my $error = "\n Use it like -i nods.txt \n";
my @nods;
my %nods;
my @nodss;
my $tax;
my $taxx;
my $c;
my $d;
GetOptions('i=s' => \$nods );
 
if (!$nods) {
    print $error
}
 
open(NODS, "<", $nods) || die "can't finde the $nods";
 
while ($a = <NODS>) {
    @nods = split(/\t\|\t/, $a);
    $tax=$nods[0];
    $taxx = $nods[1] ;
    $nods{$taxx} = $tax;
}
 
print "enter tax:";
chomp(;
 
######    this is wher the main part of the program should go!!!!!
 
exit;
 
 

[baxy77bax]

could this be resolved through sql. i mean it would be nice to save some memory, because the files are pretty big .

thanks

[baxy77bax]

i don't know if this is realy hard question or there is no interest for answering it but, i came up with a solution for a part of my question. using code:

 
 
use warnings;
use strict;
use Getopt::Long;
 
 
my $a;
my $b;
my $nods;
my $error = "\n Use it like -i nods.txt -o query.txt \n";
my @nods;
my %nods;
my @nodss;
my $tax;
my $taxx;
my $c;
my $d;
my $out;
my @e;
 
GetOptions('i=s' => \$nods, 'o=s' => \$out );
                 if (!$nods || !$out) {
                 print $error
                 }
 
open(NODS, "<", $nods) || die "can't finde the $nods";
open(OUT, "<", $out) || die "can't finde the";
open(OUTT, ">>", $out) || die "can't finde the";
 
 
while ($a = <NODS>) {
 
 
 
          @nods = split(/\t\|\t/, $a);
          $tax=$nods[0];
          $taxx = $nods[1] ;
          $nods{$taxx} = $tax;
}
 
 
#this is wher the main part of the program should go!!!!!
 
while (open(OUT, "<", $out) || die "can't finde it"){
 
      while ($b = <OUT>){
                @e = split(/\n/, $b);
                }
$c = $#e;
 
print OUTT "\n" . $nods{$e[$c]};
close OUT;
}
 
close OUTT;
 
 
 
close NODS;
 
 
exit;
 
 

this code works with a big bug in it, it does what i want but it repeats a result couple of times before it changes a search. it is like, the opening and closing a file is to slow for the 'while' loop.
to test the program you can save this text as file that goes into the -i

32 | 23 |
45 | 12 |
35 | 12 |
67 | 12 |
34 | 45 |
90 | 34 |
55 | 34 |
53 | 35 |
44 | 35 |
41 | 44 |

watch for the format (##^t|^t##^t|^t)

and # 45 in file that goes into -o.
and tun it : perl program.pl -i xxx.txt -o xxx.txt

that is it , please help, ask questions so that i can bi more specific in defining the problem

thanks

robert

[baxy77bax]

ok i fixed the second part of the problem , it works through hashes, but now still the first part remains:

my problem is that i have a table that i converted to hash, the table looks something like this:

x => y
23 32
12 45
12 35
12 67
45 34
34 90
34 55
35 53
35 44
44 41
...
now when i try to search for #12 it returns only the #67 but not 35 and 45.
why is that, and how can i solve this problem,that, at the end of my search it returns all the matching results.

any ideas on how to do this, i could try to do this through mysql but i need the advice on this . shoul i do it in this way or is there a better way to do it.

robert

ps
please don't let me talk to myself

[KevinADC]

a simplified example of what I think you are trying to do:

use warnings;
use strict;
my %nods;
while (my $line = <DATA>) {
   my ($tax,$taxx) = split(/\s/, $line);
   push @{$nods{$tax}},$taxx;
}
my $tax = 12;
print "$tax = ", join(',',@{$nods{$tax}});
exit;
 
__DATA__
23 32
12 45
12 35
12 67
45 34
34 90
34 55
35 53
35 44
44 41
 
 

[baxy77bax]

thank you that is it, i just needed an idea. i think i have all the ingredients now to resolve my problem.

thanks

robert