Perl - Skript ausschnitt Lesbarer Coden?

mr_kaktus · 25 Sep. 2006

Hi @all,

ich hab hir mal ein Auschnitt, au meinen Perlskipt:

Code:

while (<USERLIST>){
chomp;
# +++ schreiben in die "LdapAddHost.ldif" +++
print LDAPADDHOSTFILE grep (/^dn:/,$_ . "\n" .
                                    "changetype: modify" . "\n" .
                                    "add: host" . "\n" .
                                    "host: $HOSTNAME" . "\n\n");
}

Die while Schleife liest über ein DateiHeandle USERLIST Zeile für Zeile ein.
Wenn diese Zeile jetzt mit "dn:" Anfängt, dann wird das in einer Datei mittels dem Dateiheandle LDAPADDHOSTFILE geschrieben.
Am schluss wird in etwa so eine Datei erzeugt:

Code:

dn: uid=testuser,ou=users,o=neptun,c=de
changetype: modify
add: host
host: hostname

Jetzt wollt ich mal fragen, ob ich print Zeile etwas anders gestallten könnte bzw. wie ich das machen könnte?

ginka · 25 Sep. 2006

... z.B. so:

Code:

while (<USERLIST>)
{ 
	chomp;
	next if ( !/^dn:/ );
	
	# +++ schreiben in die "LdapAddHost.ldif" +++ 
	print LDAPADDHOSTFILE "$_\n".
		"changetype: modify\n".
		"add: host\n". 
		"host: $HOSTNAME\n\n"; 
}

Gruß
ginka

Perl - Skript ausschnitt Lesbarer Coden?

mr_kaktus

Member

ginka

Member