Discussion :

[Baldric de Dol]

Voici mon script

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
use POSIX qw(strftime);
$Time = strftime "%Y%m%d", localtime;
 
while (<>) {
undef @free;
chomp;
if ( /System information for \\\\(.*)\:/ ) {
$host = $1;
}
 
if ( /Fixed/ ) {
push @free, split ();
} else {
next;
}
 
$Volume = $free[0];
$Type = $free[1];
$Format = $free[2];
 
if ( $#free == 7 ) {
$Size = "$free[3] $free[4]";
$Frees = "$free[5] $free[6]";
$Freep =$free[7];
}
 
if ( $#free == 8 ) {
$Label = $free[3];
$Size = "$free[4] $free[5]";
$Frees = "$free[6] $free[7]";
$Freep =$free[8];
}
 
write STDOUT;
 
}
 
format STDOUT_TOP =
@<<<<<<<;@<<<<<<<<<;@<<;@<<<<<<<<;@>>>>>>>;@>>>>>>;@>>>>
Date, Hostname, Volume, Label, Size, Frees, Freep
.
 
format STDOUT =
@<<<<<<<;@<<<<<<<<<;@<<;@<<<<<<<<;@>>>>>>>;@>>>>>>;@>>>>
$Time, $host, $Volume, $Label, $Size, $Frees, $Freep

J'aimerai modifier le format de sortie afin d'avoir quelque chose comme ceci:
la date en haut
puis le nom du serveur
et pour chaque serveur les infos disques

j'ai tenté un foreach mais je ne connais pas vraiment le fonctionnement de perl

merci de votre aide

[djibril]

merci de mettre ton code sous balise code (#)

[Baldric de Dol]

J'aimerai modifier le format de sortie afin d'avoir quelque chose comme ceci:
la date en haut
puis le nom du serveur
et pour chaque serveur les infos disques

j'ai tenté un foreach mais je ne connais pas vraiment le fonctionnement de perl

merci de votre aide

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
#!/usr/bin/perl
use POSIX qw(strftime);
$Time = strftime "%Y%m%d", localtime;
 
while (<>) {
undef @free;
chomp;
if ( /System information for \\\\(.*)\:/ ) {
$host = $1;
}
 
if ( /Fixed/ ) {
push @free, split ();
} else {
next;
}
 
$Volume = $free[0];
$Type = $free[1];
$Format = $free[2];
 
if ( $#free == 7 ) {
$Size = "$free[3] $free[4]";
$Frees = "$free[5] $free[6]";
$Freep =$free[7];
}
 
if ( $#free == 8 ) {
$Label = $free[3];
$Size = "$free[4] $free[5]";
$Frees = "$free[6] $free[7]";
$Freep =$free[8];
}
 
write STDOUT;
 
}
 
format STDOUT_TOP =
@<<<<<<<;@<<<<<<<<<;@<<;@<<<<<<<<;@>>>>>>>;@>>>>>>;@>>>>
Date, Hostname, Volume, Label, Size, Frees, Freep
.
 
format STDOUT =
@<<<<<<<;@<<<<<<<<<;@<<;@<<<<<<<<;@>>>>>>>;@>>>>>>;@>>>>
$Time, $host, $Volume, $Label, $Size, $Frees, $Freep