Re: showing directories and subdirectories.

2003-03-21 Thread Stefan Lidman
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]/

RE: showing directories and subdirectories.

2003-03-21 Thread Bakken, Luke
> > 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

Re: showing directories and subdirectories.

2003-03-21 Thread R. Joseph Newton
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

Re: showing directories and subdirectories.

2003-03-21 Thread Sudarshan Raghavan
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: >