Rewind dir : telldir « File « Perl

1. Perl
2. File
3. telldir

Rewind dir

    


#! /usr/local/bin/perl
use Cwd;
$dir = cwd;
print "dir=> $dir\n";

opendir(THISDIR, "$dir");
@dirList = <THISDIR>;
print "OPEN @dirList\n";

$loc = telldir THISDIR;
print "Before Rewind Loc ==> $loc\n";

rewinddir THISDIR;
$loc = telldir THISDIR;
print "After Rewind Loc ==> $loc\n";
rewinddir THISDIR;

   
    
    
    
  

Related examples in the same category