#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $dbh = DBI->connect("dbi:SQLite:dbname=users.lite","","",
	{PrintError => 1, AutoCommit => 0}) or die "Can't connect";

$dbh->do('DROP TABLE users');
$dbh->do(qq{ CREATE TABLE users
			(user TEXT,
			 site TEXT,
			 type TEXT)
			});

my $sql_fmt = "INSERT INTO users VALUES(?,?,?)";
while(<DATA>) {
    $dbh->do($sql_fmt, {}, /"([^"]+)"/g);
    $dbh->commit if $. % 1_000_000 == 0; # commit every 1,000,000
}

$dbh->commit;
$dbh->disconnect;

__DATA__
user="john" website="www.yahoo.com" type="Entertainment"
user="john" website="www.yahoo.com" type="Entertainment"
user="john" website="www.yahoo.com" type="Entertainment"
user="david" website="www.facebook.com" type="Social Networking"
user="john" website="www.facebook.com" type="Social Networking"
user="mike" website="www.google.com" type="Search Engines"