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 . [EMAIL PROTECTED] . http://peknet.com/
