https://opennet.dev/openforum/vsluhforumID9/7087.html Простенький скрипт:<br><br>#!/usr/bin/perl<br><br>#get load avg for 1;5;10 min<br>open(PROCESS, "uptime &#124;");<br>$avg = &lt;PROCESS&gt;;<br>close(PROCESS);<br><br>$avg =~ s/^.*:\s(\d+\,\d{2}),?\s(\d+\,\d{2}),?\s(\d+\,\d{2})$//;<br><br>print "1min:$1 5min:$2 10min:$3";<br><br>Результат выполнения:<br>1min:0,14 5min:0,13 10min:0,10<br><br>результат отработки команды uptime в системе:<br>13:59 up 1 day, 2:11, 1 user, load averages: 0,14 0,13 0,10<br><br>Как сделать чтобы скрипт выдавал так:<br>1min:0.14 5min:0.13 10min:0.10 - (т.е. вместо запятых чтобы были точки)?<br> https://opennet.dev/openforum/vsluhforumID9/7087.html#10 Tue, 08 Jan 2008 23:22:40 GMT Это не столько сам Perl, сколько перловые регексы. Рекомендую к прочтению man perlretut для основ и man perlre + man perlop в качестве справочника. Если же есть время и хочется овладеть регексами в совершенстве, то тогда O'Reilly "Mastering regular expressions"<br><br> https://opennet.dev/openforum/vsluhforumID9/7087.html#9 Tue, 08 Jan 2008 09:21:49 GMT &gt;У как все запущено. А что будет если локаль другая и разделитель <br>&gt;точка, а не запятая? А если uptime не в $PATH? <br>&gt;Зачем s// вместо //, зачем экранируем запятые, зачем экранируем в замене <br>&gt;и в []? <br>&gt;Простейший работающий вариант <br>&gt;perl -e '$_=`/usr/bin/uptime`;/average.*(\d+)[,.](\d+).*(\d+)[,.](\d+).*(\d+)[,.](\d+)/; print "1 min:$1.$2 5min:$3.$4 15min:$5.$6\n"' <br>&gt;Для большей строгости конечно можно было бы вместо .* использовать разделители выдаваемые <br>&gt;uptime, но я не уверен что они для всех версий одинаковы. <br>&gt;<br><br>ненаю пока perl, а вам angra - РЕСПЕКТ!<br> https://opennet.dev/openforum/vsluhforumID9/7087.html#8 Mon, 07 Jan 2008 18:42:33 GMT У как все запущено. А что будет если локаль другая и разделитель точка, а не запятая? А если uptime не в $PATH? Зачем s// вместо //, зачем экранируем запятые, зачем экранируем в замене и в []?<br>Простейший работающий вариант<br>perl -e '$_=`/usr/bin/uptime`;/average.*(\d+)[,.](\d+).*(\d+)[,.](\d+).*(\d+)[,.](\d+)/; print "1 min:$1.$2 5min:$3.$4 15min:$5.$6\n"'<br>Для большей строгости конечно можно было бы вместо .* использовать разделители выдаваемые uptime, но я не уверен что они для всех версий одинаковы.<br> https://opennet.dev/openforum/vsluhforumID9/7087.html#7 Mon, 07 Jan 2008 18:20:08 GMT Проблемма разрешилась следующим образом, мой uptime выдаёт:<br>23:15 up 2 days, 11:26, 1 user, load averages: 0,06 0,02 0,00<br><br>Взял с другой машины uptime (тоже freebsd) выдаёт:<br>11:16PM up 2 days, 11:28, 1 user, load averages: 0.26, 0.06, 0.02<br><br>как раз под такой вывод и заточен изначальный скприпт.<br><br>ps: осталось теперь понять откуда различия растут, но это уже совсем другая история.<br><br>Всем пасип за ответы.<br> https://opennet.dev/openforum/vsluhforumID9/7087.html#6 Mon, 07 Jan 2008 17:29:52 GMT пришёл к варианту:<br><br>$avg =~ s/,/\./g;<br>$avg =~ s/^.*:\s([\d\.]+)?\s([\d\.]+)?\s([\d\.]+)$//;<br><br>при выполнении скрипта из консоли результат выдаётся нормальный:<br>1min:0.05 5min:0.07 10min:0.04<br><br>а при выполнении скприпта из кактуса, в логе пишется:<br>perl /usr/local/share/cacti/scripts/loadavg_multi.pl, output: 1min:0.01. 5min:0.05. 10min:0.04<br><br>откуда берётся точка после первых значений я ненаю...<br> https://opennet.dev/openforum/vsluhforumID9/7087.html#5 Mon, 07 Jan 2008 12:07:16 GMT <br>&gt;Как сделать чтобы скрипт выдавал так: <br>&gt;1min:0.14 5min:0.13 10min:0.10 - (т.е. вместо запятых чтобы были точки)? <br><br>попробуй вместо \, поставить \. или .<br><br>Не гарантирую но на 80% уверен :)<br><br><br> https://opennet.dev/openforum/vsluhforumID9/7087.html#4 Mon, 07 Jan 2008 07:53:04 GMT $avg =~ s/,/\./g;<br>$avg =~ s/^.*:\s([\d\.]+),\s([\d\.]+),\s([\d\.]+)$//; <br><br>кстати в линуксе лучше читать файлик /proc/loadavg<br> https://opennet.dev/openforum/vsluhforumID9/7087.html#3 Sun, 06 Jan 2008 20:14:40 GMT &gt;не работает, выдаётся просто: <br>&gt;1min: 5min: 10min: <br><br>$avg =~ s/^.*:\s(\d+\,\d{2}).?\s(\d+\,\d{2}).?\s(\d+\,\d{2})$//;<br>а так? %)<br> https://opennet.dev/openforum/vsluhforumID9/7087.html#2 Sun, 06 Jan 2008 19:24:50 GMT &gt;$avg =~ s/^.*:\s(\d+\.\d{2}),?\s(\d+\.\d{2}),?\s(\d+\.\d{2})$//; <br><br>не работает, выдаётся просто:<br>1min: 5min: 10min:<br>