scalar() perl_stata scalar_perl substr(21)

你必须准备处理标准 I/O 通常会为你处理的问题，比如部分写。因为 syswrite 绕开了 C 标准 I/O 库，所以不要把它的调用和读（除了 sysread 以外），写（象 print，printf，或者 write），或者其他 stdio 函数，比如 seek，tell，或者 eof 混合在一起用，除非你想自找麻烦。

tell FILEHANDLE

tell

没有 systell 函数，你可以用 sysseek(FH, 0, 1) 来实现同样的功能。参阅 seek 获取一个如何使用 tell 的例子。

telldir DIRHANDLE

tie VARIABLE, CLASSNAME, LIST

此函数把一个变量和一个类绑定在一起，而该类提供了该变量的实现。VARIABLE 是要绑定的变量（标量，数组，或者散列）或者类型团（代表一个文件句柄）。CLASSNAME 是实现一个正确类型的类名字。

任何额外的参数都传递给该类的合适的构造方法，可能是 TIESCALAR，TIEARRAY，TIEHASH 或者TIEHANDLE 之一。（如果没有找到合适的方法，则抛出一个例外。）通常，那些都是可能被传递给象 dbm_open(2) 这样的 C 函数的参数，但是它们的含义是和包相关的。构造器返回的对象随后被tie 函数返回，而如果你想在 CLASSNAME 里访问其他方法，那么这个对象就很有用了。（该对象也可以通过 tied 函数访问。）因此，一个把散列与一个 ISAM 绑定的实现可以提供一些额外的方法用于顺序地跨过一个键字的集合（ISAM 里的“S”就是 sequentially，顺序的意思），因为你典型的 DBM 实现是不能做这些事情的。

象 keys 和 values 这样的函数在和 DBM 这样的大对象一起使用的时候可能返回非常巨大的数值列表。你可能会更愿意使用 each 函数来遍历这样的列表。比如：

   use NDBM_File;
   tie %ALIASES, "NDBM_File", "/etc/aliases", 1, 0
      or die "Can't open aliases: $!\n";
   while (($key, $val) = each %ALIASES) {
      print $key, ' = ', $val, "\n";
   }
   untie %ALIASES;

一个实现散列的类应该提供下列方法：

TIEHASH CLASS, LIST
FETCH SELF, KEY
STORE SELF, KEY, VALUE
DELETE SELF, KEY
CLEAR SELF
EXISTS SELF, KEY
FIRSTKEY SELF
NEXTKEY SELF, LASTKEY
DESTROY SELF

一个实现普通数组的类应该提供下列方法：

    TIEARRAY CLASS, LIST
    FETCH SELF, SUBSCRIPT
    STORE SELF, SUBSCRIPT, VALUE
    FETCHSIZE SELF
    STORESIZE SELF, COUNT
    CLEAR SELF
    PUSH SELF, LIST
    POP SELF
    SHIFT SELF
    UNSHIFT SELF, LIST
    SPLICE SELF, OFFSET, LENGTH, LIST
    EXTEND SELF, COUNT
    DESTROY SELF

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