#!/usr/bin/perl
#use Getopt::Long;
use strict;
use File::Find;
use DBI qw(:sql_types);


my @search_result;
# find files
find (\&wanted,".");

#save to database.
foreach (@search_result) {
my @file_stat = stat;
save_data(@file_stat,$_);
}



sub wanted {
        if(/\.pl$/i) {
        push @search_result,$File::Find::name;
        }
}



sub save_data {
my $sql = q(insert into file_stat values(?,?,?,?,?,?,?,?,?,?,?,?,?,?));
my     $dbh = DBI->connect('dbi:ODBC:test','test','test123',{AutoCommit => 1,RaiseError => 1}) or die "error!!\n";
my $sth = $dbh->prepare($sql);
my $count = 1;
foreach (@_) {
         if($count==14) {
         $sth->bind_param(14,$_);
}
else {

         $sth->bind_param($count,$_,SQL_INTEGER);
}
$count ++;
}
$sth->execute;
}