my $l = list();
my $a = array();
print $l."\n";
print $a."\n";
sub list {
return (qw/hoge fuga piyo/);
}
sub array {
my @ret = (qw/hoge fuga piyo/);
return @ret;
}
piyo
3
More than 5 years have passed since last update.
my $l = list();
my $a = array();
print $l."\n";
print $a."\n";
sub list {
return (qw/hoge fuga piyo/);
}
sub array {
my @ret = (qw/hoge fuga piyo/);
return @ret;
}
piyo
3
Register as a new user and use Qiita more conveniently