Discussion :

[mobscene]

J'ai des informations dont je doit ganrantire l'unicité , après quelque recherche sur la CPAN je suis tmobé sur le module AnyDBM_File qui semble faire ce que je veut mais je n'est pas compris comment ont utilise DBM et tie().

Les infos sont des adresse de personnes. J'ai cherché qur google des script faisant ce que je veut pour n'avoir qu'a les adaptés (et oui je suis feignant ), mais je n'est rien trouvé.

Auriez vous un exemple de script, faisant sa ? merci

[Jedai]

Et pourquoi les exemples fournis avec la doc ne te suffisent-ils pas ??

--
Jedaï

[mobscene]

Surement , mais en fait pas compris leur fonctionnement.

Par exemple ma base faut bien que j'écrive dedans , ben je voir comment ont fait dans les exemples , si tu pouvait m'en expliquer un ce serait vraiment sympa

[mobscene]

Bon j'ai a peut pret compris comment sa marche enfin lol !

Mais j'ai un probleme mon script est devenue super lent, avant j'utiliseais une actuce pompé sur ce forum , pour garantire l'unicité de les adresse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

next if defined $rue{$adresse};

mais sa ne marchait pas a tout les coupes dès fois , il y avait des doublons .

Voici comment j'utilise DBM

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
# next if defined $rue{$adresse};
 our (%h, $k, $v);
 
 tie %h, "DB_File", "TEMP", O_RDWR|O_CREAT, 0666, $DB_HASH  or die "Cannot open file 'TEMP': $!\n";
 #print "Banana Exists\n\n" if $h{"banana"} ;
 push(@rue, $adresse) if $h{$adresse};
 
 
 # Add a few key/value pairs to the file
 $h{"$url"} = "$url";
 untie %h;

Qu'est ce qui ne vas pas ?

[mobscene]

Je comprend pas pourquoi mon script est devenue si lent

[goblin]

Essaie sa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 my %h;
 my $DB_HASH->{'flags'} = R_DUP;
 
 tie %h, "DB_File", "mon_temp", O_RDWR|O_CREAT, 0640, $DB_HASH  or die "Cannot open file 'mon_temp': $!\n"; 
 
 push(@rue, $adresse) if defined $h{$adresse}; 
 
 # Add a few key/value pairs to the file 
 $h{"lien"} = "$url"; 
 untie %h;

pas testé