2013-10-03から1日間の記事一覧

2013-10-03

perl::empty like php

sub empty { my ( $val_ref ) = @_; #return 1 unless defined $val_ref; unless ( my $ref = ref $val_ref ) { return $val_ref ? 0 : 1; } elsif ( $ref eq 'SCALAR' ) { return $$val_ref ? 0 : 1; } elsif ( $ref eq 'ARRAY' ) { return scalar @{$val_r…