Ray, 

You should not expect the community to write entire stuff for you, the community is for programmers to help each other with genuine queries, and not give ready made solutions.

No one learns to code over night! It needs hrs of patient efforts, and you ll have to work for yourself.

Being a new bee you should have a look at following sites they have all the information you need w.r.t the project you are working

http://search.cpan.org/~gbarr/perl-ldap-0.33/lib/Net/LDAP.pod

http://www.lc.leidenuniv.nl/awcourse/oracle/network.920/a96579/comtools.htm#632173

http://quark.humbug.org.au/publications/ldap/ldap_tut.html

http://www.faqs.org/rfcs/rfc2849.html (LDIF RFC)

http://www.tizag.com/perlT/perlstrings.php (printing of LDIF)

The above site have all the info you need, now ..be a good boy and do it yourself. :)

Regards,
Yash



-----Original Message-----
From: Jyotishmaan Ray [mailto:jyotishmaan@yahoo.com] 
Sent: Wednesday, August 20, 2008 1:35 AM
To: perl-ldap@perl.org; Peter Karman
Subject: Re: Perl Script Needed To Create The Home Drectories.

Your script is not clear. Please provide step wise solution. I am a new bie in perl.



 

--- On Tue, 8/19/08, Peter Karman <peter@peknet.com> wrote:
From: Peter Karman <peter@peknet.com>
Subject: Re: Perl Script Needed To Create The Home Drectories.
To: jyotishmaan@yahoo.com, "perl-ldap@perl.org" <perl-ldap@perl.org>
Date: Tuesday, August 19, 2008, 10:46 PM


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/