У меня есть таблица в MySQL под названием new_ndnc
, которая содержит пять полей. Каждое поле содержит 10 миллионов строк.Вставка массива в MongoDB
Я прочитал каждое поле в массив, и теперь я хочу вставить весь массив в поле в MongoDB.
Мой код ниже.
#!/usr/bin/perl
use MongoDB;
use MongoDB::OID;
use DBI;
$dbs = 'amrit';
$user = 'root';
$pass = 'walkover';
$dbh = DBI->connect("DBI:mysql:database=$dbs", $user, $pass)
or die "Cannot connect to MySQL server\n";
$conn = MongoDB::Connection->new(
host => 'localhost',
port => 27017,
db_name => 'amrit'
);
$db = $conn->get_database('amrit');
$users = $db->get_collection('hell2');
$abcuid = $dbh->prepare('select Service_Area_Code from new_ndnc');
$abcuid->execute;
@uid;
while (my @row = $abcuid->fetchrow_array()) {
push(@uid, @row);
}
$hh = $dbh->prepare('select phonenumbers from new_ndnc');
$hh->execute;
@route1;
while (my @row = $hh->fetchrow_array()) {
push(@route1, @row);
}
$r4 = $dbh->prepare('select Preferences from new_ndnc');
$r4->execute;
@route4;
while (my @row = $r4->fetchrow_array()) {
push(@route4, @row);
}
$exr4 = $dbh->prepare('select Opstype from new_ndnc');
$exr4->execute;
@exroute4;
while (my @row = $exr4->fetchrow_array()) {
push(@exroute4, @row);
}
$r5 = $dbh->prepare('select PhoneType from new_ndnc');
$r5->execute;
@route5;
while (my @row = $r5->fetchrow_array()) {
push(@route5, @row);
}
$users->insert({
'UserID' => "[@uid]",
'route1' => "[@route1]",
'route4' => "[@route4]",
'route4_extra_bal' => "[@exroute4]",
'route5' => "[@route5]"
}
);
Пожалуйста, всегда * 'использовать строгие' и 'использовать предупреждения' в начале * каждой * Perl-программы, которую вы пишете, особенно если вы просите о ней помощи. – Borodin
@ user2916639 Я запускаю код с использованием #perl -w – user2916639
'use warnings' предпочтительнее' -w' в командной строке, потому что он лексически ограничен, и отдельные категории предупреждений могут быть включены или выключены. И 'use strict' является еще более важным, чем включение предупреждений. – Borodin