#!perl
#use strict;
#use warnings;
use File::DosGlob 'glob';
use DBI;
use DBD::mysql;
my $dir = "/user/data/";
my @data;

$database = userdata;
$dbh = DBI->connect('dbi:mysql:userdata','root','') or die "Connection Error: $DBI::errstr\n";


chdir $dir;
for my $file (grep {-f} glob '2010-05*') 
{
    open my $fh, '<', $file;
    while (<$fh>)
		{
		
		if (my ($id) = /\bid=(\d+)/)
			{
            push @ids, $id;
			}
		
        if (my ($name) = /\bname=("(.*?)")/i)
			{
            push @names, $name;
			}
			
		if (my ($age) = /\bage=(\d+)/)
			{
            push @ages, $age;
			}
			
		if (my ($add) = /\baddress=("(.*?)")/i)
			{
            push @adds, $add;
			}	
		
		}
$ids1 = join(' ',@ids);
$name1 = join(' ',@names);
$age1 = join('',@ages);
$add1 = join('',@adds);		

$query = "INSERT into `userdata` ( `id`, `name`, `age`, `address`) values ('$id1', '$nam1', '$age1', '$add1')";

$dbh->do($query);

		
}