$/ 为输入记录分隔符,默认为换行符。该变量会影响 Perl对“行”这一概念的理解。其功能类似于 awk 中的 RS变量,在被设置为空字符串时同样会将空白行作为终止标志。(空白行不能含有任何空格或制表符。)
你可以将其设置为含有多个字符的字符串,以匹配多字符的终止标志;也可以设为"undef" 以便一直读到文件结束。
当文件含有连续的空白行时,把它设为"\n\n" 和设为 "" 有少许不同:
设为 "" 会把两个或更多连续的空白行视为单个 空白行;
而设为 "\n\n" 则只是盲目地假定其后输入的字符属于下一段,即使这些字符是换行符也一样。(助记:在引用诗句时会用 /作为行间的分隔。)
local $/; # enable "slurp" mode
local $_ = ; # whole file now here
s/\n[ \t]+/ /g;
切记:$/ 的内容是一个字符串,而不是正则表达式。
将 $/设为整数、存有整数的标量或可转换成整数的标量这些值的引用时,Perl会尝试读入记录而不是行,最大记录长度就是引用的那个整数。
因此这段 代码:
local $/ = \32768; # or \"32768", or \$var_containing_32768
open my $fh, $myfile or die $!;
local $_ = ;
会从 FILE 读取一条不长于 32768字节的记录。如果你不是在读取一个面向记录的文件(或者所用的 OS没有面向记录的文件类型),那很可能每次读取都得到一整块的数据。若某条记录比你所设置的记录长度还大,就会把该记录拆成若干片 返回。
参见 "Newlines" in perlport 以及 $.。
它会改变你读取文件时候,对行的分隔符,一般行都是根据回车分隔,
local $/ = ">" 会根据 > 来分隔行。
自带的全局变量,默认值为“\n". perl中”行“的概念就由$/决定。
{
$data = "this>";
local $/ = ">";
chomp($data);
}
$data的值就是”this".