Récupérer le nom du système d'exploitation du visiteur
Bonjour :)
Julp :mrgreen: a écrit une q/r dont l'objectif est de comment connaître le système d'exploitation du visiteur ? tout en PHP
Je trouve ce script très intérressant donc, je l'ai retranscrit en perl. Voici le code:
Code:
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
| sub operating_system
{
our $operating_system="";
if ($ENV{'HTTP_USER_AGENT'} =~ m/Win/)
{
$operating_system="Windows";
}
elsif ($ENV{'HTTP_USER_AGENT'} =~ m/Mac/) || ($ENV{'HTTP_USER_AGENT'} =~ m/PPC/)
{
$operating_system="Mac";
}
elsif ($ENV{'HTTP_USER_AGENT'} =~ m/Linux/)
{
$operating_system="Linux";
}
elsif ($ENV{'HTTP_USER_AGENT'} =~ m/FreeBSD/)
{
$operating_system="FreeBSD";
}
elsif ($ENV{'HTTP_USER_AGENT'} =~ m/NetBSD/)
{
$operating_system="NetBSD";
}
elsif ($ENV{'HTTP_USER_AGENT'} =~ m/OpenBSD/)
{
$operating_system="OpenBSD";
}
elsif ($ENV{'HTTP_USER_AGENT'} =~ m/SunOS/)
{
$operating_system="SunOS";
}
elsif ($ENV{'HTTP_USER_AGENT'} =~ m/IRIX/)
{
$operating_system="IRIX";
}
elsif ($ENV{'HTTP_USER_AGENT'} =~ m/BeOS/)
{
$operating_system="BeOS";
}
elsif ($ENV{'HTTP_USER_AGENT'} =~ m/OS/2/)
{
$operating_system="OS/2";
}
elsif ($ENV{'HTTP_USER_AGENT'} =~ m/AIX/)
{
$operating_system="AIX";
}
else
{
$operating_system="Other";
}
return $operating_system;
} |
Mais voilà, il y a un problème :mouarf: les deux lignes en rouge sont coupables.
Bien entendu, les lignes misent en commentaire, le script fonctionne :aie:
Une idée ? Pour la première, je ne vois pas, la deuxième, j'ai l'impression que:
que le problème se situe à ce niveau :oops:
Merci :mrgreen:
