The seekdir sets the current position for readdir() on the directory filehandle. : seekdir « File « Perl

1. Perl
2. File
3. seekdir

The seekdir sets the current position for readdir() on the directory filehandle.

   

The position is set by the a value returned by telldir().

opendir(DIR, "."); # current directory
while( $myfile=readdir(DIR) ){
    $spot=telldir(DIR);
    if ( "$myfile" eq ".login" ) {
       print "$myfile\n";
       last;
    }
}
rewinddir(DIR);
seekdir(DIR, $spot);
$myfile=readdir(DIR);
print "$myfile\n";

   
    
    
  

Related examples in the same category