Perl - 関数 - splice@a_test = ("aa", "bb", "cc", "dd", "ee", "ff", "gg"); @a_ret = splice(@a_test, 5); print "結果 : @a_test\n"; print "削除 : @a_ret\n"; print "\n"; @a_ret = splice(@a_test, 1, 2); print "結果 : @a_test\n"; print "削除 : @a_ret\n"; print "\n"; @a_ret = splice(@a_test, 1, 1, ("hh", "ii")); print "結果 : @a_test\n"; print "削除 : @a_ret\n"; print "追加 : (\"hh\", \"ii\")\n";
