We help IT Professionals succeed at work.

Create folder and files in perl

precision
precision asked
on
Medium Priority
429 Views
Last Modified: 2010-03-05
Here is what I am thinking:

I have a program that exists that contains lets say a folder named "1000" and in that folder is 5 small files, 2 php and 3 txt files, very small.  Is it possible to have perl create upon submit a folder in each succession, say next folder name "1001"...then next folder name "1002" and inside each of the those folders is the same 5 small files?

I guess this is called replication.
Comment
Watch Question

CERTIFIED EXPERT
Most Valuable Expert 2014
Top Expert 2015
Commented:
use File::Copy;
@files = map{m#.*/(.*)#}<1000/*>;
for my $d ( 1001..1005 ){
    mkdir $d or warn "$d $!";
    copy "1000/$_","$d/$_" or warn "$d/$_ $!" for @files;
}

Not the solution you were looking for? Getting a personalized solution is easy.

Ask the Experts
Access more of Experts Exchange with a free account
Thanks for using Experts Exchange.

Create a free account to continue.

Limited access with a free account allows you to:

  • View three pieces of content (articles, solutions, posts, and videos)
  • Ask the experts questions (counted toward content limit)
  • Customize your dashboard and profile

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.