Должен ли я зафиксировать в следующем коде?

Question

Мой код:

122 # 
123 my $hfpDbh = undef; 
124 unless (
125   $hfpDbh = DBI->connect("dbi:Pg:host=....")#removed something 
128) { 
129   Log(ERROR, ""); 
130   Exit(1) 
131 } 
132 $hfpDbh->{RaiseError} = 1; 
133 $hfpDbh->{AutoCommit} = 0; 
134 
135 (my $mydata, $msg) = load_data($hfpDbh, $DatFile); 
136 unless (defined($mydata)) 
137 { 
138   Log(INFO, "Calling exit...2"); 
139 } 
140 #$hfpDbh->disconnect(); 
141 Exit(0); 
142 Log(INFO, "Calling exit...4"); 
143 
144 
145 sub load_data 
146 { 
147   my ($dbh, $DatFile) = @_; 
148   my $msg = ''; 
149   unless ($dbh) { 
150     $msg = 'cannot load data, no DB handle'; 
151     Log(ERROR, $msg); 
152   } 
153   Log(INFO, "Call load_data..."); 
154   my $q = "SELECT ip as ip FROM rules WHERE active = 'true' AND isGood = 'true';"; 
155   my $stmt = undef; 
156   unless ($stmt = $dbh->prepare($q)) { 
157     $msg = "unable to prepare SQL query: $q"; 
158     Log(ERROR, $msg); 
159   } 
160 
161   eval { $stmt->execute() }; 
162   if ($@) { 
163     $msg = "failed to execute SQL query: $@"; 
164     Log(ERROR, $msg); 
165   } 
166 
167   my $data = {}; 
168   while (my $row = $stmt->fetchrow_hashref()) { 
169     #Log(INFO, "testing row"); 
170   } 
171   $stmt->finish(); 
172   return $data, $msg; 
173 } 

Это предупреждение:

Issuing rollback() due to DESTROY without explicit disconnect() of DBD::Pg::db handle 

Если добавить "$ dbh-> коммит()" после того, как линия 171, выше предупреждают исчез.

Если после строки 171 не было добавлено «$ dbh-> commit()», вызывается «$ hfpDbh-> disconnect();» в строке 140 вышеупомянутое предупреждение также исчезло.

Мой вопрос: Предупреждение означает, что есть незафиксированные транзакции? Вот почему мне нужно зафиксировать или отключить явно, чтобы исправить предупреждение. Но в коде есть только операция SELECT. Что мне не хватает?

Спасибо.

Answer 1

• Поскольку вы не изменяете базы данных вообще, вам не нужно активировать операции, так что не AutoCommit к нулю. Таким образом, нет необходимости вызывать commit в любом месте либо, и база данных будет автоматически отключается, когда ручка выходит из dcope

• Поскольку вы сами обработки ошибок вы не должны установить RaiseError к 1. Это приведет к тому, программа немедленно умирает, если возникнет какая-либо ошибка, и ваш собственный код обработки не будет выполнен.

• Нет необходимости звонить finish. Здесь не будет никакого вреда, но это также бессмысленно и почти никогда не понадобится.

Answer 2

Предупреждение означает, что существуют незафиксированные транзакции?

Существует несовершенную сделка, так как вы запросили для сделок, которые будут использоваться, но предупреждение фактически уведомляет вас о том, что откат был выполнен в неявном виде. Это говорит об этом, потому что это может привести к потере информации. Очевидно, что это не приведет к потере информации в этом случае, но проверка недостаточно умна, чтобы понять это.

Что мне не хватает?

$hfpDbh->disconnect(); или $hfpDbh->rollback();