Perlについての質問箱 63箱目

[0584 デフォルトの名無しさん 2017/01/24(火) 22:39:27.02 ID:zqYaLnZ2]

>>583
# http://perldoc.perl.org/5.8.9/Scalar/Util.html
use Scalar::Util qw(reftype);

my @WdayArr = reftype($_[2]) eq 'ARRAY' ? @{$_[2]} : qw(Sun Mon Tue Wed Thu Fri Sat);