Bonjour tout le monde,

Je me met un peu au perl parce que je dois faire quelques petite manoeuvre sur un serveur et pour commencer je voulais récupérer des alias d'un fichier bdd et les afficher.

Mon script fonctionne parfaitement si je l'exécute en bash et me renvoi :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Content-type: text/html
 
toto
alias = shgamer.net
Seulement si je l'exécute dans mon navigateur il me renvoi :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
toto
Voici le script en question :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#!/usr/bin/perl -w
 
use strict;
use DB_File;
use CGI::Carp qw(fatalsToBrowser);
 
# Domaine = shgamer.org
my $domaine = "shgamer.org";
 
print   "Content-type: text/html\n\n";
 
tie my %LIST,'DB_File',"/etc/ovhm.db";
 
print "toto\n";
 
foreach my $key (sort keys %LIST){
        my $str = $domaine . "_alias_";
        if ($key =~ /$str/) {
                my $val = $LIST{$key};
                print "alias = ".$val;
        }
}
untie(%LIST);
A priori le probleme viendrait du tie qui ne marcherait pas correctement mais je ne sais pas trop.

En espérant que quelqu'un pourra m'éclairer.

++