Perlコーディング初心者質問スレ Part 56

Perlコーディング初心 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

659:nobodyさん
 07/12/19 02:00:39 
$,@,%,\と(),{},[]と->の組み合わせで大抵何とかなる。 
正直スカラーのリファレンスの説明は自身がないけどおよそあってると思う 
my $scalar          = 'abc';                    #スカラー 
my $scalar_ref      = \$scalar;                 #スカラーのリファレンス 
my $anon_scalar_ref = \do {my $anon;};          #微妙に無名じゃないけど 
my @array           = (1,2,3);                  #配列 
my $array_ref       = \@array;                  #配列のリファレンス 
my $anon_array_ref  = [1,2,3];                  #無名配列のリファレンス 
my %hash            = (a=>1,b=>2,c=>3);         #ハッシュ 
my $hash_ref        = \%hash;                   #ハッシュのリファレンス 
my $anon_hash_ref   = {a=>1,b=>2,c=>3};         #無名ハッシュのリファレンス 
my $slacar_object   = bless $scalar_ref => __PACKAGE__; # スカラー使ったオブジェクト 
my $array_object    = bless $array_ref  => __PACKAGE__; # 配列使ったオブジェクト 
my $hash_object     = bless $hash_ref   => __PACKAGE__; # ハッシュ使ったオブジェクト 
#素直に取り出せる 
printf "scalar=%s\n",$scalar; 
printf "array=%s\n",$array[0]; 
printf "scalar=%s\n",$hash{a}; 
#アドレスっぽいのがとれる 
printf "scalar_ref=%s\n",$scalar_ref; 
printf "array_ref=%s\n",$array_ref; 
printf "scalar_ref=%s\n",$hash_ref; 
#リファレンス先の値書き換えたり取り出したり 
$$scalar_ref        = '書き換えちゃった';printf "scalar=%s\n",$$scalar_ref; 
$array_ref->[1]     = '書き換えちゃった';printf "array=%s\n",$array_ref->[1]; 
$hash_ref->{b}      = '書き換えちゃった';printf "scalar=%s\n",$hash_ref->{b}; 
#デリファレンスする(copyが作られる) 
my $scalar2         = ${$scalar_ref}; 
my @array2          = @{$array_ref}; 
my %hash2           = %{$hash_ref};

次ページ