Changeset 34530

Timestamp:

07/22/09 10:46:17 (4 years ago)

Author:

kazuho

Message:

add --help

Files:

• platform/mysql/mprofile/trunk/mpdump (modified) (2 diffs)

platform/mysql/mprofile/trunk/mpdump

@@ -12 +12 @@
 my $samples = 1000;
 my $interval = 0.1;
+my $help;
 
 GetOptions(
@@ -17 +18 @@
     'interval=f' => \$interval,
     'samples=i'  => \$samples,
+    help         => \$help,
 ) or exit 1;
+
+if ($help) {
+    print << "EOT";
+Usage: $0 options
+Options:
+    --dbi=       database URI (perl DBI style, default:
+                 "$dbi")
+    --interval=  interval between samples (default: 0.1sec)
+    --samples=   number of samples to take (default: 1000, infinite if set
+                 to 0)
+    --help       print this help
+
+EOT
+;
+    exit(0);
+}
 
 my $dbh = DBI->connect($dbi)
     or die DBI->errstr;
 
-for (my $i = 0; $i < $samples; $i++) {
+    for (my $i = 0; $i < $samples; $i++) {
     my $rows = $dbh->selectall_arrayref(
         'SHOW FULL PROCESSLIST',