Discussion :

[Mimiche]

Bonjour,

J ai un fichier avec des personnes et un capital. Comme ceci:

Pol 256
gregory 365
michel 152
pol 152
francois 65
christophe 654
michel 56

Je voudrais faire un script que va me retourner Ceci : le nom des personnes avec la somme de leur capital.

Pol (256+152)
gregory 365
michel (152+56)
francois 65
christophe 654


Merci,


Mimiche

[Arioch]

Bonjour,

J ai un fichier avec des personnes et un capital. Comme ceci:

Pol 256
gregory 365
michel 152
pol 152
francois 65
christophe 654
michel 56

Je voudrais faire un script que va me retourner Ceci : le nom des personnes avec la somme de leur capital.

Pol (256+152)
gregory 365
michel (152+56)
francois 65
christophe 654


Merci,


Mimiche

Bonjour,

peux-tu nous montrer le code que tu as fait stp ?

Si pas déjà commencé, pour t'aiguiller sur une manière (parmi d'autres) de procéder :

- en supposant qu'une ligne contienne 2 valeurs (nom, capital) séparées par une tabulation, tu splittes chaque ligne ce qui te permet d'avoir le nom et le capital bien distincts
- je te suggère de mettre le nom en minuscule car Perl est sensible à la casse
- tu te concocte un hash de listes. la clé = le nom (voilà pourquoi mieux vaut que tous tes noms soient en minuscules), la liste contenant tous les capitaux trouvés pour ce nom

[Mimiche]

Bonjour,

En fait mon script est plus compliqué que cela. Je ai pris un exemple avec des personens et un capital pour que ca ne soit pas trop difficil a expliquer.

En réalité, mon script doit me permettre de faire cela avec des machines et des groupes.

J ai en entrée : (enregistré en CSV)

machine1;community;groupe1
machine2;community;groupe2
machine1;community;groupe3
machine2;community;groupe2
machine2;community;groupe3

Mon script va compter les port ethernet et up de la machine qui correspond au groupe.

Avec le script que j'ai, j'ai en sortie :

groupe1 Nombre total de port :... Port ethernet ... ethernet up...
groupe2 Nombre total de port :... Port ethernet ... ethernet up...
groupe3 Nombre total de port :... Port ethernet ... ethernet up...
groupe2 Nombre total de port :... Port ethernet ... ethernet up...
groupe3 Nombre total de port :... Port ethernet ... ethernet up...

J aimerai qu'il me fasse la somme des ports des meme groupe. Pour le groupe 2 et 3, qu'il me fasse la somme des ports.

Est ce que je uis assez clair ?

Voici mon 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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
use strict;
use Data::Dumper;
 
BEGIN {
	unshift @INC, '/PRD/SYDN/perl-lib';
};
 
use Net::SNMP;
 
 
my %ifCount;
my @device=($_);
my $device;
my $ligne;
my %Count;
 
 
 
open FICHIER,"<input.csv " or die "le fichier n existe pas";
 
 
while ($ligne = <FICHIER>){
chomp ($ligne);
 
my $machine;
my $community;
my $groupe;
 
 
 
	foreach($ligne) {
	%ifCount=0;
	($machine,$community,$groupe) = split (/;/,$ligne);
 
 
 
my ($session, $error) = Net::SNMP->session(
			      -version     => 'snmpv2c',
			      -hostname    => $machine,
			      -community   => 'nVNmgAix',
			      -port        =>  161 ,
			      -timeout=> 1
 
			   );
 
	if ($error) {print $error; exit}
 
 
my $ifIndex                     = $session->get_table(  -baseoid => "1.3.6.1.2.1.2.2.1.1" );
my $ifType			= $session->get_table(	-baseoid => "1.3.6.1.2.1.2.2.1.3" );
my $ifLabel			= $session->get_table(	-baseoid => "1.3.6.1.2.1.31.1.1.1.1" );
my $ifOperStatus		= $session->get_table(	-baseoid => "1.3.6.1.2.1.2.2.1.8" );
 
 
foreach  my $nbport (values %$ifIndex) {
 
 
 
                  $ifCount{$device[0]}{glob}++;
		  next unless $$ifType{'1.3.6.1.2.1.2.2.1.3.'.$nbport} == 6; 
    		  $ifCount{$device[0]}{total}++;
                  $ifCount{$device[0]}{up}++   if $$ifOperStatus{'1.3.6.1.2.1.2.2.1.8.'.$nbport} == 1 ;
}		
 
 
 
print     	      "Groupe: $groupe\t".
		      "Nombre total de ports:$ifCount{$device[0]}{glob}\t".
		      "Nombre ports Ethernet:$ifCount{$device[0]}{total}\t".
		      "Port Ethernet UP:$ifCount{$device[0]}{up}\n";
 
}
 
}
 
 
close FICHIER;

Merci,


Mimiche

[djibril]

veuillez mettre votre code sous balise code, c'est illisible (c'est le #).

Merci

[Mimiche]

Bonjour,

Personne ne peut m aider ? En fait, je dois faire l addition des ports des machine qui ont le meme groupe. Si une machineA et une machineB ont le meme groupe, alors on va faire la somme des ports des 2 machines.

Merci,

[Mimiche]

Personne ne peut m aider ? Ou vous ne comprenez pas mon problème ?

Merci,