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日

悬赏问题

  • ¥17 pro*C预编译“闪回查询”报错SCN不能识别
  • ¥15 微信会员卡接入微信支付商户号收款
  • ¥15 如何获取烟草零售终端数据
  • ¥15 数学建模招标中位数问题
  • ¥15 phython路径名过长报错 不知道什么问题
  • ¥15 深度学习中模型转换该怎么实现
  • ¥15 HLs设计手写数字识别程序编译通不过
  • ¥15 Stata外部命令安装问题求帮助!
  • ¥15 从键盘随机输入A-H中的一串字符串,用七段数码管方法进行绘制。提交代码及运行截图。
  • ¥15 TYPCE母转母,插入认方向