0

このスクリプトを作成しました：

   #!/usr/local/bin/perl

#simple export from win-services with current state v. 0.1 

use Win32::Service;

 #hash-code for service reasons
my %statcodeHash = (
     '1' => 'STOPPED',
     '4' => 'RUNNING',
     '7' => 'PAUSED'
);

my %serviceHash;


 #Going to get the data from services and export

Win32::Service::GetServices("", \%serviceHash);

foreach $key(keys %serviceHash){
     my %statusHash;
     Win32::Service::GetStatus("", $serviceHash{$key}, \%statusHash);
     if ($statusHash{"CurrentState"} =~ /[1-7]/){
          print $serviceHash{"$key"} . "THE SERVISE IS " . $statcodeHash{$statusHash{"CurrentState"}} . "\n";



     }
}

scrips が提供するすべてのデータをハード ドライブの .txt ファイルに保存するにはどうすればよいですか?

スクリプトは、システム内のサービスと、実行されているサービスと実行されていないサービスを示します。これを.txtファイルにエクスポートしたい

ありがとう

4

1 に答える 1

0

STDOUT に出力する代わりに、書き込み/追加用にファイルに出力する必要があります。

# initialize outside foreach loop, open file for appending
open MYFILE, '>>', '/path/to/my/txtfile' or die("error writing to file $!");

# print to file
print MYFILE $serviceHash{"$key"} . "THE SERVISE IS " . $statcodeHash{$statusHash{"CurrentState"}} . "\n";

perldoc のその他のドキュメント

perldoc -f open
perldoc -f print
于 2013-04-26T08:32:55.640 に答える