Помогите со скриптом на Perl

Автор: jfk Дата: 24.10.2003 12:46 вот кусок скрипта на перле :

1. #!/usr/bin/perl
2.
3. $getcpu = `/usr/bin/sar -u 1 10 | grep Average`;
4.
5. $getcpu =~ /^Average:\s+all\s+(\d+)\.\d+\s+\d+\.\d+\s+(\d+)\.\d+\s+\d+\.\d+/;
6.
7. $getcpuusr = $1;
8. $getcpusys = $2;
9.
10. # Print getcpu data for mrtg
11. print $getcpuusr." ";
12. print $getcpusys." ";

По идее после отработки команды в стр.3 получается строчка вида
"Average: all 8,80 0,00 1,10 90,10"
Увы, в перле не силён Грустный поэтому, что происходит в стр.5 для меня тёмный лес..
но знаю, что в переменные $getcpuusr и $getcpusys должны записаться значения 8,80 и 1,10.
Далее их вывод. Казалось бы всё просто , однако после отработки такого скрипта
получаю две пустые строчки на экране вместо указанных значений.

В чём может быть причина ?

Это cpuinfo.pl из ../mrtg/contrib/ .
График загрузки проца посредством MRTG наблюдать хочу Улыбка

ASPLinux 7.3
perl 5.6.1
Re: помогите со скриптом на Perl 24.10.2003 13:08ShaMAN Поменяй строчку
---
3. $getcpu = `/usr/bin/sar -u 1 10 | grep Average`;
---
на
---
3. $getcpu = `LC_ALL=C /usr/bin/sar -u 1 10 | grep Average`;
---
Re: помогите со скриптом на Perl 24.10.2003 14:05jfk заработало Улыбка
Спасибо
RSS-материал