#!usr/bin/perl
use strict;
use DBI;
use Date::WeekOfYear;
use Mail::Sender;

   my $dbh = DBI->connect("DBI:CSV:f_dir=/dbf2csv/")
        or die "Cannot connect: " . $DBI::errstr;
    my $sth = $dbh->prepare("SELECT * from patentes.csv")
        or die "Cannot prepare: " . $dbh->errstr();
    $sth->execute() or die "Cannot execute: " . $sth->errstr();
    while (my $row = $sth->fetch) {
      # print "\n@$row[2]\n";
      # print "\n@$row[1]\n";
      # print "\n@$row[0]\n";
       my @date = localtime(time);

#my $date = sprintf("%4d%2d%2d",1900+$date[5],$date[4],$date[3]);
my $weekNo = WeekOfYear();

# this replaces the spaces with 0's
#$date =~ s/\s/0/g ;

# now we can make a filename
my $filename = 'sem'.$weekNo.@$row[0].'data.csv';
print "\n$filename";

# Now in these part we make the information drop to csv or something like that

my $sql = "SELECT * INTO OUTFILE 'g:/dbf2csv/$filename'
FIELDS TERMINATED BY ','
LINES TERMINATED BY '\r\n' FROM reg501";

# Now we're all set to go

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


}