2009-01-14 日記

2009-01-14 (水)

午後は研究室へ．久しぶりにサークル．夕食はターバンカレー．

*[Perl] $(ドル記号)と戦う

Perlの変数の頭の $ が邪魔だと思ったことはあると思います．

sub x:lvalue{$x};

x=10;
printf("x=%d\n",x);

あまりきれいじゃないなぁ．

sub var{
    my ($n)=@_; *$n=sub :lvalue{${$n}};
}

var b;
b()='hello\n';
print　b();

「var 変数名」で宣言できるようにと思ったけど，プロトタイプ宣言が無いので「()」を省略できない…．

sub var{
    my ($n)=@_; *$n=sub :lvalue{${$n}};
}

var b;
sub b:lvalue;
b='hello\n';
print　b;

無理矢理プロトタイプを書いてみる．冗長すぎ…最初のが良いな．