Re: Perl Script Needed Urgently.!!
- From: Jenda@xxxxxxxxxxx (Jenda Krynicky)
- Date: Tue, 19 Aug 2008 18:08:58 +0200
From: "Anirban Adhikary" <anirban.adhikary@xxxxxxxxx>
my($a,$b);
Don't! Variables $a and $b are special. They are used in the
sort{block} and have a bit special scope and declaration rules. You'd
better not use them outside sort{}.
my $uidNumber=2631;
my $gidNumber=2631;
open(FH,"/home/anadhikary/perl/sourcefile");
open(FH1,">>/home/anadhikary/perl/destinationfile");
while(<FH>)
{
($a,$b)=split(/\s+/,$_);
print FH1 "\n";
print FH1 "dn: uid=$a,ou=student,dc=nits,dc=ac,dc=in\n";
print FH1 "uid: $a\n";
print FH1 "cn: $a\n";
print FH1 "objectClass: account\n";
print FH1 "objectClass: posixAccount\n";
print FH1 "objectClass: top\n";
print FH1 "objectClass: shadowAccount\n";
print FH1 "userPassword: {crypt}$b\n";
print FH1 "loginShell: /bin/bash/$a\n";
print FH1 "uidNumber: $uidNumber\n";
print FH1 "gidNumber: $gidNumber\n";
print FH1 "homeDirectory: /mnt/btech/$a\n";
print FH1 "shadowLastChange:13458\n";
print FH1 "shadowMin: 0\n";
print FH1 "shadowMax: 999999\n";
print FH1 "shadowWarning: 7\n";
This is better written as
print FH1 <<"*END*";
dn: uid=$a,ou=student,dc=nits,dc=ac,dc=in
uid: $a
cn: $a
objectClass: account
objectClass: posixAccount
objectClass: top
objectClass: shadowAccount
userPassword: {crypt}$b
loginShell: /bin/bash/$a
uidNumber: $uidNumber
gidNumber: $gidNumber
homeDirectory: /mnt/btech/$a
shadowLastChange:13458
shadowMin: 0
shadowMax: 999999
shadowWarning: 7
*END*
or
print FH1 qq{
dn: uid=$a,ou=student,dc=nits,dc=ac,dc=in
uid: $a
cn: $a
objectClass: account
objectClass: posixAccount
objectClass: top
objectClass: shadowAccount
userPassword: {crypt}$b
loginShell: /bin/bash/$a
uidNumber: $uidNumber
gidNumber: $gidNumber
homeDirectory: /mnt/btech/$a
shadowLastChange:13458
shadowMin: 0
shadowMax: 999999
shadowWarning: 7
};
String literals may span many lines in Perl, use that.
Jenda
===== Jenda@xxxxxxxxxxx === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
.
- References:
- Perl Script Needed Urgently.!!
- From: Jyotishmaan Ray
- Re: Perl Script Needed Urgently.!!
- From: Anirban Adhikary
- Perl Script Needed Urgently.!!
- Prev by Date: Bulk assignment to list of references
- Next by Date: Re: Extracting data from log and reformating
- Previous by thread: Re: Script neeed for creating home directories for each student!!
- Next by thread: Remote command
- Index(es):
Relevant Pages
|
