Perl - Trop d'erreur de fichiers lors de l'utilisation de DBD Oracle

Question

Quelqu'un peut-il me dire pourquoi j'ai des erreurs en ouvrant le fichier dans le code ci-dessous? Les erreurs commencent à la moitié de la 9ème itération de 25 threads, et sont des erreurs "Trop de fichiers ouverts". L'erreur se produit uniquement lors de l'exécution dans les threads et uniquement lorsque DBI connect/disconnect est utilisé. Cela ne devrait pas affecter le nombre de fichiers ouverts du tout devrait-il? Je suis assez nouveau à Perl donc je ne sais pas si j'ai fait quelque chose de bizarre. C'est sur Perl 5.8.8. sur Solaris 10.

use threads(); 
use DBI; 
use DBD::Oracle; 

my $thrds=25; 
my $iter=10; 
my @threads; 

for (my $j=0; $j<$iter; $j++) { 
    &start($j); 
} 

sub start { 
    my $k=$_[0]; 
    for (my $i=0; $i<$thrds; $i++) { 
     $threads[$i] = threads->new(\&RunThread,$k, $i); 
    } 
    for (my $i=0; $i<$thrds; $i++) { $threads[$i]->join; } 
} 

sub RunThread { 
    my $dbh = DBI->connect("dbi:Oracle:lnrmsd9.world", "rms_reader", "rms_reader") or die "failed connect"; 
    my ($x, $y)=@_; 
    open (my $fh, ">/tmp/da") or die "failed $! at iter $x thread $y"; 
    close ($fh); 
    $dbh->disconnect; 
} 

Answer 1

Vous devez utiliser:

use warnings; 
use strict; 

Ceux-ci vous dire que vous utilisez des variables globales $ i et j $ dans le sous-programme. Puisque vous avez plusieurs threads accédant aux variables, tout l'enfer se déchaîne. En outre, ils partagent tous un seul fichier, une autre source de problèmes. Et avez-vous réalisé que vous aviez à la fois un '$ threads scalaire' et un tableau '@threads'?

Avec les threads, les variables globales sont ... bien, sinon exactement l'ennemi, extrêmement problématique. Evitez le format de poignée FILE (open); utilisez my beaucoup plus généreusement.

Et vous n'avez pas besoin de dire 'use DBD :: Oracle;' déjà. Vous devrez parfois utiliser la variante:

use DBD::Oracle qw(:ora_types); 

pour accéder aux types de données spécifiques à Oracle.

---

révision Untested:

use strict; 
use warnings; 
use threads(); 
use DBI; 
use DBD::Oracle; 

my $threads=25; 
my $iter=10; 

for ($j = 0; $j < $iter; $j++) { 
    &start($j); 
} 

sub start { 
    my($j) = @_; 
    my(@threads); 
    for (my $i = 0; $i < $threads; $i++) { 
     $threads[$i] = threads->new(\&RunThread,$j, $i); 
    } 
    for ($i=0; $i < $threads; $i++) { $threads[$i]->join; } 
} 

sub RunThread { 
    my $dbh = DBI->connect("dbi:Oracle:ora", "user", "pass") or die "failed connect"; 
    my($j, $i) = @_; 
    open(my $fh, ">/tmp/da") or die "failed $! at iter $j thread $i"; 
    close $fh; 
    $dbh->disconnect; 
} 

---

Une chose que je ne comprenais pas - pourquoi je ne devrais pas utiliser use DBD::Oracle;?

Si vous regardez le 'perldoc DBD :: Oracle', vous verrez le Synopsis:

use DBI; 

$dbh = DBI->connect("dbi:Oracle:$dbname", $user, $passwd); 

Ainsi, la documentation principale du module DBD :: Oracle montre que vous n'utilisez pas directement.

Il n'y a pas de mal à l'utiliser; il n'y a pas besoin de l'utiliser. Le module DBI charge automatiquement le pilote impliqué par la chaîne de connexion dans l'appel à DBI->connect(). En écrivant use DBD::Oracle;, vous évitez à DBI d'effectuer le chargement (c'est déjà fait). Je suppose que vous obtenez également Perl pour vérifier que le module est disponible pour être chargé avec la clause use.

Answer 2

Essayez

my $FILE; 
open ($FILE, ">/tmp/da") or die "failed $! at iter $j thread $i"; 
close ($FILE); 

Ceci est la meilleure pratique.