Set di dati e parametri › Set di dati › Lettura dei valori del sistema operativo nelle variabili del set di dati › Esempi di script per la lettura dei valori del sistema operativo nelle variabili del set di dati › Esempio di PerlScript: WinGetInfoPerl Script Operator › Script (PerlScript)

Script (PerlScript)

Lo script crea due campi indicizzati, HostList e OSList nel set di dati dell'operatore WinGetInfoPerl. Lo script:

• Legge il file sorgente riga per riga.
• Assegna i nomi host ($host) a valori indicizzati in campi HostList sequenziali. La numerazione inizia da 0 e termina con una cifra inferiore di uno rispetto al numero di righe lette dal file sorgente.
• Assegna i sistemi operativi ($opsys) a valori indicizzati in campi OSList numerati in sequenza. La numerazione inizia da 0 e termina con una cifra inferiore di uno rispetto al numero di righe lette dal file sorgente.

Lo script popola la variabile ARGV con le voci dell'area di input Parametri dell'operatore chiamante Esegui script. Lo script assegna il numero di righe lette alla variabile del set di dati dell'operatore NumRowsRead. La riga sleep 30 interrompe l'operatore per 30 secondi così che l'utente possa esaminare le cartelle e i file creati nella posizione C2OSVD. Non includere la riga sleep 30 in uno script di produzione.

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;