求助，perl

赛萌

回复 20# MMMIX


    恩恩，好，我有一个参考，衡量自己是否用心，努力，谢谢了，我上司让我看Intermediate perl 我准备把这个书练完，再看您提供的那两本书，再次感谢！！！

rubyish

回复 11# MMMIX

我的方法是逐行读取数据，让 element 始终指向其当前所在的 group：

   

3Q ~ zhege fangfa hao!
wo hui 3 zhong le

赛萌

回复 11# MMMIX


    您好，我有一个疑问，请教您有点不合适，但是我听听您的看法，您写的这个程序我有点看不懂，就拿着问了我的上司，我说是我从网上看到的，但是他看了之后不理我，然后就说谁给你写的问谁去，我不知道他这是什么意思？因为我刚进职场， 职场中的为人处世也不太懂？您发表一下看法吧！谢谢

MMMIX

回复 23# 赛萌


    11 楼的代码采用的方法我在代码的开头也说了; 代码中也没有使用什么古怪的语法呀. 你啥地方看不懂?

赛萌

回复 24# MMMIX


    恩，我基础太差了，而且我好像都不懂编程思想，
    $group->{$_} = 1 for (@fields, map { $_? keys $_ : () } @group_of{@fields});
    $group_of{$_} = $group for keys $group;
   这两行不太懂

MMMIX

赛萌 发表于 2015-08-18 11:49
回复 24# MMMIX
    $group->{$_} = 1 for (@fields, map { $_? keys $_ : () } @group_of{@fields});

这个展开就是:

my @fields1 = map { $_ ? keys $_ : () } @group_of{@fields};

for (@fields, @fields1) {
    $group->{$_} = 1;
}

    $group_of{$_} = $group for keys $group;

这不就是:

for (keys $group) {
    $group_of{$_} = 1;
}

或者

for (keys %{$group}) {
    $group_of{$_} = 1;
}

都是 Perl 的基本语法呀.

至于, keys 后面根 hash reference, 这个是 Perl 5.14 引入的实验特性, Perl 5.24 准备去掉, 还是不要用了.

赛萌

回复 26# MMMIX


    谢谢