#!/usr/bin/perl -w use Cwd; my $dir = getcwd; my $dirs = "/opt/DSPKG"; opendir(BIN, $dirs) || die "Can't open $dirs: $!"; my @array = grep { -d "$dirs/$_" } readdir BIN; foreach my $file (@array) { open(MYFILE, ">/tmp/pkgtest") || die "cant open pkgtest: $!"; print "$file\n"; }
In reply to directory listing by muizelaar
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |