#!/usr/bin/perl

exit(0);
use DBI();
use CGI qw(:standard);

$database="cpuinfo";
$hostname="127.0.0.1";
$port="3306";
$dbuser="root";
$dbpasswd="zopa25703";

$dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";
$dbh = DBI->connect_cached($dsn, $dbuser, $dbpasswd) || die;


open(patt,"<./cpu")||die "error";

while(<patt>)
    {
#	chop($_);
	($name, $rat) = split ('##');
#	print "$mac -- $ven";
	$sth = $dbh->prepare("INSERT INTO cpu (cpuname,rating) VALUES ('$name','$rat')");
        $sth->execute();
    }
close(patt);