Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
(Perl) Скрипт для переноса колонок между таблицами MySQL
|
|||
|---|---|---|---|
|
#18+
Всем привет! Есть две таблицы Mysql: bill49.dopvalues: +-------+----------+-----------+--------------------------------+---------+----------+--------+ | line_id | parent_id | dopfield_id | field_value | admin_id | time | revision | +-------+----------+-----------+--------------------------------+---------+----------+--------+ bill.data0: +----+----+------------+------------+-----------+-------------+-----------------------+--------------+ | id | uid | _adr_street | _adr_house | _adr_room | _adr_telefon | _mac | _adr_comment | +----+----+------------+------------+-----------+-------------+-----------------------+--------------+ Есть задача перенести из базы MySQL bill49 таблицы dopvalues с колонки field_value выбрать данные где dopfield_id=4, в базу bill в таблицу data0 в колонку _mac, но таким образом, чтобы данные относительно parent_id первой таблицы соответствовали uid второй. Нашел похожий скрипт и слегка переделал, но опыта особого нет, и делает он не то что мне нужно: #!/usr/bin/perl use DBI; my $dsn = 'DBI:mysql:bill:localhost'; my $db_user_name = 'root'; my $db_password = 'hardpass'; my ($uid, $mac, $x); my $dbh = DBI->connect($dsn, $db_user_name, $db_password); $x=0; while($x<574) { my $sth = $dbh->prepare(qq{ SELECT parent_id, field_value from bill49.dopvalues WHERE parent_id=$x AND dopfield_id=4 AND revision=( SELECT MAX(revision) FROM bill49.dopvalues WHERE parent_id=$x AND dopfield_id=4); }); $sth->execute(); ($uid, $mac) = $sth->fetchrow_array(); $sth->finish(); $dbh->do("INSERT INTO bill.data0 (_mac) values ('$mac')"); print "$x, $mac\n"; $x++; } $dbh->disconnect(); Можете подсказать как сделать, чтобы все благополучно перенеслось? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.04.2015, 13:06 |
|
||
|
(Perl) Скрипт для переноса колонок между таблицами MySQL
|
|||
|---|---|---|---|
|
#18+
bill49.dopvalues: +---------+--------------+----------------+----------------+--------------+------+------------+ | line_id | parent_id | dopfield_id | field_value | admin_id | time | revision | +---------+--------------+----------------+----------------+--------------+------+------------+ bill.data0: +---+----+-----------------+------------------+----------------+------------------+---------+----------------------+ | id | uid | _adr_street | _adr_house | _adr_room | _adr_telefon | _mac | _adr_comment | +---+----+-----------------+------------------+----------------+------------------+---------+----------------------+ ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.04.2015, 13:33 |
|
||
|
|

start [/forum/topic.php?fid=23&msg=38942513&tid=1461828]: |
0ms |
get settings: |
11ms |
get forum list: |
13ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
67ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
38ms |
get tp. blocked users: |
1ms |
| others: | 245ms |
| total: | 395ms |

| 0 / 0 |
