Alexander Bel... wrote:
Hi
I use one code for Windows and Unix:
use strict;
use File::Spec;
my $root_dir = "/var/www/"; # for windows "c:\directory\"
my $fle = "new_folder";# created directory
my $chd = 650; # chmod on directory
{
$chd = "0$chd";# correct format it's four figures
Hi
I use one code for Windows and Unix:
use strict;
use File::Spec;
my $root_dir = "/var/www/"; # for windows "c:\directory\"
my $fle = "new_folder"; # created directory
my $chd = 650; # chmod on directory
{
$chd
Title: Creating directories
For Win32 try:
use File::Path; mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711); rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);
Title: Creating directories
Here
is a routine that checks to see if the directory exists before it creates it and
prompts the user with a Tk messagebox. Works on Windows & Unix. Or just use
"mkdir" by itself.
sub
CkCreateDir(@){ my $dir = $_[0];
if (!op
Title: Creating directories
I was wondering if someone knows a good way to create directories for Windows and Linux using Perl.
Thanks
Eric
Eric Hawley
Office of Information Technology
Ohio Department of Natural Resources
Phone: (614) 265-1028
Mailto:Eric.Hawley@dnr.state.oh.us
