version 1.40, 2004/01/19 19:42:04
|
version 1.42, 2006/09/25 00:09:43
|
Line 281 MAIN:
|
Line 281 MAIN:
|
|
|
my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") |
my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") |
or die "Can't connect to DB chgk\n"; |
or die "Can't connect to DB chgk\n"; |
|
if ($dbh->get_info( 18 )=~/^(5|(4.1))/) {$dbh->do("SET NAMES 'koi8r'");} |
my @sources; |
my @sources; |
open UNSORTED, ">$unsortedname"; |
open UNSORTED, ">$unsortedname"; |
while ($source = shift) { |
while ($source = shift) { |