#!/usr/bin/perl
#use Mysql;
use DBI;
use DBD::mysql;
# CONFIG VARIABLES
$platform = "mysql";
$database = "MYDATABASE";
$host = "localhost";
$port = "3306";
$user = "MYUSER";
$pw = "MYPASSWORD";
# DATA SOURCE NAME
$dsn = "dbi:mysql:$database:$host:$port";
# PERL DBI CONNECT
$connect = DBI->connect($dsn, $user, $pw);
fetch_db("MYTABLE");
sub fetch_db() {
my($table) = @_;
my $file = $table . ".txt";
open($FH, ">$file") or die("Can't open : $file $!\n");
print "테이블 $table\n";
print $FH "테이블 $table\n";
get_count($table);
print $FH "\n";
print "\n";
print $FH "---END--\n";
close $FH;
}
sub get_count() {
my($table) = @_;
# PREPARE THE QUERY
$query = "select TYPE, CAST(STORE_ID AS UNSIGNED INTEGER), count(*) from $table group by TYPE, CAST(STORE_ID AS UNSIGNED INTEGER)";
$query_handle = $connect->prepare($query);
# EXECUTE THE QUERY
$query_handle->execute();
# BIND TABLE COLUMNS TO VARIABLES
$query_handle->bind_columns(undef, \$id, \$type, \$cnt);
print "* 샵 별 건수\n";
print $FH "* 샵 별 건수\n";
# LOOP THROUGH RESULTS
print "TYPE\tSHOP_ID\tCNT\n";
print $FH "TYPE\tSHOP_ID\tCNT\n";
print "-------\t----\t---\n";
print $FH "-------\t----\t---\n";
while($query_handle->fetch()) {
print "$id\t$type\t$cnt\n";
print $FH "$id\t$type\t$cnt\n";
}
}
