perl 獲取監控數據(續)

上次的腳本只是將監控的數據展示在終端上，這次增加了一個功能：數據展示在終端的同時，存入到數據庫中

code:

#!/usr/bin/perl -w

use strict;
use utf8;
use LWP::Simple;
use DBI;

my $dsn = 'DBI:mysql:database=monitor;host=localhost;port=3306';
my $dbh = DBI->connect($dsn,'root','test',{PrintError=>0,RaiseError=>1})
                        or die "Can't connect to mysql" . DBI->errstr;

my $table = qq/CREATE TABLE IF NOT EXISTS monitor (
               room char(20) not null,
               in_bytes varchar(100) not null,
               out_bytes varchar(100) not null,
               date timestamp not null
               )
              /;

my $sth = $dbh->prepare($table);
   $sth->execute();
   $sth->finish();

while (1) {
       my $url = shift || "http://xxx.xxx.xxx.xxx";
       my $content = get $url;
       my @url = split /\n/,$content;
       my ( $i,$str ) = ( 0,\@url );
       print scalar localtime,"\n";

       while ( $i < scalar @$str ) {

             if ( @$str[$i++] =~ /杭州機房1|杭州機房2|上海機房1|上海機房2/ ) {
                 binmode STDOUT,'encoding(utf8)';
                 my $room = $&;
                 print STDOUT "$&\n";
                 $i += 16;
                 my ($in) = @$str[$i++] =~ /(?:.*)\>(\S*\s*\S*).*\<\/td\>/;
                 printf '%s',"\tCurrent In: $1\t";
                 $i += 5;
                 my ($out) = @$str[$i++] =~ /(?:.*)\>(\S*\s*\S*).*\<\/td\>/;
                 printf '%s',"Current Out: $1\n\n";
                 my ($sec,$min,$hour,$day,$month,$year) = (localtime(time))[0..5];
                 $month++;$year+=1900;
                 my $date = sprintf "%04d-%02d-%02d %d:%d:%d",$year,$month,$day,$hour,$min,$sec;

                 my $data = qq/INSERT INTO monitor VALUES
                              ("$room","$in","$out","$date")/;
                    $sth = $dbh->do($data);
             }

       }

print '-' x 70,"\n";
sleep 900;

}

$dbh->disconnect();

代碼有些改動，主要是之前的一些寫法不太好。

數據庫中的圖

+--------------------+-------------+------------+---------------------+
| room               | in_bytes    | out_bytes  | date                |
+--------------------+-------------+------------+---------------------+
| xxxx               | 85.9 Mb/s   | 99.5 Mb/s  | 2011-11-04 10:29:49 |
| xxxx               | 14.1 Mb/s   | 80.7 Mb/s  | 2011-11-04 10:29:49 |
| xxxx               | 190.3 Mb/s  | 332.6 Mb/s | 2011-11-04 10:29:49 |
| xxxx               | 8968.4 kb/s | 119.9 Mb/s | 2011-11-04 10:29:49 |
| xxxx               | 384.0 b/s   | 576.0 b/s  | 2011-11-04 10:29:49 |
+--------------------+-------------+------------+---------------------+