В общем делаю экспорт данных из аксеса в mySql
$database = "db1.mdb";
$DSN = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=$database;UID=;PWD=;";
$db = new Win32::ODBC($DSN);
$sql = "SELECT Books.* FROM Books Where CodOfBook>0";
$db->Sql($sql);
open(D,">text.txt");
while($db->FetchRow())
{
undef %data;
%data = $db->DataHash();
$book_id=$data{"CodOfBook"};
$showrec=$data{"ShowRec"};
$newrec=$data{"NewRec"};
$name=$data{"NameOfBook"};
$isbn=$data{"ISBNCodOfBook"};
$photo_path=$data{"PhotoPatchOfBook"};
$book_info=$data{"DescOfBook"};
$author=$data{"AutorOfBook"};
$publisher=$data{"PubliserOfBook"};
$year=$data{"YearOfBook"};
$recommend=$data{"RecomOfBook"};
$cover_type=$data{"TypeOfCoverOfBook"};
$price=$data{"PriceUEOfBook"};
$format=$data{"FormatOfBook"};
$pages=$data{"PagesOfBook"};
$tiraz=$data{"TirOfBook"};
$sale_per_book=$data{"SalePersOfBook"};
$sale_notes=$data{"NoteForSaleOfBook"};
$type_exists=$data{"TypeOfExists"};
$type_deliv=$data{"TypeOfDeliv"};
$book_enable=$data{"RequestOfBookEnable"};
if($name gt ""){$name=~s/\\"/\\\\"/g;}
if($book_info gt ""){$book_info=~s/\\"/\\\\"/g;}
if($author gt ""){$author=~s/\\"/\\\\"/g;} #53
if($sale_notes gt ""){$sale_notes=~s/\\"/\\\\"/g;} #54
if($photo_path gt ""){$photo_path=~s/\\"/\\\\"/g;}
$sql1="insert into books (id,showrec,newrec,name,isbn,photo_path,author,publisher,year,recommend,cover_type,price,format,pages,tiraz,sale_per_book,sale_notes,type_exists,type_deliv,book_enable)
values (\\"$book_id\\",\\"$showrec\\",\\"$newrec\\",\\"$name\\",\\"$isbn\\",\\"$photo_path\\",\\"$author\\",\\"$publisher\\",\\"$year\\",\\"$recommend\\",\\"$cover_type\\",\\"$price\\",\\"$format\\",\\"$pages\\",\\"$tiraz\\",\\"$sale_per_book\\",\\"\\",\\"$type_exists\\",\\"$type_deliv\\",\\"$book_enable\\")";
$sql_info="insert into book_info (book_id,book_info) values (\\"$book_id\\",\\"$book_info\\")";
$dbh->do($sql1);
$dbh->do($sql_info);
++$lines;
}
print $lines;
Результат вывода: 10492
При включении сортировки 10370
Хотя в базе их 50284
Мало того:
Use of uninitialized value in string gt at new.cgi line 53.
Use of uninitialized value in string gt at new.cgi line 54.
Use of uninitialized value in concatenation (.) or string at new.cgi line 56.
В чём дело подскажите....
