Ik heb ongeveer 30 AIX-servers en ik wil hun software pakketten om consistent te zijn. AIX biedt een commando naar de lijst van alle relevante informatie over een software pakket in een dubbele aparte lijst - Ik pak dit via ssh en verzamelen in een temp map server_name.log.

Nu, ik ben vast. Ik kan een lijst maken van alle unieke pakketten, maar hoe kan ik dwars door elke server lijst om te zien of de software is geïnstalleerd?

Het voorbeeld hieronder kan helpen verklaren mijn dilema.



File 1

awk: 1.1
sed: 3.2
SSH: 4.1.2

Dossier 2
iets: 1.0.1
awk: 1.1
sed: 3.2

Dossier 3

iets: 1.0.1
awk: 1.1
bgp: 1.0
sed: 3.2

Heeft u een lijst van wat de software moet worden geïnstalleerd?

Mogelijk wilt u Perl of Awk voor het lezen van de versies in een array (Perh hash) en vervolgens aan het einde print ontbreekt pakketten (array sleutels) en verkeerde versies (kernwaarden).

# Ik gebruikte SSH Server1 lslpp-LC> / tmp/lslpp_files/server1.log te maken
# De log-bestanden. Vervolgens heb ik heb een kat van alle log bestanden sorteren op de unieke
# Cat / tmp / lslpp_files / * inloggen | cut-d ":"-f1 | sort-u

#! / usr / bin /perl
@ host \u003d (Server1, Server2, SERVER3);

voor $ host (@ host) (
open (MYINPUTFILE, "</ tmp / lslpp_files / $ host.log");
mijn (@ lijnen) \u003d <MYINPUTFILE>;
foreach $ line (@ lijnen)
(
chomp;
Volgende indien /^#/;
($ PackageName, $ Fileset, $ niveau, $ Staat, $ PTFId, $ FixState, $ Type, $ description, $ DestinationDir, $ Uninstaller, $ MessageCatalog, $ MessageSet, $ MessageNumber, $ Parent, $ Automatisch, $ EFIXLocked, $ InstallPath, $ BuildDate) \u003d split (/ /, $ line);

# print "$ host - $ Fileset - $ Niveau \ n";
$ HoH ($ host) ($ Fileset) \u003d $ niveau;
)
close (MYINPUTFILE);
)
#
# Vergelijken bestand
#
open (COMPFILE, "</ tmp / lslpp_files.final");
mijn (@ complines) \u003d <COMPFILE>;

#
# Print Header
#
print "fileset: server1: Server2: SERVER3 \ n";
foreach $ completen (@ complines)
(
($ Filset, $ Lvl) \u003d split (/ /, $ completen);
print "$ Filset";
voor $ host (@ host) (
print ": $ HoH ($ host) ($ Filset)";
)
print "\ n";
)
close (COMPFILE);