[perl][ruby][compact]
1 use strict; 2 use warnings; 3 use Data::Dumper; 4 5 my @ary = ('hoge', undef, 'page'); 6 7 warn Dumper \@ary; 8 9 # compact 10 warn Dumper [ grep { $_ } @ary ]
1 use strict; 2 use warnings; 3 use Data::Dumper; 4 5 my @ary = ('hoge', undef, 'page'); 6 7 warn Dumper \@ary; 8 9 # compact 10 warn Dumper [ grep { $_ } @ary ]