Цитата(Quicksand @ 22.6.2006, 09:53  ) |
| (@mysqladminpaths = ( "/usr/bin/mysqladmin", "/usr/bin/mysqladmin" );) |
Это не запрос, это просто инициализируется массив.
| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Perl: Системное программирование > Помогите пожалуйста со скриптом |
| Автор: Quicksand 22.6.2006, 12:53 |
| Здравствуйте. Есть мониторинг mrtg который выдает рисунки, загрузки канала, статистики загрузки свопа и мема а так же цпу, но вот одна проблема, надо к этому делу прикрутить mysql, нашел скрипт на офф сайте, поставил, не пашет, дает ошибку при конекте к mysqladmin так как нужен пароль, пароль естественно есть, но как сделать так что бы он его вбивал и получал статистику... привожу пример скрипта. use strict; use Socket; my($datafile, $host, $port, @mysqladminpaths, $oldquest, $oldthread, $quest, $thread, $day,$hour,$min,$sec, $newquest, $newthread, $uptime); # Adjust this to your own database/mysql server. Uses local mysqladmin status # if set to 'localhost' $host = shift || "localhost"; $port = shift || 7257; $datafile = "/tmp/mysqlstatus.old"; @mysqladminpaths = ( "/usr/bin/mysqladmin", "/usr/bin/mysqladmin" ); # get the old stats from the $datafile ... ($oldquest, $oldthread) = getOldStats($datafile); # get the new stats from $host - $port ($newquest, $newthread, $uptime) = getStats($host, $port); # transfering time string to a nice time stamp ... if ($uptime > 0) { $day = int($uptime / 86400); $hour = int(($uptime - ($day * 86400)) / 3600); $min = int(($uptime - ($day*86400) - ($hour*3600))/60); $sec = int($uptime - ($day*86400)-($hour*3600)-($min*60)); как видно в строчке номер 10 запрос есть, а как сделать что бы был пароль? (@mysqladminpaths = ( "/usr/bin/mysqladmin", "/usr/bin/mysqladmin" );) точнее что бы вбивался пароль, помогите пожалуйста |
| Автор: korob2001 22.6.2006, 20:28 | ||
Покажи тот участок кода, где ты подключаешься к базе данных.
Это не запрос, это просто инициализируется массив. |