1 : use Cwd;
2 :
3 : my $dir = getcwd;
4 :
5 : opendir (DIR, $dir) or die $!;
6 : my @dir = readdir DIR;
7 :
8 : foreach my $item (@dir) {
9 : print "$item\n";
10: }
11:
12: closedir DIR;
####
1 : use Cwd;
2 :
3 : my $dir = getcwd;
4 :
5 : opendir (DIR, $dir) or die $!;
6 : my @dir = readdir DIR;
7 : my @perlFiles = grep /\.pl/, readdir DIR;
8 :
9 : foreach my $item (@perlFiles) {
10: print "$item\n";
11: }
12:
13: closedir DIR;
##
##
rewinddir(DIR);
##
##
1 : use Cwd;
2 :
3 : my $dir = getcwd;
4 : my $dirPointer;
5 :
6 : opendir (DIR, $dir) or die $!;
7 : $dirPointer = telldir (DIR);
8 :
9 : my @dir = readdir DIR;
10:
11: seekdir (DIR, $dirPointer);
12:
13: my @perlFiles = grep /\.pl/, readdir DIR;
14:
15: foreach my $item (@perlFiles) {
16: print "$item\n";
17: }
18:
19: closedir DIR;
##
##
1: use Cwd;
2:
3: print getcwd,"\n";
4: chdir("C:\\");
5: print getcwd;