Perl初心者スレ（マジレス回答）

[0373 デフォルトの名無しさん 2015/06/08(月) 22:51:09.28 ID:tIKF3SUY]

$hoge = "./test/*";
これは文字だからです。(演算子に対するアドレス(ポインタ)ではありません)。

$hoge = "test";
while(<./$hoge/*>)