use strict;
use warnings;
> > sub GetDirList {
> >
> > opendir (D_LIST, $_[0]) or die "Could not open directory $_[0]";
> > while ( defined ($vf = readdir D_LIST) ) {
> >next if $gf =~ /^\.\.?$/; # skip . and ..
> >if (-d "$_[0]/$vf") {
> > $file_list .= "$_[0]";
> > $z="$_[0]/
> > sub GetDirList {
> >
> > opendir (D_LIST, $_[0]) or die "Could not open directory $_[0]";
> > while ( defined ($vf = readdir D_LIST) ) {
> >next if $gf =~ /^\.\.?$/; # skip . and ..
> >if (-d "$_[0]/$vf") {
> > $file_list .= "$_[0]";
> > $z="$_[0]/$vf";
> > GetDirList($z
Christopher M Burger wrote:
> Hello,
>
> I was wondering if anyone had any ideas on how I can get a list of
> directories and subdirectories.
>
> I'm currently trying something like this:
>
> sub GetDirList {
>
> opendir (D_LIST, $_[0]) or die "Could not open directory $_[0]";
> while ( define
On Thu, 20 Mar 2003, Christopher M Burger wrote:
> Hello,
>
> I was wondering if anyone had any ideas on how I can get a list of
> directories and subdirectories.
Take a look at File::Find, comes with the standard distribution
perldoc File::Find
>
> I'm currently trying something like this:
>