форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"вопрос по perl-скрипту и mysql-запросу"

Сообщение от visitor (ok) on 27-Авг-06, 18:49

Здравствуйте. Есть такой скриптик: open (IN1, "<infile.txt"); open (IN2, ">outfile.txt"); while (<IN1>) {   chomp;     $name=$_;   $query="select a.tratra,b.trutru from tbl1 a, tbl2 b where a.tritri=b.tritri and a.tratra='$name'";   $stt = $dbh->prepare($query) || die_error('db',$0,$query,$DBI::errstr);   $stt->execute || die_error('db',$0,$query,$DBI::errstr);   ($name1,$name2)=$stt->fetchrow;   print IN2 "$name1\t$name2\n"; } close IN1; close IN2; Подскажите пож как сделать так чтобы: 1) в файл outfile выводились все записи если для a.tratra в таблице tbl2 есть несколько значений b.trutru. Выводиться только первое значение:( 2) как сделать чтобы в outfile не выводились пустые строки? Т.е. если для a.tratra в таблице tbl2 нет значений b.trutru. Заранее спасибою

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

Сообщения по теме

[Сортировка по времени, UBB]

1. "вопрос по perl-скрипту и mysql-запросу"

Сообщение от konst (??) on 27-Авг-06, 19:43

>Здравствуйте. >Есть такой скриптик: >open (IN1, "<infile.txt"); >open (IN2, ">outfile.txt"); >while (<IN1>) { >  chomp; >  $name=$_; >  $query="select a.tratra,b.trutru from tbl1 a, tbl2 b where a.tritri=b.tritri and >a.tratra='$name'"; >  $stt = $dbh->prepare($query) || die_error('db',$0,$query,$DBI::errstr); >  $stt->execute || die_error('db',$0,$query,$DBI::errstr); >  ($name1,$name2)=$stt->fetchrow; while (($name1,$name2)=$stt->fetchrow) { if ($name1) { print IN2 "$name1\t$name2\n"; } } >  print IN2 "$name1\t$name2\n"; >} >close IN1; >close IN2; > >Подскажите пож как сделать так чтобы: >1) в файл outfile выводились все записи если для a.tratra в таблице >tbl2 есть несколько значений b.trutru. Выводиться только первое значение:( >2) как сделать чтобы в outfile не выводились пустые строки? Т.е. если >для a.tratra в таблице tbl2 нет значений b.trutru. > >Заранее спасибою

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

	2. "вопрос по perl-скрипту и mysql-запросу"
	Сообщение от visitor (ok) on 27-Авг-06, 20:23
	>>Здравствуйте. >>Есть такой скриптик: >>open (IN1, "<infile.txt"); >>open (IN2, ">outfile.txt"); >>while (<IN1>) { >>  chomp; >>  $name=$_; >>  $query="select a.tratra,b.trutru from tbl1 a, tbl2 b where a.tritri=b.tritri and >>a.tratra='$name'"; >>  $stt = $dbh->prepare($query) || die_error('db',$0,$query,$DBI::errstr); >>  $stt->execute || die_error('db',$0,$query,$DBI::errstr); >>  ($name1,$name2)=$stt->fetchrow; >while (($name1,$name2)=$stt->fetchrow) { > if ($name1) { print IN2 "$name1\t$name2\n"; } >} >>  print IN2 "$name1\t$name2\n"; >>} >>close IN1; >>close IN2; >> >>Подскажите пож как сделать так чтобы: >>1) в файл outfile выводились все записи если для a.tratra в таблице >>tbl2 есть несколько значений b.trutru. Выводиться только первое значение:( >>2) как сделать чтобы в outfile не выводились пустые строки? Т.е. если >>для a.tratra в таблице tbl2 нет значений b.trutru. >> >>Заранее спасибою да, все работает, спасибо огромное
	Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]