配列のコピー及び printの .と,の挙動の違い

質問

以下、Perlの仕様についてわからないことが２点あります。

1) 配列のコピーは実態をコピーするようですが、参照扱いになるのは引数で与えた時でしょうか？
2) 下の例で@aは　6という個数を返し、@bは 1bcという配列の中身を返します。printの.と,で挙動が変わる理由が知りたいです。

例）
my @a = qw(1 2 3 a b c);
my @b = @a;
splice @b, 1, 3;

print @a . "\n"; # 6
print @b , "\n"; # 1bc

回答No.3

kabaokaba · ベストアンサー

>＞1) 配列のコピーは実態をコピーするようですが、参照扱いになるのは引数で与えた時でしょうか？
>
>いや、引数で渡した場合も参照扱いにはならないと思います。

こういうケースがありますよ．

sub hoge{
$_[0]="changed!";
}

@a=("value0","value2");
$,=" ";
print @a,"\n";# value0 value2
hoge(@a);
print @a,"\n";# changed value2

$_[0]などは実引数の「別名」（実体は同じ）なので，
サブルーチン内で$_[0]などを書き換えるのは
わざとでない限り危険です．

だから，参考書とかでは
サブルーチンの最初に
my $a = shift;
みたいなのがあるわけです．
引数をローカル変数（レキシカルな変数）にコピーしてしまうのです．

一方，@_ は「別名」を要素にもつ配列です．

sub hoge2{
@_=("changed?", "changed?");
}

@a=("value0","value2");
$,=" ";
print @a,"\n";# value0 value2
hoge2(@a);
print @a,"\n";# value0 value2

蛇足ですけども
プロトタイプを使うとまた少し話は別ですが，
そもそもプロトタイプを使うような人なら
混乱するようなことはないでしょう．

sub hoge3(\@){
print $_[0];
@{$_[0]}=("changed?", "changed?");
}

@a=("value0","value2");
$,=" ";
print @a,"\n";# value0 value2
hoge3(@a);
print @a,"\n";# changed? changhed?

回答No.4

g_p_

#2です。
#3さんの指摘を受けまして

>参照扱いになるのは引数で与えた時でしょうか？
”参照扱い”の意味をよく考えずに、
Perlで言うところのリファレンスと勘違いしてました。
>>いや、引数で渡した場合も参照扱いにはならないと思います。
これは撤回した方がよさそうですね。すみません。

>1) 配列のコピーは実態をコピーするようですが、
よく考えたらちょっと気になったので、少し補足させてください。
またしても"実態"の意をうまく理解できていないかも知れませんが…。

my @b = @a;

これは、aと言う名前の配列をコピーして、
bと言う名前の配列を生成していると考えるより、

bと言う名前の配列を生成し、
それにaと言う名前の配列の中身をリストとして代入している。
と考えた方が良いと思います。

my @a = qw(1 2 3 a b c);
my @b = (@a,4,5,6);

とすると、@bには@aをリストコンテキストで評価したリストと
4,5,6をあわせて一つのリストとして@bへ代入します。

print @c # 123abc456

どうでしょうか？

回答No.2

g_p_

こんにちは。

＞1) 配列のコピーは実態をコピーするようですが、参照扱いになるのは引数で与えた時でしょうか？

いや、引数で渡した場合も参照扱いにはならないと思います。

＞2) 下の例で@aは　6という個数を返し、@bは 1bcという配列の中身を返します。printの.と,で挙動が変わる理由が知りたいです。

これは、配列を評価するコンテキストが変わってしまうためだと思われます。

先に回答された方も書いていますが、@a の方は、結合演算子によりスカラーコンテキストで評価されたのでしょう。
また、@b の場合は単に print に引数のリストとして渡されるため、リストコンテキストで評価されたのだと思います。

ちなみに、
＞print @a . "\n"; # 6
こういった書き方が必要なケースが思いつきません。

＞print @b , "\n"; # 1bc
これを配列の数にしたい場合は
print scalar @b , "\n"; # 3
こう書けば良いのでは？
参考になれば幸いです。

回答No.1

ralf124c

挙動が異なるのは最後の「Print」で配列変数と改行コードが「，」(コンマ)で区切られているためです。
その前の行では「．」(ピリオド)の文字結合演算子が使われています。