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