(no subject)
May. 28th, 2007 04:41 pmМда...
bobuk был прав... Perl -- write only язык...
if (@fields) {
$Communiware::DB::errmsg = "'update $table set ".join(",",@fields).
"where item_id=?','".join("','", map {defined($_) ? $_ : '\'undef\''} (@args,$id))."'";
@args = map {undef($_) if defined($_) && $_ eq ''; $_} @args;
$dbh->do("update $table set ".join(",",@fields)." where
item_id=?",{},@args,$id) or die "No such item";
}
Что имел в виду автор -- не понимаю... А придется...
if (@fields) {
$Communiware::DB::errmsg = "'update $table set ".join(",",@fields).
"where item_id=?','".join("','", map {defined($_) ? $_ : '\'undef\''} (@args,$id))."'";
@args = map {undef($_) if defined($_) && $_ eq ''; $_} @args;
$dbh->do("update $table set ".join(",",@fields)." where
item_id=?",{},@args,$id) or die "No such item";
}
Что имел в виду автор -- не понимаю... А придется...