配列をマージしたり差分をとったりしたいとよく思うのでメモ。 ハッシュ便利だなあ。 和集合 A∪B my @array_a = qw/1 2 3 4 5/; my @array_b = qw/3 4 5 6 7/; my %cnt = (); my @array = grep { ++$cnt{$_} == 1 } (@array_a, @array_b); 積集合 A∩B my @array_a = qw/1 2 3 4 5/; my @array_b = qw/

コメント行を除きたい時が多々あるので、その方法をメモ。 #!/usr/bin/perl use strict; use warnings; use Data::Dumper; open(my $fh, '<', '/tmp/hoge') or die "$!"; my @lines = <$fh>; close($fh) or die "$!"; @lines = map { $_ =~ s/\r//; $_ =~ s/\n//; $_ } @lines; print "[before]\n"; print