Re^4: Qurey through array of array

Hi Puundeli,

Thank you very much. It seems that the dumper prints the things perfectly. I tried the code with a larger data set, but still it take into account the unique keys. One way to test the algo is to test file1 against itself. You should print everything out. However, you will see that it prints only one key per gene.

Are we missing anything, here?

thanks,

Pedro

Comment on Re^4: Qurey through array of array

Replies are listed 'Best First'.
Re^5: Query through array of array by puudeli (Pilgrim) on Jan 23, 2009 at 08:15 UTC
Doh! You have to remove the `next KEY;` statement and it will print all lines. Genename(file1) start end Genename(file2) + start end CLS_S3_Contig2722 375 390 CLS_S3_Contig2722 + 375 390 CLS_S3_Contig2725 323 362 CLS_S3_Contig2725 + 323 362 CLS_S3_Contig2725 455 480 CLS_S3_Contig2725 + 455 480 CLS_S3_Contig2729 119 130 CLS_S3_Contig2729 + 119 130 CLS_S3_Contig2729 163 220 CLS_S3_Contig2729 + 163 220 CLS_S3_Contig2731 824 843 CLS_S3_Contig2731 + 824 843 CLS_S3_Contig2731 1150 1201 CLS_S3_Contig2731 + 1150 1201 CLS_S3_Contig2728 117 144 CLS_S3_Contig2728 + 117 144 CLS_S3_Contig2728 437 472 CLS_S3_Contig2728 + 437 472 CLS_S3_Contig2721 139 168 CLS_S3_Contig2721 + 139 168 CLS_S3_Contig2735 571 636 CLS_S3_Contig2735 + 571 636 CLS_S3_Contig2735 677 710 CLS_S3_Contig2735 + 677 710 CLS_S3_Contig2735 775 810 CLS_S3_Contig2735 + 775 810 CLS_S3_Contig2730 181 202 CLS_S3_Contig2730 + 181 202 CLS_S3_Contig2730 361 384 CLS_S3_Contig2730 + 361 384 [download] -- `seek $her, $from, $everywhere if exists $true{love};`	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: Query through array of array
by puudeli (Pilgrim) on Jan 23, 2009 at 08:15 UTC

Doh! You have to remove the next KEY; statement and it will print all lines.

Genename(file1)         start   end     **      Genename(file2)       
+  start   end

CLS_S3_Contig2722       375     390     **      CLS_S3_Contig2722     
+  375     390
CLS_S3_Contig2725       323     362     **      CLS_S3_Contig2725     
+  323     362
CLS_S3_Contig2725       455     480     **      CLS_S3_Contig2725     
+  455     480
CLS_S3_Contig2729       119     130     **      CLS_S3_Contig2729     
+  119     130
CLS_S3_Contig2729       163     220     **      CLS_S3_Contig2729     
+  163     220
CLS_S3_Contig2731       824     843     **      CLS_S3_Contig2731     
+  824     843
CLS_S3_Contig2731       1150    1201    **      CLS_S3_Contig2731     
+  1150    1201
CLS_S3_Contig2728       117     144     **      CLS_S3_Contig2728     
+  117     144
CLS_S3_Contig2728       437     472     **      CLS_S3_Contig2728     
+  437     472
CLS_S3_Contig2721       139     168     **      CLS_S3_Contig2721     
+  139     168
CLS_S3_Contig2735       571     636     **      CLS_S3_Contig2735     
+  571     636
CLS_S3_Contig2735       677     710     **      CLS_S3_Contig2735     
+  677     710
CLS_S3_Contig2735       775     810     **      CLS_S3_Contig2735     
+  775     810
CLS_S3_Contig2730       181     202     **      CLS_S3_Contig2730     
+  181     202
CLS_S3_Contig2730       361     384     **      CLS_S3_Contig2730     
+  361     384
[download]

--
seek $her, $from, $everywhere if exists $true{love};

[reply]
[d/l]
[select]