scalar() perl_stata scalar_perl substr(31)

   $~ = "OtherPack::NEWNAEM";

表单顶部（Top-of-form）的处理是自动操作的：如果当前页里面没有足够的空间容纳格式化的记录，那么通过写一个进纸符来续该页，这时候在新页上使用一个特殊的表单顶部格式，然后写该记录。在当前页里余下的行数放在变量 $- 里，你可以把它设置为 0 以强迫在下一次 write 的时候使用新的一页。（你可能先得 select 该文件句柄。）缺省时，页顶格式的名字就是文件句柄后面加上 "_TOP"，不过，一个文件句柄的格式可以在你 select 了该句柄以后修改 $~ 变量来修改，或者说：

   use IO::Handle;
   HANDLE->format_top_name("NEWNAME_TOP");

如果没有声明 FILEHANDLE，那么输出就会跑到当前缺省的输出文件句柄，这个文件句柄初始时是STDOUT，但是可以用单参数形式的 select 操作符修改。如果 FILEHANDLE 是一个表达式，那么在运行时计算该表达式以决定实际的 FILEHANDLE。

如果声明的 format 或者当前的页顶 format 并不存在，那么抛出一个例外。

糟糕的是，write 函数不是 read 的逆操作。用 print 做简单的字串输出。如果你找到这个函数的原因是因为你想绕开标准 I/O，参阅 syswrite。

y///

转换操作符（因历史原因，也叫做翻译操作符），也叫做 tr///。参阅第五章。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-28372-31.html