chordStats.pl 程序
一般策略
節(jié)拍、音色、和音以及通知速率的選擇綜合了藝術(shù)與科學(xué)兩個(gè)方面，而這種綜合的方式已經(jīng)遠(yuǎn)遠(yuǎn)超出本文討論范圍。為了簡(jiǎn)化開(kāi)發(fā)及信息分發(fā)，此程序的主要特性包括 1-Hz 刷新率和基于八度音階的通知標(biāo)準(zhǔn)。vmstat 程序?yàn)榛鞠到y(tǒng)數(shù)據(jù)提供了一個(gè)簡(jiǎn)單接口，而且創(chuàng)建了一個(gè) 1-Hz “心跳” 并以它為節(jié)拍。
清單 2. 主程序參數(shù)
#!/usr/bin/perl -w
# chordStats.pl - create music based on system status
use strict;
my $vmStatCmd = "vmstat 1"; # run vmstat every second
my $totalPackets = 0; # total of packets received and transmitted
my $lineCount = 0; # count number of vmstat output lines
my %fields = ();
my $count = 0;
# the field headers in the vmstat output, useful for referring to them by name
for( split " ", "r b swpd free buff cache si so bi bo in cs us sy id wa" ){
$fields{$_} = $count;
$count++;
}
# buffering output must be turned off because fluidsynth does not appear to
# accept buffered input from stdin
$|=1;
|
在腳本的開(kāi)頭，我們選擇 vmstat 1 作為要被執(zhí)行的命令并且每秒讀取一次。為各次讀取之間記錄的信息包總數(shù)設(shè)置一個(gè)變量并記錄從 vmstat 程序中讀取到的行數(shù)，接下來(lái)定義標(biāo)題。每秒都會(huì)從 vmstat 程序中讀取字段標(biāo)題 bi（磁盤(pán)塊入）、bo（磁盤(pán)塊出）和 us（用戶 CPU 使用量）。字段散列允許稍后在程序中按名稱引用這些數(shù)據(jù)字段。請(qǐng)注意 $|=1 行。如果刪除此行，您將會(huì)遇到一些難以診斷的行為；還需要為緩沖而頭疼！
清單 3. 主程序開(kāi)始
# open the vmstat program to read from
open( INPIPE, "$vmStatCmd |" ) || die "can't read from vmstat";
# wait while the fluidsynth program opens
sleep(3);
while(my $statLine = <INPIPE> ){
# ignore the header display, and the fieldname display lines
if( $statLine !~ /\-\-\-\-/ && $statLine !~ /swpd/ ){
# the first line of vmstat data is a recent average, ignore
if( $lineCount > 2 ){
|
代碼的下一部分將通過(guò) vmstat 命令創(chuàng)建一個(gè)管道，程序?qū)⒃谄渲忻棵胱x取一次數(shù)據(jù)。等待幾秒待 FluidSynth 程序激活后，即可開(kāi)始處理 vmstat 輸出。輸出的前三行將被忽略，因?yàn)樗鼈兎謩e包含分隔符、標(biāo)題信息和最新的平均值。
清單 4. 主程序通知處理
# reset wavetable synthesis
if( $totalTime % 10 == 0 ){ print "reset\n" }
$totalTime ++;
my $note = "";
my @currLine = split " ", $statLine;
# user cpu usage
$note = $currLine[ $fields{us} ];
sendNote( $note, 14, 12, 96 );
# conglomerate disk i/o fields to one stat
$note = $currLine[ $fields{bi} ] + $currLine[ $fields{bo} ];
if( $note > 1000 ){ $note = 1000; }
$note = $note/10;
sendNote( $note, 8, 12, 96 );
# network throughput on eth0
$note = getNetworkStats();
sendNote( $note, 5, 12, 84 );
}#if not first 3 lines to ignore
}#if not a header line
$lineCount++;
}#while reading the pipe
close(INPIPE);
|
