Perl中的$/
Perl中有很多种特殊变量，就像awk一样，它们用于文本处理。像什么记录输入/输出分隔符之类的。在Perl中，$/意即输入记录分隔符，代表着一个记录的结束和开始。通常我们使用钻石操作符来从文件句柄中读取所需要的数据，默认它每次只读取一行？那么它是如何区分新记录的呢？这就是的$/的作用。当遇到$/所定义的分隔符时，就认为这是一个行的结束。而默认的$/值就是换行符(\n),当然不同系统之间默认的换行符不一样，这点要注意下。
如果你要读取的数据像下面这样：
1
2
%%
3
%%
4
5
%%
6
你将如何按%%所示的分隔符来读取数据呢？我的意思是说，如何把1，2看成是一行，3是另一行，4 和5看成是一行。在我们了解到$/作用之后，你可能已经知道只要改变$/默认值为"%%\n"就行了。恩，就是这样。
但是，这样鲁莽的改变程序的默认的行为是非常的危险的。为了把这种危险缩小到最小范围，我们通常在一个代码中来重定义$/的值。这样它所给我们的影响只会在那个代码块中，像下面这样：
{
$/="%%\n";
....
$/="\n";
}
像你看到的那样，就算是在{}中，我们也保险的恢复了$/默认值，这是一个好习惯。难道不是吗？
如果你认为$/就是这样了，那么非常让你失望了。它还有比较有意思一个用法。让我们看一个需求：如何每次从文件中读取1024字节的数据呢？有过其它背景的程序员们，可能会使用一些文件函数来完成它。但是，我们在使用Perl。它有自己的套路。下面来看看：
{
$/=\1024;
while() {...}
}
我从来不说什么废话，除了在这里之外。{}中的\1024看上去是一个对常量的引用。但把它赋值给$/之后，你就不能这么理解它了，我们得按照Perl套路来思考：它的意思就是每次只读取1024字节的数据。
见多识广的脚本高手们，自然会想到使用local来重定义$/，这确实是非常不错的，也经常被使用。
{
local $/=undef;
$str=;
}
可能 你会抱怨$/=undef这句，因为你知道变量在初始前就是未定义(undef)的，意即这也它的默认行为，但是把它写下来只是为了提醒下自己，这个地方确实要注意下或者当我以后再回来看它时，我就会明白Perl的默认行为了。
我想你应该自己理解下，这代码意味着什么？如果你的猜想是这样的：它会一次性把文件读进变量$str中，那么Perl也是这么做的。你可能不相信，那就证明下吧。
我不再多说了。
页:
[1]