- 514 名前：507 [2008/02/22(金) 18:56:36 ]
- >>511>>512>>513
お手数お掛けしてすみません。
私は、いつもphpを使っているので、phpのperl互換の正規表現で色々と試行して、
phpでは正規表現の部分で正常にできました。
どこが動かないのかデバックコードを書いてみました。
----------------------------
#!/usr/bin/perl
open(FILE, "iostat -x |");
print"-";
while (<FILE>) {
if ("/^twed0\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)$/i") {
print "$2\n";
print "$4\n\n\n";
}
print "*";
}
close(FILE);
-------------------------------------
上のスクリプトで実行すると、出力結果が
「-
*
*」(改行つめました)が出力されます。
シェルから、「iostat -x」とたたくと、前述ようにきちんと出力します。
たぶん、if文の使い方が悪いと思うのですが、
どのようにやるのが正しいのでしょうか？多分、初歩的なことかも？
引き続き、宜しくお願いします。お手数お掛けします。
|
 |
