Here is a snippet of code that will iterate through the directories
and print a table of links.. You can adapt it for your use...I am
working on one that will produce a web page.. I will post it when
ready...
#!/usr/bin/perl
use File::Find;
$x = <STDIN>;
chomp ($x);
finddepth(\&getfile,$x);
print "program completed";
sub getfile {
return if (/\.\./);
print $File::Find::name,"\n";
}
On 24 May 00, at 15:10, Carl Campbell wrote:
From: Carl Campbell <[EMAIL PROTECTED]>
To: "Perl-Win32-Users Mailing List"
<[EMAIL PROTECTED]>
Copies to: Chann An <[EMAIL PROTECTED]>
Subject: RE: Creating a directory tree
Date sent: Wed, 24 May 2000 15:10:38 -0700
Send reply to: Carl Campbell <[EMAIL PROTECTED]>
> $mode = 0777;
> mkdir ("C:\TEST1", $mode);
> mkdir ("C:\TEST1\FOLDER1", $mode);
> mkdir ("C:\TEST1\FOLDER2", $mode);
> mkdir ("C:\TEST1\FOLDER3", $mode);
> mkdir ("C:\TEST1\FOLDER4", $mode);
> mkdir ("C:\TEST1\FOLDER5", $mode);
>
>
> -----Original Message-----
> From: Roee Rubin [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, May 24, 2000 2:45 PM
> To: Perl-Win32-Users Mailing List
> Cc: Chann An
> Subject: Creating a directory tree
>
> Hello,
>
> What is the best method to create a directory tree?
>
> Roee Rubin
> [EMAIL PROTECTED]
>
>
> ---
> You are currently subscribed to perl-win32-users as: [EMAIL PROTECTED]
> To unsubscribe, forward this message to
> [EMAIL PROTECTED]
> For non-automated Mailing List support, send email to
> [EMAIL PROTECTED]
>
> ---
> You are currently subscribed to perl-win32-users as: [EMAIL PROTECTED]
> To unsubscribe, forward this message to
> [EMAIL PROTECTED]
> For non-automated Mailing List support, send email to
> [EMAIL PROTECTED]
>
>
---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
