Perl rewinddir 函数

• 

  描述

  rewinddir 此函数将DIRHANDLE指定的目录中的当前位置重置为目录的开头。
• 

  句法

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

  
  rewinddir DIRHANDLE
  

• 

  返回值

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

  示例

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

   
  # Open the current directory
  opendir(DIR, ".");
  
  # Print all of the directory entries.
  print("1st Time: \n");
  map( print("$_ \n") , readdir(DIR));
  print("\n");
  
  # Print message verifying that there are
  # no more directory entries to read.
  print("The last file has already been read!\n\n")
   unless readdir(DIR);
  
  # Go back to the beginning.
  rewinddir(DIR);
  
  # Print all of the directory entries again.
  print("2nd Time: \n");
  map( print("$_ \n") , readdir(DIR));
  print("\n");
  
  closedir(DIR);
  

  当执行上述代码时，它会产生以下结果（在/ tmp目录中）-

  
  1st Time:
  .
  ..
  testdir
  The last file has already been read!
  2nd Time: 
  .
  ..
  testdir