powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl + MySQL) Srochno nuzen Perl Script - Pomogite!
2 сообщений из 2, страница 1 из 1
(Perl + MySQL) Srochno nuzen Perl Script - Pomogite!
    #33618792
hope60
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dobrogo dn’a ili nochi,

Ya rabotau v MySQL 4.0
i mne nado bistro napisat’ script v Perl – no ya tolko pristupau k izucheniu etogo yazika... Ogromnaya pros'ba pomoc' novichku...

Zadachi:
U men’a est Table poxogiy na tbl_Have (smotrite nize) – mne nado vz’at Data iz nego I zapolnit’
2 drugix Table: tbl_need1 and tbl_need2. Toist' nado 2 Scripta.

Zapoln’at’ nado v takom por’adke:
1 Script. Brat’ tolko Pervix 4 rekorda iz kazdogo ID iz tbl_Have I zapoln’at v odnu Kolonku 4erez zap’atuu – smotri obrazec: tbl_need1.
2Script. Vse toze samoe – no zapoln’at v 4 Colonki – smotri obrazec: tbl_need2

Pros’ba – zakomentirovat’ – mne budet neobxodimo modificirovat’ etot script pod moi “Queries”.


Nadeus’ chto kto-to smozet pomoc' napisat scripti dl’a vipolneniya etix zadach – dla znatoka Perl eto ne voz’met mnogo vremeni… a u men'a, novichka, poka ne poluchaet'sa...

Bol'shoe Spasibo,
Nadia


tbl_Have
___________
|id| data |
|_ | ____|
|1 | a |
|1 | b |
|1 | c |
|2 | d |
|2 | e |
|7 | f |
|7 | g |
|7 | h |
|7 | i |
|7 | j |
|7 | k |
|9 | l |
|9 | m |
|3 | n |
______|



tbl_need1 ( tolko pervie 4 rekorda nado ot kazdogo ID - 4erez zapatuu)
_____________
|ID| data |
_____________|
|1 | a,b,c |
|2 | d,e |
|7 | f,g,h,i |
|9 | l, m |
|3 | n |
_____________|


tbl_need2 ( tolko 4 kolonki nado)
____________________________________
|id | data1 | data2 | data3 | data4 |
____________________________________|
|1 | a | b | c | |
|2 | d | e | | |
|7 | f | g | h | i |
|9 | l | m | | |
|3 | n | | | |
____________________________________|
...
Рейтинг: 0 / 0
(Perl + MySQL) Srochno nuzen Perl Script - Pomogite!
    #33619876
oraweb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
$sql = "SELECT id FROM tbl_have GROUP BY id";

while (($id) = $sth->fetchrow_array) {

$sql1 = "SELECT data FROM tbl_have WHERE id=$id";                     # $sql1 - !!! + $sth1 + $dbh1 
    
   while (($data) = $sth->fetchrow_array) {
   $data = $data . ",";
   }
   
   $sql2 = "INSERT INTO tbl_need1 (id, data) VALUES ($id, '$data')";  # $sql2 - !!! + $sth2 + $dbh2 

}

с tbl_need2 примерно также

_______________________________
Как создать свой internet-ресторан?
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl + MySQL) Srochno nuzen Perl Script - Pomogite!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]