in reply to Re: how to get the all the subdirectories path from the directory
in thread how to get the all the subdirectories path from the directory
I agree with Gube about using File::Find.
But you don't need to bother writing the code, just use find2perl:
you can use 'find2perl' to convert 'find' syntax to perl code.
But you don't need to bother writing the code, just use find2perl:
find2perl . -type d
will generate the code for you:
#! /usr/bin/perl -w eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; #$running_under_some_shell use strict; use File::Find (); # Set the variable $File::Find::dont_use_nlink if you're using AFS, # since AFS cheats. # for the convenience of &wanted calls, including -eval statements: use vars qw/*name *dir *prune/; *name = *File::Find::name; *dir = *File::Find::dir; *prune = *File::Find::prune; # Traverse desired filesystems File::Find::find({wanted => \&wanted}, '.'); exit; sub wanted { my ($dev,$ino,$mode,$nlink,$uid,$gid); (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) && -d _; }
Enjoy,
Mickey
|
---|
In Section
Seekers of Perl Wisdom