scalar() perl_stata scalar_perl substr(19)

打开并创建文件用于写，这个文件必须是尚未存在的：

sysopen(FH, $path, O_WRONLY | OEXCL | O_CREAT);

打开一个文件用于附加，该文件必须已经存在：

sysopen(FH, $path, O_WRONLY | O_APPEND);

打开一个文件用于更新，必要时创建该文件：

sysopen(FH, $path, O_RDWR | O_CREAT);

打开一个文件用于更新，该文件必须尚未存在：

sysopen(FH, $path, O_RDWR | O_EXCL | O_CREAT);

打开一个非阻塞的只写文件，但如果该文件不存在则不创建它：

sysopen(FH, $path, O_WRONLY | O_NONBLOCK);

在第三十二章描述的 FileHandle? 模块提供了一套打开文件的面向对象的同义词（以及一点点新的功能）。我们很欢迎你在任何用 open，sysopen，pipe，socket，或者 accept 创建的句柄上调用 FileHandle? 方法（注：实际上是 IO::File 或者 IO::Handle 方法），就算你不用该模块初始化这些句柄也可以。

sysread FILEHANDLE, SCALAR, LENGTH, OFFSET

sysread FILEHANDLE, SCALAR, LENGTH

这个函数试图使用低层系统调用 read(2) 从你声明的 FILEHANDLE 里读取 LENGTH 字节到变量 SCALAR 中。该函数返回读取的字节数量，或者在 EOF 时返回 0。（注：在 Perl 里没有 syseof 函数，但这样是对的，因为 eof 在设备文件（比如说终端）上运转的并不怎么正确。用 sysread 并且检查返回值是否为 0 来判断你是否读完了。）出错时，sysread 函数返回 undef。SCALAR 将会根据实际读取的长度伸缩。如果声明了 OFFSET，那么它指明应该从字串里的哪个位置开始读取字节，这样你就可以在一个用做缓冲区的字串中间读取。要获取使用 OFFSET 的例子，请参阅 syswrite。如果 LENGTH 为负数或者 OFFSET 指向了该字串的外边，那么就会抛出一个例外。

你应该准备处理那些标准 I/O 通常会为你处理的问题（比如中断了的系统调用）。因为它绕开了标准的 I/O，所以不要把 sysread 和其他类型的读取，print ，printf，write，seek，tell，或者 eof 在同一个文件句柄上混合使用，除非你准备承受极其希奇古怪（和/或痛苦）的东西。同样，请注意，如果你从一个包含 Unicode 或者任何其他多字节编码的文件里读取数据，那么缓冲区的边界有可能落在一个字符的中间。

sysseek FILEHANDLE, POSITION, WHENCE

成功时返回新位置，失败时返回 undef。位置零是以特殊字串“0 but true”返回的，该字串可以直接当数字使用而不会导致警告。

system PATHNAME LIST

system LIST

这个函数为你执行任何系统里的程序并返回该程序的退出状态——而不是它的输出。要捕获命令行上的输出，你应该用反勾号或者 qx//。system 函数的运转非常类似 exec，只不过 system 先做一个 fork，然后在 exec 之后等待执行的程序的结束。也就是说它为你运行这个程序并且在它完成之后返回，而 exec 用新的程序代替你运行的程序，所以如果替换成功的话它从不返回。

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