LMPX.COM |
Home | Linux | Mysql | PHP | XML | ||
|
|
|||
From: Peter Karman Date: Tue Aug 19 11:16:42 2008 Subject: Re: Perl Script Needed To Create The Home Drectories.
On 08/19/2008 11:46 AM, Jyotishmaan Ray wrote: > Dear All, > > I am a new bie in perl. I have to create the home directories of 424 students in a server machine. > > The path of the home directory would be :- > > /mnt/btech/formatted-rollno. > > where formatted-rollno ="s08-1-5-097" > > > And the input file contains all the rollnos of 424 students. > > > > A sample student file of five students is as given below (in the format of uid, MD5 password) as below:- > > > > s08-1-5-093 > s08-1-5-094 > s08-1-5-095 > s08-1-5-096 > s08-1-5-097 > > For example, the home directories, for the rollno, s08-1-5-097, would be this-> > > > /mnt/btech/s08-1-5-097 > > All the student should have read/write and execute permissions in their home directories. > > > Can any one provide the perl script for doing this ? > look at the Path::Class module on CPAN. Should make it easy. use strict; # always use Path::Class; my $base = '/mnt/btech'; foreach my $rollno (@get_my_list_of_rollnos) { my $path = dir( $base, $rollno ); $path->mkpath(1); chown $path, $rollno or die "can't chown $path $rollno: $!"; # ^^ probably needs to run as root to work } and next time, ask on the right list for this kind of thing. This is not an LDAP question. -- Peter Karman . peter@peknet.com . http://peknet.com/
| Navigate in group perl.ldap at sever nntp.perl.org | |
| Previous | Next |
| © No Copyright You are free to use Anything |
Site Maintained by PHP Developer
Powered By PHP Consultants |