469,266 Members | 1,768 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,266 developers. It's quick & easy.

Creating new folder in PERL

135 100+
Can someone guide me how to write a code to open a 'new folders' in PERL from a drop down menu.
May 23 '07 #1
8 17130
bartonc
6,596 Expert 4TB
Moved to Perl from Member Intros.
May 23 '07 #2
KevinADC
4,059 Expert 2GB
Can someone guide me how to write a code to open a 'new folders' in PERL from a drop down menu.

What have you tried so far?
May 23 '07 #3
patelxxx
135 100+
The PERL code:

Expand|Select|Wrap|Line Numbers
  1. use Cwd;
  2. $path = getcwd();
  3. $path =~ s/\\/\//sg;
  4. print "Enter the directory name\n";
  5. $dir = <STDIN>;
  6. mkdir($dir);
  7. $new = $path."\/".$dir;
  8. opendir(DIR, $new) || die ("cannot open the path");
  9. mkdir("$new/hai");
  10.  
I'm trying to create a new folder in a 'Drop Down Menu', would I have to use 'JavaScript' to do this too?
May 24 '07 #4
prn
254 Expert 100+
Hi patelxxx,

The code you posted does create a directory ("folder") based on the user's input and then creates another folder inside it called "hai". Is that not what you wanted it to do?

I should point out one, presumably unintended, effect of your current code: if someone runs this code and answers "foo" for the name of the directory to be created, your code as written includes the newline from <STDIN> in the variable $dir. Assuming you don't want the new directory to be called "foo\n" (displayed on my system and probably many others as "foo?") you should write:
Expand|Select|Wrap|Line Numbers
  1. $dir = <STDIN>;
  2. chomp $dir;
  3. mkdir($dir);
where chomp removes the newline from the end of $dir.

Otherwise, what is your question?

You say you're "trying to create a new folder in a 'Drop Down Menu'," What do you mean by that. If you're trying to create a web page that includes a drop-down menu, then it doesn't make sense to create directories in your local filesystem? If you are trying to include a function in a drop-down menu, then something like your current code works for that, but how you include it in what kind of menu is quite unclear. Why are you asking about JavaScript? JavaScript is used within a web page to control web browser activities and is not really supposed to allow your browser to modify your local filesystem. (That would be a terribly bad security hole.)

Overall, I get the feeling that you are trying to do something very different from what your posts actually say you are trying to do. This may be a language problem.

Paul
May 24 '07 #5
patelxxx
135 100+
I have a "Dropdown Menu" on a website (not live yet) where users can select their folders to upload files on to, I would like an option for "New Folder" (i.e. add/creat a new folder) and once this option is selected a "new" folder is created. It's this part I assume is done in JavaScript.

The actual website has actual been written in PERL?
May 24 '07 #6
KevinADC
4,059 Expert 2GB
Maybe this will help get you started:

Expand|Select|Wrap|Line Numbers
  1. use CGI;
  2. use strict;
  3. use warnings;
  4.  
  5. my $q = new CGI;
  6. print $q->header(),$q->start_html();
  7. my $path = 'path/to/some/folder/';
  8. $path =~ s|\|/|g;
  9. my $dir = $q->param('folder');
  10. #vaildate the value of $dir to make sure the form has not been altered
  11. $path.=$dir;
  12. mkdir($path) or die "Unable to create folder: $!";
  13. mkdir("$path/hai") or die "Unable to create folder: $!";
I wouldn't use CWD and getcwd() unless you really know what you are doing. Instead hard code the value of the start directory like I did above. The CGI module is for parsing form data which is what I think you want to do, no javascript need be involved:


http://perldoc.perl.org/CGI.html
May 24 '07 #7
patelxxx
135 100+
Thank you Kevin for your tips. Will give it a try tomorrow morning, when I'm back at work.

cheers

Ravi

(patelxxx)
May 24 '07 #8
Hi Mr.prn,

I have one small query

How to create a Perl script for multiple folders in desktop.
May 21 '16 #9

Post your reply

Sign in to post your reply or Sign up for a free account.

Similar topics

reply views Thread by Aaron Straup Cope | last post: by
15 posts views Thread by David Thielen | last post: by
Kelicula
3 posts views Thread by Kelicula | last post: by
viktorijakup
8 posts views Thread by viktorijakup | last post: by
1 post views Thread by CARIGAR | last post: by
reply views Thread by suresh191 | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.