perl - 如何在Perl中祝福一个字符串？

我正在尝试祝福一个字符串变量-在下面的代码中进行了演示。只有当我使用哈希或数组时，Bless才似乎起作用。您可以祝福琴弦吗？如果没有，您能祝福什么？我已经调试了一段时间，任何帮助将不胜感激。 :-)如果我在代码中出错，请告诉我它是什么。

这是一个perl文件。该代码尚未完成，但是它永远不会到达“Page End”语句。所以我不再加长。 $ FileInfo是一个数组定义，用于从文件中读取较早的内容，但是由于语法的原因，此处出现乱码。

这是构建对象参考的电话

$page = new GeneratePages(0);

package GeneratePages;
sub new
{
    my $class = shift;
    my $pageContents = $FileInfo[shift];
    bless $pageContents, $class;
    return $pageContents;
}

最佳答案

Bless仅适用于引用。从perldoc bless:



因此，如果要将字符串用作对象，则应将对其的引用传递给bless:

my $s = "foo"; # $s is a scalar variable
my $o = bless \$s, $class; # $s is now an object in the $class package