※実際のデータは、100項目が50万レコードあるcsvファイルです。
※環境の都合上、データベースは使用できません。
@a = (1, 2, 3, 4, 5)
+) @b = (5, 6, 7, 8, 9)
-----------------------------
@c = (6, 6, 9,12,14)
# perl6ではできるようなのですが・・・
# http://www.kcrt.net/program/perl6/11metaop.html
No.1
58
10
60pt
map 関数を使えばできると思います。
@a = (1, 2, 3, 4, 5);
@b = (5, 6, 7, 8, 9);
@c = map { $_ + shift @b } @a;
これで @c の中身は、(6, 8, 10, 12, 14) になります。
2
2
2
1
1
ありがとうございます。