回答編集履歴
1
reduce使用例追加
test
CHANGED
|
@@ -25,3 +25,31 @@
|
|
|
25
25
|
もし、複数回ファイルを処理することにパフォーマンス的な問題があるのであれば、
|
|
26
26
|
|
|
27
27
|
現在ある処理を上記の処理と統合する必要があるかと思います。
|
|
28
|
+
|
|
29
|
+
|
|
30
|
+
|
|
31
|
+
---
|
|
32
|
+
|
|
33
|
+
|
|
34
|
+
|
|
35
|
+
現在の処理の差し替えで良さそうなので、現在splitを使っている処理の行を下記のような処理に差し替えればできるかと思います。
|
|
36
|
+
|
|
37
|
+
|
|
38
|
+
|
|
39
|
+
```perl
|
|
40
|
+
|
|
41
|
+
use List::Util qw(reduce);
|
|
42
|
+
|
|
43
|
+
my $new_id = reduce {
|
|
44
|
+
|
|
45
|
+
my $id_a = (split /<>/, $a)[0];
|
|
46
|
+
|
|
47
|
+
my $id_b = (split /<>/, $b)[0];
|
|
48
|
+
|
|
49
|
+
$id_a > $id_b ? $id_a : $id_b;
|
|
50
|
+
|
|
51
|
+
} @PROF;
|
|
52
|
+
|
|
53
|
+
```
|
|
54
|
+
|
|
55
|
+
|