multidimensional array - How to group the repeated columns in the text file - perl (groups, subgroups) -


input description

it tab delimited file. first 5 columns id's , relations has in final print anyway. want group columns 6, if repeated. different groups exist hierarchy. column 3 criteria grouping. in example, 4 , 5 criterias. please check output.

input

ag1_4099    13  4   2   2   uv1040  uv0000  uv3770  uv3890 ag1_9001    20  4   2   1   uv1040  uv0000  uv3770  uv3890 ag1_9011    63  4   2   4   uv1040  uv0000  uv3770  uv3890 ag1_7013    11  4   1   1   uv1040  uv0000  uv3770  uv3890 ag1_9010    37  4   1   1   uv1040  uv0000  uv3770  uv3890 ag1_1011    33  4   2   7   uv1040  uv2080  uv3770  uv3890 ag1_1013    101 4   1   1   uv1040  uv2080  uv3770  uv3890 ag1_0001    7   4   2   1   uv1040  uv2100  uv3770  uv3890 ag1_1010    23  4   1   1   uv1040  uv8000  uv3770  uv3890 ag1_2099    13  4   2   2   uv1040  uv1000  uv3770  uv3890 ag1_3133    24  5   2   2   uv1040  uv300   uv2100  uv3770  uv3890 ag1_3433    343 5   7   3   uv1040  uv2118  uv2100  uv3890  uv3770 ag1_1100    254 5   1   4   uv2100  uv3770  uv3890  uv2105  mk7 ag1_8111    3   5   3   2   uv1040  uv3770  uv3890  uv2100  mk1 ag1_3430    84  5   2   2   uv1040  uv3770  uv3890  uv2100  mk1 ag1_7700    87  5   3   2   uv1040  uv3770  uv3890  uv2100  mk1 .... .... , on

desired output

(1) #### criteria 4 grouped  ag1_4099    13  4   2   2   uv1040  uv0000  uv3770  uv3890 ag1_9001    20  4   2   1   uv1040  uv0000  uv3770  uv3890 ag1_9011    63  4   2   4   uv1040  uv0000  uv3770  uv3890 ag1_7013    11  4   1   1   uv1040  uv0000  uv3770  uv3890 ag1_9010    37  4   1   1   uv1040  uv0000  uv3770  uv3890  ag1_1011    33  4   2   7   uv1040  uv2080  uv3770  uv3890 ag1_1013    101 4   1   1   uv1040  uv2080  uv3770  uv3890  ag1_0001    7   4   2   1   uv1040  uv3770  uv3890 ag1_1010    23  4   1   1   uv1040  uv3770  uv3890 ag1_2099    13  4   2   2   uv1040  uv3770  uv3890  #### singles ag1_0001    7   4   2   1   uv2100 ag1_1010    23  4   1   1   uv8000 ag1_2099    13  4   2   2   uv1000  (2) #### criteria 5 grouped ag1_8111    3   5   3   2   uv1040  uv2100  uv3770  uv3890  mk1 ag1_3430    84  5   2   2   uv1040  uv2100  uv3770  uv3890  mk1 ag1_7700    87  5   3   2   uv1040  uv2100  uv3770  uv3890  mk1  ag1_3133    24  5   2   2   uv1040  uv2100  uv3770  uv3890 ag1_3433    343 5   7   3   uv1040  uv2100  uv3770  uv3890  ag1_1100    254 5   1   4   uv2100  uv3770  uv3890  #### singles ag1_1100    254 5   1   4   uv2105  mk7 ag1_3133    24  5   2   2   uv300 ag1_3433    343 5   7   3   uv2118

code

after matching in innermost loop, can't form group. please , correct.

use strict; use warnings;  #my $in = $argv[0]; chomp $in; $in = "test.txt";  open(in,"$in") or die "unable open $in:$!\n";  @multiarr = ();  while(my $line = <in>) {     chomp $line;     @linearr = split(/\t/, $line);     push (@multiarr, \@linearr); } close in;  ($quant,$linecnt) = ""; @gnmarr = (); $count = 0; $tmpquant = ""; @tmpmulti = (); $out = "";  loop: (my $i = 5; $i < 6; $i++) {       (my $line = 0; $line < scalar @multiarr ; $line++)     {          $quant = $multiarr[$line][2];         $linecnt = scalar @{$multiarr[$line]}-1;          if($i == $quant)         {             $count++;             push (@tmpmulti, \@{$multiarr[$line]});             $tmpquant = $multiarr[$line][2];         }     }       $c = "";     (my $cls = 0; $cls < scalar @tmpmulti ; $cls++)     {         print "start";           (my $move = scalar @tmpmulti-1; $move > $cls; $move--)         { #print "$move\t$cls\n";             (my $gnm = 5; $gnm < scalar @{$tmpmulti[$cls]}; $gnm++)             { #print "$gnm\n";                 (my $g = 5; $g < scalar @{$tmpmulti[$move]}; $g++)                 {                      if($tmpmulti[$cls][$gnm] eq $tmpmulti[$move][$g]){ #print "$cls\t$gnm\n$move\t$gnm\n";                         print "$tmpmulti[$cls][$gnm]\n";                         $c++;                     }                 }             } #print "$move\t$cls\t$c\n";         }         print "\n"; #print "$c\n";     }       if($i ne $tmpquant)     {         next loop;     }  }


Comments

Post a Comment

Popular posts from this blog

php - Vagrant up error - Uncaught Reflection Exception: Class DOMDocument does not exist -

i've set bento/ubuntu-16.04 vagrant box using php 5.6, , getting following error quite few times when try , run shell script: "uncaught reflection exception: class domdocument not exist". i've tried adding following top of script (not together), each no success: "sudo apt-get install php5.6-xml", "sudo apt-get install php5-xml", "sudo apt-get install php-dom" i've tried resetting server "sudo service apache2 restart". does have suggestions?
Read more

vue.js - Create hooks for automated testing -

Image
qa guys complained can't automate frontend testing. because our html looks same outside. lazy hack did this <template> <div :role="$options.name"> ... </div> </template> <script> export default { name: 'vmcomponentname' } </script> which takes name script , applies html. in browser get: <div role="vmcomponentname"> ... </div> line :role="$options.name" goes in every component. is there dry er solutions? please share. additional details i'll explain in details looking for. imagine have vmusercreate form creates user. test case can create user . to automatically test without role, have use following selector: .wrapper > .wrapper > .wrapper > .submit-button the test extremely brittle (will break lot). if use roles can use [role="vmusercreateform"] .submit-button selector. many folds less brittle. so basically, i'm ...
Read more

Add new key value to json node in java -

i have json file : { "id":1, "name":"abc", "addressdetails": { "city":"newyork" } } i wanted add 1 more key-value ("pincode" : "414141") node 'addressdetails'. i tried using : objectmapper mapper = new objectmapper(); jsonnode root = mapper.readtree(new file("d://test.json")); objectnode node = mapper.createobjectnode(); node.with("addressdetails").put("pincode", "414141"); but it's not getting added, there way can ? you can try you should modify file path objectmapper mapper = new objectmapper(); objectnode nodes = mapper.readvalue(new file("d:\\test.txt"), objectnode.class); nodes.with("addressdetails").put("pincode", "414141"); mapper.writer().writevalue(new file("d:\\test.txt"), nodes);
Read more