Discussion :

[elamarib]

Bonsoir tout le monde,

j'ai un petit souci avec le langage perl.
j'ai fais un script qui me permet de recupérer l'adresse ip, le nom d'hôte, le username, d'un Pc ainsi que l'adresse Mac. Mais je voudrais récupérer le le dernier digit de l'adresse ip et je n'y arrive pas.

je veux par la suite, exporter mon fichiers en "$username,lastdigit.csv" et qui comportera "$ip,%computername,@Mac" mais c'est compliqué egalement vu que je suis encore un débutant.


si quelqu'un pourrais m'aider et je vous en remercie.

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
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
 
#!/usr/bin/Perl
 
use strict;
use warnings;
 
sub recupUsername
 
{
my $user=`echo %username%`;
chomp $user;
print($user);
print " : ";
}
 
sub Hostname
 
{
my $data=`echo %computername%`;
chomp $data;
print ($data);
print " ; ";
}
 
sub recuperationIP
 
{
my @ip=`ipconfig`;
chomp @ip;
@ip = grep (/IPv4/,@ip);
foreach(@ip)
{
	s/.*IPv4.*: (\d+\.\d+\.\d+\.\d+).*/$1/;
	print; 
}
 
 
sub recuperationMac
 
{
my @mac=`ipconfig/all`;
@mac = grep (/physique/,@mac);
print "\n";
print @mac;
}
 
sub exportResultat
 
{
# $namefile=$computername."-".$lastdigit; #probleme de concaténation
# open(inventory,">> $namefile.csv");
#open(inventory,">> toto.csv");
# print inventory $computername.";".$ip.";".$username;
# close inventory;
 
}
 
 
sub main
 
{
 
sub recupUsername();
sub hostname();
sub recuperationIP();
sub recuperationMac();
sub exportResultat();
}
 
main();

[Jasmine80]

[QUOTE=elamarib;5621176]Mais je voudrais récupérer le le dernier digit de l'adresse ip et je n'y arrive pas.[/B]

Les 3 derniers chiffres ou seulement le dernier?

Il faut utiliser une expression régulière

pour récupérer le dernier chiffre

Code :

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

my ($last_digit) = $ip =~ /(\d)$/;

pour récupérer les 3 derniers chiffres

Code :

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

my ($last_3digits) = $ip =~ /(\d+)$/;

pour récupérer le dernier chiffre et les 3 derniers

Code :

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

1
2
my $ip = '130.104.187.114';
my ($last_3digits, $last_digit) = $ip =~ /(\d\d(\d))$/;

... pour le reste je ne sais pas, as-tu regardé dans la FAQ?

[elamarib]

Bonsoir,

merci beacuoup jasmine80 pour ton aide... je vais tester cela de suite. Sinon pour le reste j'ai essayer de le trouver mais j'ai pas réussi malheureusement.

merci encore une fois.

bonne soirée.