如何从Perl文件读取数字？

在我的脚本中，我有一个名为$ monthRaed的参数。如何从Perl文件读取数字？

在文件“month.txt”中，有一个数字（3）对应于一个月份。

但是，当我读取文件“month.txt”，并将结果放入$ monthRaed，我得到一个GLOB错误。

这里是我做了什么：

open $MONTH, "+<", "month.txt"; 
$monthRaed = $MONTH;

然后，如果我做了print $monthRaed;，我得到这个错误：GLOB（0xf796c8）

我需要一个号码（一个存储在该文件）与本地时间函数中出现的当前月份进行比较。

2014-03-25 user211435

你可能不应该使用'+ <'开放的模式，因为它是更多的麻烦比它的价值，它从长远来看，可能不会做你想做的事。相反，打印到tmp文件，然后移动文件。 – TLP

我不明白你为什么认为你的代码可以工作。你从哪里得到这些代码？ –

变化：

$monthRaed = $MONTH;

到：

$monthRaed = <$MONTH>;

2014-03-25 13:53:07 toolic

也许增加一个链接到“perldoc -f open”将有助于解释为什么这是需要的，否则它是不明显的。 –

我已经有相关的链接。 – toolic

真的！没有看到 - 欢呼声 –

回答