Discussion :

[matttimon]

bonjour, je me remet encore a vous parce que j'ai un petit problème
ayant déjà regarde les sites et autre forum

mon but serai de transférer mes résultat de mon script perl dans un fichier

donc voici le code

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
#!/usr/bin/perl -w
use strict;
use warnings;
my $host;
print "Saisir une adresse IP:";
$host=<STDIN>;
use lib "./usr/lib/perl5/";
use SNMP::Multi;
 
    my $req = SNMP::Multi::VarReq->new (
        nonrepeaters => 1,
        hosts => [ $host ],
        vars  => [ ['sysName'], ['sysContact'], ['sysLocation'], ['1.3.6.1.4.1.318.1.1.12.3.5.1.1.1'], ['1.3.6.1.4.1.318.1.1.12.3.5.1.1.2'], ['1.3.6.1.4.1.318.1.1.12.3.5.1.1.4'] ],
    );
    die "VarReq: $SNMP::Multi::VarReq::error\n" unless $req;
 
    my $sm = SNMP::Multi->new (
        Method      => 'bulkwalk',
        MaxSessions => 32,
        PduPacking  => 16,
        Community   => 'public',
        Version     => '2c',
        Timeout     => 5,
        Retries     => 3,
        UseNumeric  => 1,
    )
    or die "$SNMP::Multi::error\n";
 
    $sm->request($req) or die $sm->error;
    my $resp = $sm->execute() or die "Execute: $SNMP::Multi::error\n";
 
    print "Reponse obtenu pour ", (join ' ', $resp->hostnames()), "\n";
    for my $host ($resp->hosts()) 
	{
 
        print "Resultat pour $host: \n";
        for my $result ($host->results()) 
		{
            if ($result->error()) 
			{
                print "Erreur avec $host: ", $result->error(), "\n";
                next;
            }
 
            print "Valeurs pour $host: ", (join ' ', $result->values());
            for my $varlist ($result->varlists()) 
			{
                print map { "\t" . $_->fmt() . "\n" } @$varlist;
            }
            print "\n";
        }
   }
print "2 libre 1 pris";
 
open (LIRE,"test.csv");
open (ECRIRE,">test.csv");
 
while () {
print ECRIRE $result ;
}
close (ECRIRE);
close (LIRE);

le code marche tres bien sauf au niveau de l'écrire dans un fichier

mais vous me conseiller de l'envoyer de l'envoyer dans un fichier et apres du fichier au tableau , ou de faire directement un tableaux

Merci pour votre aide

[matttimon]

merci j'ai reussi a faire ;

enfaite ca marche comme ca avec les modif

Code :

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

1
2
3
4
5
6
7
8
9
 
open (LIRE,"test.csv");
my $output="test.csv";
open (ECRIRE,">",$output);
 
print ECRIRE "teste de resultat" ;
 
close (ECRIRE);
close (LIRE);