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日

悬赏问题

  • ¥50 导入文件到网吧的电脑并且在重启之后不会被恢复
  • ¥15 (希望可以解决问题)ma和mb文件无法正常打开,打开后是空白,但是有正常内存占用,但可以在打开Maya应用程序后打开场景ma和mb格式。
  • ¥20 ML307A在使用AT命令连接EMQX平台的MQTT时被拒绝
  • ¥20 腾讯企业邮箱邮件可以恢复么
  • ¥15 有人知道怎么将自己的迁移策略布到edgecloudsim上使用吗?
  • ¥15 错误 LNK2001 无法解析的外部符号
  • ¥50 安装pyaudiokits失败
  • ¥15 计组这些题应该咋做呀
  • ¥60 更换迈创SOL6M4AE卡的时候,驱动要重新装才能使用,怎么解决?
  • ¥15 让node服务器有自动加载文件的功能