Bonjour
Julp 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:
Mais voilà, il y a un problème les deux lignes en rouge sont coupables.
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 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; }
Bien entendu, les lignes misent en commentaire, le script fonctionne
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part =~ m/OS/2/
Merci
Partager