yagince · June 23, 2013 05:28 · yagince · Jun 23, 2013 · yagince · Jun 23, 2013
diff --git a/q1.pl b/q1.pl
 use 5.012;

 sub my_push {
  my $list_ref = shift;
  my $item = shift;
  push @$list_ref, $item;
 }

 my @orig = (1,2,3);
 my_push \@orig, 10;
 # my_push \(1,2,3), 10; #これはできない　Not an ARRAY reference　たしかに、配列ではなくて、リスト、、だけど。
 say "@orig";
	use 5.012;

	sub my_push {
	my $list_ref = shift;
	my $item = shift;
	push @$list_ref, $item;
	}

	my @orig = (1,2,3);
	my_push \@orig, 10;
	# my_push \(1,2,3), 10; #これはできない　Not an ARRAY reference　たしかに、配列ではなくて、リスト、、だけど。
	say "@orig";
No results found