Datensätze und Parameter › Datensätze › Einlesen von Betriebssystemwerten in Datensatzvariablen › Beispielskripte für das Einlesen von Betriebssystemwerten in Datensatzvariablen › PerlScript-Beispiel: WinGetInfoPerl-Skript-Operator › Skript (PerlScript)

Skript (PerlScript)

Das Skript erstellt zwei indizierte Felder (HostList und OSList) im Operatordatensatz "WinGetInfoPerl". Das Skript:

• liest die Quelldatei zeilenweise.
• Weist Hostnamen ($host) zu indizierten Werten in aufeinanderfolgenden HostList-Feldern. Die Nummerierung beginnt mit 0 und endet bei der Zahl eins niedriger als die Anzahl der aus der Quelldatei gelesenen Zeilen.
• Weist Betriebssysteme ($opsys) zu indizierten Werten in aufeinanderfolgenden nummerierten OSList-Feldern zu. Die Nummerierung beginnt mit 0 und endet bei der Zahl eins niedriger als die Anzahl der aus der Quelldatei gelesenen Zeilen.

Das Skript füllt die Variable "ARGV" mit den Einträgen im Eingabebereich "Parameter" des aufgerufenen Operators "Skript ausführen" auf. Das Skript weist die Anzahl der gelesenen Zeilen der Operatordatensatzvariable "NumRowsRead" zu. Die Zeile "sleep 30" hält den Operator für 30 Sekunden an, sodass der Anwender die unter dem Speicherort "C2OSVD" erstellten Ordner und Dateien prüfen kann. Die Zeile "sleep 30" wird nicht in ein Produktionsskript aufgenommen.

use strict;
my $filename = "";
print "  sample script to retrieve OS level data into variables within C2O\n\n";
my $numargs = @ARGV;
if ($numargs == 1) {

$filename = shift @ARGV;

} else {

print "enter path and filename to process:\n";
chomp($filename = <STDIN>);

}
my $c2osvd = $ENV{'C2OSVD'};
mkdir $c2osvd;
mkdir $c2osvd. "/HostList";
mkdir $c2osvd. "/OSList";
open HANDLE, $filename or die "ERROR: unable to open $filename: $!\n";
my $counter = 0;
while (<HANDLE>) {

my @fields = split;
my $host = $fields[0];
my $opsys = $fields[1];
my $filename1 = $c2osvd . "/HostList/" . $counter;
open HH, "> $filename1" or die "ERROR: unable to open $filename1: $!\n";
print HH $host;
close HH;
my $filename2 = $c2osvd . "/OSList/" . $counter;
open HH, "> $filename2" or die "ERROR: unable to open $filename2: $!\n";
print HH $opsys;
close HH;
$counter++;

}
my $filename3 = $c2osvd . "/NumRowsRead";
open HH, "> $filename3" or die "ERROR: unable to open $filename3: $!\n";
print HH $counter;
close HH;
close HANDLE;
sleep(30)