J'ai près de 30 serveurs AIX, et je veux que leurs logiciels pour être compatible. AIX fournit une commande à la liste de toutes les informations pertinentes sur un logiciel dans une liste séparée du côlon - je prends ce par ssh et de recueillir dans un répertoire temporaire server_name.log.

Maintenant, je suis coincé. Je peux créer une liste unique de tous les paquets, mais comment puis-je parcourir à chaque serveur de liste pour voir si le logiciel est installé?

L'exemple ci-dessous permettent d'expliquer mon mai Dilema.



Fichier 1

awk: 1.1
sed: 3.2
ssh: 4.1.2

File 2
quelque chose: 1.0.1
awk: 1.1
sed: 3.2

File 3

quelque chose: 1.0.1
awk: 1.1
bgp: 1.0
sed: 3.2

Avez-vous une liste de ce que le logiciel doit être installé?

Vous pouvez utiliser Perl Awk ou pour lire les versions dans un tableau (Perh hash), puis en fin de print paquets manquants (les clés du tableau) et les mauvaises versions (valeurs-clés).

# J'ai utilisé ssh server1 lslpp-Lc> / tmp/lslpp_files/server1.log à créer
# Les fichiers de log. J'ai ensuite fait un chat de tous les fichiers journaux de tri à l'unique
# Cat / tmp / lslpp_files / * log | cut-d ":"-f1 | sort-u

#! / usr / bin /perl
@ host \u003d (server1, server2, server3);

pour $ host (@ host) (
open (MYINPUTFILE, "</ tmp / lslpp_files / $ host.log");
my (@ lignes) \u003d <MYINPUTFILE>;
foreach $ ligne (@ lignes)
(
chomp;
prochaine si /^#/;
($ PackageName, fileset $, $ Niveau, $ membre, $ PTFId, FixState $, $ type, $ Description $ DestinationDir $, Uninstaller, MessageCatalog $, $ MessageSet, MessageNumber $, $ parent, $ Automatique, EFIXLocked $, $ InstallPath, $ BuildDate) \u003d split (/: /, $ line);

# print "$ host - fileset $ - $ niveau \ n";
$ HoH ($ host)) ($ fileset \u003d $ niveau;
)
close (MYINPUTFILE);
)
#
# Comparer des fichiers
#
open (COMPFILE, "</ tmp / lslpp_files.final");
my (@ Complies) \u003d <COMPFILE>;

#
# Print-tête
#
print "fileset: server1: server2: server3 \ n";
foreach $ complies (@ Complies)
(
($ Filset, $ Lvl) \u003d split (/: /, $ complies);
print "$ Filset";
pour $ host (@ host) (
print "$ HoH ($ host) ($ Filset)";
)
print "\ n";
)
close (COMPFILE);