小菜求助：获取指定序列

ahy114

总共有3个文件。
第一个文件里面每一行说明了需要的内容所在的group，区间范围，以及type（a，b，c）。
第二个文件指明了第三个文件中每个group中不同的位置的类型。
第三个文件是每个group全部的内容，“>”开头的表明是那个group，下面一行是group的全部内容。

需要：
在第三个文件中找出第一个文件每一行指定的序列。



文件内容：
-------------------------第一个文件--------------------------------

group:start|stop        type
3:4|17     a
5:11|19   b

-------------------------第二个文件--------------------------------
group        start        stop        type
3        1        5        a
3        6        9        b
3        11        15        c
5        1        7        a
5        8        15        b


-------------------------第三个文件--------------------------------
>1
abcdefgabcdefgabcdefgabcdefgabcdefgabcdefg
>2
123456123456123456123456123456123456123456
>3
abc123abc123abc123abc123abc123abc123abc123abc123abc123abc123abc123abc123abc123
>4
a1b2c3a1b2c3a1b2c3a1b2c3a1b2c3a1b2c3a1b2c3
>5
aabbcc112233aabbcc112233aabbcc112233aabbcc112233aabbcc112233aabbcc112233aabbcc

ahy114

回复 3# sunzhiguolu

第一个文件是需要的大区间，这个大区间里可能会有好几个类型，比如，为3的group，1-5是a类型，6-9是b类型。对于第一个文件的第一行，大区间是4-17，需要的是a类型，在这个区间里，a类型是4-5。所以，对应的结果如图

ahy114

回复 5# sunzhiguolu

太感谢大神了！！

ahy114

回复 5# sunzhiguolu

还有两个问题想请教下，第一，我尝试了一下，如果一个大区间有一个以上需要的类型的小区间，不能正常工作，例如，第二个文件的第三行的类型为a而不是c。第二，perl本身的问题，

1. sub load_data{
   
2.     local @ARGV = shift;
   
3.     my $data = shift;
   
4.     my $merge = defined $data;
   
5. ...
   
6. ...
   
7. 
   
8. }
   
9. 
   
10. my $data;
    
11. $data = load_data (shift, $data);               
    
12. $data = load_data (shift, $data);        

复制代码

您代码中的这几个shift我没有看懂，能不能简单解释下，谢谢您了！

ahy114

回复 8# sunzhiguolu

比如
-------------------------第二个文件--------------------------------
group        start        stop        type
3        1        5        a
3        6        9        b
3        11        15        a
5        1        7        a
5        8        15        b


那么期望结果就应该是“12”和“23abc”，即1223abc

ahy114

回复 11# sunzhiguolu

我用下面这个图说明了下

ahy114

完美，感谢大神的帮助！！！