PerlÀ» ÀÌ¿ëÇÑ Mysql Status ¾ò¾î¿À±â
ÃÑ ÆäÀÌÁö ¼ö : 3224

Àüü ÇÔ¼ö/¿ë¾î»çÀü
Facebook Joinc ±×·ì   Joinc QA »çÀÌÆ®



joinc´Â Firefox¿Í chrome¿¡¼­ Å×½ºÆ® Çß½À´Ï´Ù. IE¿¡¼­´Â Å×À̺íÀÌ ±úÁö°Å³ª À̹ÌÁö°¡ º¸ÀÌÁö ¾ÊÀ» ¼ö ÀÖ½À´Ï´Ù. ƯÈ÷ ±¸±Û DocsÀ̹ÌÁöÀÇ °æ¿ì ¿¢¹Úó¸®µÉ ¼ö ÀÖ½À´Ï´Ù.


¼Ò°³

mysqladmin statusÀÇ Á¤º¸¸¦ Àоî¿Í¼­ Ãâ·ÂÇÑ´Ù.

ÄÚµå

#!/usr/bin/perl 
# $mysqladmin status ÀÇ °á°ú¹°  
#  Uptime: 348365  Threads: 6  Questions: 144988 \  
#  Slow queries: 1  Opens: 286  Flush tables: 1 \  
#  Open tables: 64  Queries per second avg: 0.416 
 
$argnum = $#ARGV+1; 
if ($argnum < 3 ) 
{ 
    print "Usage : $0 [host] [id] [password]\n"; 
    exit(1); 
} 
 
my $host = $ARGV[0]; 
my $user = $ARGV[1]; 
my $pass = $ARGV[2]; 
 
open(SQL, "mysqladmin -h $host -u $user --password=$pass stat|") || die "Mysql Status FAILURE\n"; 
@msg = ("uptime=", "threads=", "questions=",  
    "slowquery=", "opens=", "flushtable=",  
    "opentables=", "qps="); 
$msg = ""; 
 
$rtvmsg = "Mysql Status OK|"; 
while($line = <SQL>) 
{ 
    @_ = split /: +/,$line; 
} 
$msg = $rtvmsg; 
for (my $i = 1; $i <= $#_-1; $i++) 
{ 
    @val = split / +/,$_[$i]; 
    $msg .= $msg[$i].$val[0]." "; 
} 
print $msg,"\n"; 
 
exit(0); 
 

°ü·Ã±Û

Cache Error
EmailÀ» ±âÀÔÇϸé, ´ñ±ÛÀÌ ¸ÞÀÏ·Î Àü´ÞµË´Ï´Ù.