<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Dir structure</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1255">
<META content="MSHTML 6.00.2712.300" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#e0e0e0>
<DIV><FONT face=Arial size=2>The shell command "tree" could help 
you.</FONT></DIV>
<DIV><FONT face=Arial size=2>There's File::Find like Gabor pointed out, and my 
very own MP3 file lister, which could be adapted for your need:</FONT></DIV>
<DIV><FONT face=Arial size=2>#!/bin/perl -w<BR>use CGI qw(:all);<BR>use 
strict;<BR>print header;</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>my $mp3dir="/home/nimster/music/"; #change this to 
your filedir<BR>my @subs=&amp;findfiles($mp3dir); </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>sub findfiles {<BR>&nbsp; my 
($currdir)=@_;<BR>&nbsp; opendir(MP3ROOTDIR, $currdir);<BR>&nbsp;&nbsp;&nbsp; my 
@allfiles=grep(!/^\.\.?$/, readdir MP3ROOTDIR);<BR>&nbsp; 
closedir(MP3ROOTDIR);<BR>&nbsp; <BR>&nbsp; my @subdirs=grep(!/.*\..*/, 
@allfiles);<BR>&nbsp; my @rootfiles=grep(/.*\.mp3/i, @allfiles); #change 
extension to whatever you want...<BR>&nbsp; $currdir=~/^.*\\(music.*)$/; my 
$pathdir=$1; #this just beautifies the output a bit<BR>&nbsp; print 
"&lt;h1&gt;$1&lt;/h1&gt;";</FONT></DIV><FONT face=Arial size=2>
<DIV><BR>&nbsp; foreach (@rootfiles) {<BR>&nbsp;&nbsp;&nbsp; my $file=substr($_, 
0, -4); #cuts the .mp3 extension...<BR>&nbsp;&nbsp;&nbsp; print "&lt;A 
href=\"$pathdir\\$_\"&gt; $file &lt;\/a&gt; &lt;BR&gt;"; #prints them as 
links<BR>&nbsp; }<BR>&nbsp; print "&lt;BR&gt;";<BR>&nbsp; foreach (@subdirs) 
{<BR>&nbsp;&nbsp;&nbsp; &amp;findfiles("$currdir\\$_"); <BR>&nbsp; }<BR>&nbsp; 
return @subdirs;<BR>}</DIV>
<DIV>&nbsp;</DIV>
<DIV>-Nimster</FONT></DIV>
<BLOCKQUOTE dir=ltr 
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV 
  style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B> 
  <A title=yaron.golan@SeabridgeNetworks.com 
  href="mailto:yaron.golan@SeabridgeNetworks.com">Yaron Golan</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>To:</B> <A title=perl@perl.org.il 
  href="mailto:'perl@perl.org.il'">'perl@perl.org.il'</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>Sent:</B> Monday, January 28, 2002 12:20 
  PM</DIV>
  <DIV style="FONT: 10pt arial"><B>Subject:</B> [Perl] Dir structure</DIV>
  <DIV><BR></DIV>
  <P><FONT face=Arial size=2>Hi all,</FONT> <BR><FONT face=Arial size=2>Do you 
  know (or have) where can I find a script that gets a root directory and prints 
  its directory structure under it?</FONT> </P>
  <P><FONT face=Arial size=2>Thanks in advance,</FONT> <BR><FONT face=Arial 
  size=2>YG</FONT> </P></BLOCKQUOTE></BODY></HTML>