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 ] http://www.ruby-lang.org/ja/man/html/Array.html#compat

こんなんで perl hoge.pl hoge.pl 1 use strict; 2 use warnings; 3 4 my $file_name = '/var/tmp/hoge.pl'; 5 my $LOCK_FILE; 6 7 open( $LOCK_FILE , '>' , $file_name ); 8 9 flock $LOCK_FILE , 6 ; 10 11 system('./hoge2.pl'); 12 13 close( $LOCK_FIL…