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

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

"помогите кто может"
Сообщение от freevit (??) on 29-Апр-04, 19:32  (MSK)
всем привет помогите разобраться есть такая проблема #!/usr/bin/perl -w #use strict; use DBI; my $server = 'localhost'; my $db = 'dom'; my $username = '' ; my $password = '' ; my $dbh = DBI->connect("dbi:mysql:$db:$server", $username, $password,  { RaiseError => 1 }); $query="SELECT * FROM domt ORDER BY id DESC LIMIT 0,1"; $sth=$dbh->prepare($query) or die " Erorr: $dbh->errstr\n"; $sth->execute() or die  "Error: $sth->errstr \n"; while (@row = $sth ->fetchrow_array) { print join("\t",@row) ,"\n"; } $rc=$sth->finish; $rc=$dbh->disconnect; в print join дает ошибку use uninitialized value in join or string помогите разобраться
	Рекомендовать в FAQ | Cообщить модератору | Наверх

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

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

1. "помогите кто может"
Сообщение от ACCA (ok) on 06-Май-04, 23:00  (MSK)
>в print join дает ошибку use uninitialized value in join or string >помогите разобраться man perllexwarn Это не ошибка, а предупреждение. Если у тебя в строке есть значения NULL, то в Perl они доходят как undef, которые не нравятся join. Два решения: 1) while (@row = $sth ->fetchrow_array) {     foreach (@row){ $_ = ' ' unless defined $_; }     print join("\t",@row) ,"\n"; } 2) no warnings "uninitialized"; while (@row = $sth ->fetchrow_array) {     print join("\t",@row) ,"\n"; } use warnings;
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

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

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