Bonjour,

Je commence à me tirer les cheveux. J'ai un programme perl comme ceci:

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
25
26
27
28
29
30
#!/usr/bin/perl -w
use strict;
use Tar;
#use Mojolicious::Plugin::Mail;
use File::Copy;
 
#On indique le chemin des fichier de conf
 
my $vsftpdconfig = "/etc/vsftpd.conf";
my $sshconfig = "/etc/ssh/ssh_config";
my $transmissionconfig = "/etc/transmission-daemon/settings.json";
my $networkconfig = "/etc/network/interfaces";
my $apache2config = "/etc/apache2/apache2.conf";
my $date = localtime;
my $nomRep = "SaveConf_$date";
my $saveTar = Tar -> new();
 
#On change de repertoire et on créer le dossier des fichiers à sauvegarder
chdir('/etc/') or die ("Erreur lors du changement de repertoire /etc");
mkdir($nomRep,0755) or die ("Erreur lors de la creation du repertoire nomrep");
chdir($nomRep) or die ("Erreur lors du changement de repertoire");
 
copy ($vsftpdconfig, "vsftpd.conf");
copy ($sshconfig, "ssh_config");
copy ($transmissionconfig, "settings.json");
copy ($networkconfig, "interfaces");
copy ($apache2config, "apache2.conf");
 
$saveTar -> add_data($nomRep);
$saveTar -> write($nomRep);

Mais à chaque compilation je me retrouve avec l'erreur suivante:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Use of uninitialized value $data in length at /usr/local/share/perl/5.10.1/Tar.pm line 413.
Use of uninitialized value in concatenation (.) or string at /usr/local/share/perl/5.10.1/Tar.pm line 241.
Une idée ?