Re: Creating a directory tree

[Philip Newton]

Carl Campbell wrote:
 $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);

This creates a six directories under drive C's current directory: TEST1 and
TEST1FOLDER1 to TEST1FOLDER5 (since "\F" eq "F"; escaping F returns an F).

If you had used lowercase, it would be even more fun; the directories would
be tabest1 and tabest1formfeedolder1 to tabest1formfeedolder5
(since "\f" is a formfeed character, also known as ^L or Ctrl-L or "\cL").

Moral of the story: in double-quoted strings, use double backslashes (e.g.
"C:\\TEST1\\FOLDER5") or, even better, forward slashes ("C:/test1/folder5"),
which work just fine for Perl system calls such as mkdir() or open().

Cheers,
Philip

---
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]

RE: Creating a directory tree

[Ranga]

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]

RE: Creating a directory tree

[Carl Campbell]

$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: [archive@jab.org]
To unsubscribe, forward this message to
 [EMAIL PROTECTED]
For non-automated Mailing List support, send email to  
 [EMAIL PROTECTED]