Perlのmy宣言の方法について質問です。

【レキシカル変数はシンボルテーブルには登録されない】のが理由だけれど
回答をみると誤解しそうな感じ…。

myはレキシカル変数の宣言であり
${'abc' . $date}はシンボルテーブル(例えば%main::)の{'abc' . $date}のスカラーを参照している。

よって作られないものを参照しようとしているので、エラーとなる。

http://d.hatena.ne.jp/hideden/20080125/1201230065

＞【レキシカル変数はシンボルテーブルには登録されない】のが理由だけれど
間違っているなら間違っていると行ってもらって結構だが、
対処も含めて書かないと混乱するだけだね。

#!/usr/bin/perl
use strict;
use warnings;

our $abc0215 = '';
my $date = "0215";
my $data = "hoge";
${'abc' . $date} = $data;
print $abc0215;
ちなみにこんなコードでも、「Can't use string ("abc0215") as a SCALAR ref while "strict refs"」
なんてエラーが出るよ。

#!/usr/bin/perl
#use strict;
use warnings;

our $abc0215 = '';
my $date = "0215";
my $data = "hoge";
${'abc' . $date} = $data;
print $abc0215;
だと「hoge」が出力される。

ソフトリファレンス「だけ」では無いのは確かにそうだが、突っ込みもちょっとはずれてるように思うよ。

レキシカルであることを諦めればuse strict下でも新しいシンボリックリファレンスは

use strict;
use warnings; #Name "main::abc0215" used only once: possible typo at - line 8.という警告を食らうが、動作に問題はない

my $date='0215';
my $data='hoge';

${$main::{'abc'.$date}}=$data; #変数の所在がシンボルテーブル%main::内であると明言
print "$main::abc0215\n"; #hoge

のように作れるし、また

#use strict; #use strictを外す
use warnings;

my $date = "0215";
my $data = "hoge";
my ${'abc' . $date} = $data;

でもエラー
Can't declare scalar dereference in my at test.cgi line n, near "} ="
を食らうから、やはりuse strictは問題の核心とは無関係だと思うけれども。

Can't use string ("abc0215") as a SCALAR ref while "strict refs"は
Can't declare scalar dereference in my at test.cgi line n, near "} ="と
全く違うエラーですし。

それとも私がどこかずれてるのかな…。

＞やはりuse strictは問題の核心とは無関係だと思うけれども。
今のところ議論は平行線なのでそれを否定する気は無い。
ただ、間違いを指摘するだけだとじゃあどうするべきかがわからない。

結局のところどうなの？元の意図を実現するには、記述方法が間違っているという主張？

＞結局のところどうなの？

＞＞やはりuse strictは問題の核心とは無関係だと思うけれども。
＞今のところ議論は平行線なのでそれを否定する気は無い。
という答え（もしくは私の指摘の方に誤りがあったらどこか）を聞きたかった、というだけです。


まず
my %abc = ( $date => $data );
を推奨した事には、異論はありません。