这种问题该如何处理

sunzhiguolu

看了一篇帖子, 内容如下:

我有一个难题，请教高人指点。对于每个ID(第一列)，找出所有首尾相连（从1连到100）的组合。非常谢谢您的帮助！！

a   1-30      A
a   9-30      B
a   31-70    D
a   31-100  F
a   71-100  U
b   1-50      J
b   1-90      K
b   51-100   JK
c   1-20      ll
c   21-99     L


理想的输出结果是：
a    1-30,31-70,71-100   ADU
a    1-30,31-100            AF
b    1-50, 51-100           JJK

开始时感觉挺好处理, 可是实际操作起来好像无从下手. 还请大家指点, 谢谢大家...

wlforyou1

这个是做什么的。

jason680

回复 1# sunzhiguolu

$ perl get_1-100.pl
a 1-30,31-70,71-100 A,D,U
a 1-30,31-100 A,F
b 1-50,51-100 J,JK



main function in get_1-100.pl

while(<DATA>){
  #      a         1-30          A
  my ($sID,$sSt,$sEnd,$sName)=split(/[\s-]+/);
  push @{$hData{$sID}{$sSt}},{end=>$sEnd,name=>$sName}
}
for (sort keys %hData){
  get($_, 1, $sTar);        # $sTar = 100     (Target)
}

sunzhiguolu

回复 2# wlforyou1
这个是以前的帖子, 我也说不好.

sunzhiguolu

回复 3# jason680

大神您好，这个问题我实在不懂 还请您给个示例性代码 谢谢指点.

jason680

回复 5# sunzhiguolu

thinking and pseudo code

a   1-30      A
  $h{a}{1}[0]{end=>30, name=>A}
a   9-30      B
  $h{a}{9}[0]{end=>30, name=>B}
a   31-70    D
  $h{a}{31}[0]{end=>70, name=>D}
a   31-100  F
  $h{a}{31}[1]{end=>100, name=>F}
a   71-100  U
  $h{a}{71}[0]{end=>100, name=>U}

get(a,1,100)

foreach $h{a}{1}                                                 # in get(a,1,100)
  $h{a}{1}[0]->end=>30  --> get(a,31,100,...)
    foreach $h{a}{31}                                          # in get(a,31,100,...)
      $h{a}{31}[0]->end=>70 ,  --> get(a,71,100,...)
        foreach $h{a}{71}                                      # in get(a,71,100,...)
          $h{a}{71}[0]->end=>100 --> got it
      $h{a}{31}[1]->end=>100 , --> got it