liutingloveliu 2021-07-18 15:10 采纳率: 75%
浏览 50
已采纳

代码@{ $R{$s[4]}{R}}是什么意思?

链接标题 代码中的push @{ $R{$s[4]}{R}},[$s[1].$s[2]];这个{R}是什么意思?还有[$s[1].$s[2]]是一个两个元素的数组吗?

img

----------------------------------------------------------------------------------------
#!/usr/bin/perl
my %R;
while () {
    my @s = split;
    push @{ $R{ $s[4] }{R} }, [ $s[1], $s[2] ];
    $R{ $s[4] }{ $s[1] } = [ @s[ 0, 3, 4, 5 ] ];
}

while ( my ( $k, $v ) = each %R ) {
    my @tmp = sort { $a->[0] <=> $b->[0] } @{ $v->{R} };
    my ( $E, @R ) = ( 1, shift @tmp );
    for my $t (@tmp) {
        $t->[0] > $R[-1][1] && push @R, $t and next;
        $t->[1] > $R[-1][1] && ( $R[-1][1] = $t->[1] )
    }
    for my $R (@R) {
        my ( $A, $B, $C, $D ) = @{ $v->{ $R->[0] } };
        print join( "\t", $A, @$R, $B, "${C}_E" . $E++, $D ) . $/;
    }
}
-------------------------------------------------------------------------------

  • 写回答

1条回答 默认 最新

  • soar3033 2021-07-19 13:59
    关注

    [$s[1],$s[2]] 是用来读取指定范围的元素,比如$s[1]=1 $s[2]=3,那[$s[1],$s[2]] 就等效于[1,3]那么就会读取1,2,3三个元素,比如@list = (5,4,3,2,1)[1..3];那么@list=4,3,2

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 已采纳回答 7月22日
  • 创建了问题 7月18日

悬赏问题

  • ¥500 把面具戴到人脸上,请大家贡献智慧
  • ¥15 任意一个散点图自己下载其js脚本文件并做成独立的案例页面,不要作在线的,要离线状态。
  • ¥15 各位 帮我看看如何写代码,打出来的图形要和如下图呈现的一样,急
  • ¥30 c#打开word开启修订并实时显示批注
  • ¥15 如何解决ldsc的这条报错/index error
  • ¥15 VS2022+WDK驱动开发环境
  • ¥30 关于#java#的问题,请各位专家解答!
  • ¥30 vue+element根据数据循环生成多个table,如何实现最后一列 平均分合并
  • ¥20 pcf8563时钟芯片不启振
  • ¥20 pip2.40更新pip2.43时报错