perlデータベースのクエリ結果を再読く方法

Question

私はクエリの結果を2度使いたいと思います。
ポインタを再配置して、最初から2回目の結果を読み始めるにはどうすればよいですか？ （ただ簡単にするためにスクリーニングするための印刷）以下
例：

if ($dbh = DBI->connect("DBI:mysql:database=tng;host=ip", "username", "password")) { 
    $strSQL = "select * from table"; 
    if ($strQuery = $dbh->prepare($strSQL)) { 
     if ($strQuery->execute()) { 
      while (@data = $strQuery->fetchrow_array()) { 
       print $data[0]; 
      } 
      --reposition to top and reread the query result and do something else with the data-- $strQuery->finish; 
     } 
     else { 
      $strMsg = "$strDateTime ERROR -- unable to execute statement: " . $strQuery->errstr . "\n"; 
      print logFile "$strMsg"; 
     } 
    } 
    else { 
     $strMsg = "$strDateTime ERROR -- unable to prepare statement: " . $dbh->errstr . "\n"; 
     print logFile "$strMsg"; 
    } 
    $dbh->disconnect(); 
} 
else { 
    print logFile "$strDateTime ERROR -- unable to connect to iptables database ... " . DBI->errstr . " \n"; 
} 

Answer 1

IOライブラリはファイル全体をメモリにロードして1行ずつ読み込むとは思っていないので、なぜデータベースライブラリから期待していますか？

その他、全く必要ありません。完全な結果を簡単に読み込むことができます。

my $sth = $dbh->prepare($sql); 
my $data = $dbh->selectall_arrayref($sth); 

for my $row (@$data) { 
    my ($col1, $col2, ...) = @$row; 
    ... 
} 

for my $row (@$data) { 
    my ($col1, $col2, ...) = @$row; 
    ... 
} 

あなたはDBIのSTHが必要な場合は、DBD::Spongeにデータをロードすることができます。

Answer 2

は、私はあなたがこれを行うことができないと言うことを約あったが、あなたは、あなただけの文が再びハンドルexecuteに持つことができるかのように見えます。このコードではPostgreSQLを使用しています（MySQLのインストールは手軽です）が、あなたにとってもうまくいくはずです。

use strict; 
use warnings; 
use DBI; 
my $dbh=DBI->connect("dbi:Pg:dbname=db;host=hosty-host-host","username","password") 
    or die DBI->errstr; 

my $sth=$dbh->prepare("select generate_series(1,5)") or die $dbh->errstr; 
$sth->execute or die $dbh->errstr; 

while(my @row=$sth->fetchrow_array) 
{ 
    print "$row[0]\n"; 
} 

print "\nSecond verse, same as the first!\n\n"; 
$sth->execute or die $dbh->errstr; 

while(my @row=$sth->fetchrow_array) 
{ 
    print "$row[0]\n"; 
} 

$sth->finish; 
$dbh->disconnect; 

出力は次のようになります。

1 
2 
3 
4 
5 

Second verse, same as the first! 

1 
2 
3 
4 
5 

ちなみに、私はerr and/or errstrを見ているのではなく、IF-else文の束を使用してエラーチェックをお勧めします。

を追加するように編集：をあなたは文が再びハンドル（およびデータベースからの情報を再読み込み）executeにしたくない場合、あなたはおそらくどちらかA）で立ち往生（Perlの）データ構造内のデータを保存していますまたはb）ファイルに書き込んだり、ファイルから読み込んだり（ファイルハンドル上のseekを何度でも使用する）。