Perl seekdir 函数

• 

  描述

  seekdir 此函数将DIRHANDLE中的当前位置设置为POS。POS的值必须是Telldir先前返回的值。seekdir（）函数类似于Unix seekdir（）系统调用。
• 

  句法

  以下是此函数的简单语法-

  
  seekdir DIRHANDLE, POS
  

  复制
• 

  返回值

  如果失败，此函数返回0，如果成功，则返回1。
• 

  示例

  以下是显示其基本用法的示例代码-

   
  opendir(DIR, "/tmp");
  
  print("Position without read : ", telldir(DIR), "\n");
  
  $dir = readdir(DIR);
  print("Position after one read : ", telldir(DIR), "\n");
  print "$dir\n";
  seekdir(DIR,0);
  
  $dir = readdir(DIR);
  print "$dir\n";
  print("Position after second read : " , telldir(DIR), "\n");
  
  closedir(DIR);
  

  复制

  执行以上代码后，将产生以下结果--

  
  Position without read : 0
  Position after one read : 4
  .
  .
  Position after second read : 4
  

  复制