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

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"perl + mysql получаю данные но вот вопрос?"
Сообщение от toshikstar (??) on 04-Янв-05, 18:11  (MSK)
Доброй всем сети, возникла проблемка, писал себе, писал и вдруг такая бяка вроде все стоит все выполняется, а вывожу данные пустота. Коннект к БД есть запрос выполняется все разбирается и даже матрица получается того размера который должен быть но в элементах пустота? подскажите где могут быть грабли? в perl 5.005   ____ обыкновенный код ____ #! /bin/usr/perl # use DBI; require 'newip.conf'; # if (defined($host)) {print $host . "\n";} if (defined($namedb)) {print $namedb . "\n";} if (defined($userdb)) {print $userdb . "\n";} if (defined($password)) {print $password . "\n";} # # my $query; my $rows; my $dbh = DBI->connect("DBI:mysql:$namedb:$host:$port",$userdb,$password); my $query = "SELECT * FROM ipmac"; my $sth = $dbh->prepare($query) or die "error prepere $query:" . $dbh->errstr . "\n"; my $n = $sth->execute() or die "no execute $query:" . $dbh->errstr . "\n"; while (@rows = $sth ->fetchrow_array) { my $i; for $i (0..($sth ->{NUM_OF_FIELDS}-1)) { print "[" . @row[$i] . "]"; }; print "\n"; }; $sth ->finish; $dbh->disconnect(); ____типа результат_____ natan# perl prog2.pl localhost newip root natan [][][][][][][] [][][][][][][] [][][][][][][] [][][][][][][] [][][][][][][]
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

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

1. "perl + mysql получаю данные но вот вопрос?"
Сообщение от chip (ok) on 04-Янв-05, 18:38  (MSK)
>print "[" . @row[$i] . "]";              ^^^^^^^^ print "[" . $row[$i] . "]";
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "perl + mysql получаю данные но вот вопрос?"
	Сообщение от chip (ok) on 04-Янв-05, 18:55  (MSK)
	>>print "[" . @row[$i] . "]"; >             > ^^^^^^^^ > >print "[" . $row[$i] . "]"; даже более того $rows[$i] (на конце s)
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "perl + mysql получаю данные но вот вопрос?"
	Сообщение от toshikstar (??) on 05-Янв-05, 09:40  (MSK)
	>>>print "[" . @row[$i] . "]"; >>             >> ^^^^^^^^ >> >>print "[" . $row[$i] . "]"; > >даже более того $rows[$i] (на конце s) Хы да блин ну я и косипора... спасибо за help... =) хорошых выходных
		Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "perl + mysql получаю данные но вот вопрос?"
Сообщение от ACCA (ok) on 05-Янв-05, 01:20  (MSK)
#! /bin/usr/perl -w # use strict; use DBI; [...] my @rows; [...] while (@rows = $sth ->fetchrow_array) {     print '[', join('][', @rows), "]\n"; } ----------------- При запуске не должно быть ни одного предупреждения об ошибках.
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.