Veri Kümeleri ve Parametreler › Veri Kümeleri › İşletim Sistemi Değerlerini Veri Kümesi Değişkenlerine Okuma › İşletim Sistemi Değerlerini Veri Kümesi Değişkenlerine Okumaya İlişkin Komut Dosyası Örnekleri › PerlScript Örneği: WinGetInfoPerl Komut Dosyası İşleci › Komut Dosyası (PerlScript)

Komut Dosyası (PerlScript)

Komut dosyası WinGetInfoPerl işleç veri kümesinde HostList ve OSList olmak üzere iki dizine alınan alan oluşturur. Komut dosyası:

• Kaynak dosyasını satır satır okur.
• Ana bilgisayar adlarını ($host) sıralı HostList alanlarındaki dizine alınan değerlere atar. Numaralandırma 0 ile başlar ve kaynak dosyasından okunan satır sayısının bir küçük sayısı ile biter.
• İşletim sistemlerini ($opsys) sıralı şekilde numaralandırılmış OSList alanlarındaki dizine alınan değerlere atar. Numaralandırma 0 ile başlar ve kaynak dosyasından okunan satır sayısının bir küçük sayısı ile biter.

Komut dosyası ARGV değişkenini, çağırılan Komut Dosyasını Çalıştır işlecinin Parametre girdi alanı girişleriyle doldurur. Komut dosyası, okuduğu satır sayısını NumRowsRead işleç veri kümesi değişkenine atar. sleep 30 satırı işleci 30 saniye duraklatarak kullanıcının C2OSVD konumunda oluşturulan klasörleri ve dosyaları incelemesini sağlar. sleep 30 satırı bir üretim komut dosyasına dahil edilemez.

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 $host = $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