Erreur script perl

Bonjour,

Je suis débutant perl, pouvez vous m'aider. je ne comprend pas ce qui ce passe, je trouve pas mon erreur ?

Quand j'exécute mon fichier perl j'ai ce message

Code:

---

1 2 3 4 5

root@debian:/home/serveur/x10/perl# ./cm15-A4.pl ./cm15-A4.pl: line 2: use: command not found ./cm15-A4.pl: line 4: syntax error near unexpected token `CM15A,' ./cm15-A4.pl: line 4: ` sysopen( CM15A, "/dev/cm15a0", O_RDWR |O_NOCTTY | O_NONBLOCK ) || die "Module cm15a.ko non charge $!";' root@debian:/home/serveur/x10/perl#

---

mon fichier cm15-A4.pl

Code:

---

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl -w use Fcntl;   sysopen( CM15A, "/dev/cm15a0", O_RDWR |O_NOCTTY | O_NONBLOCK ) || die "Module cm15a.ko non charge $!"; syswrite CM15A, pack( "CC", 4, 0x6A ), 2; sleep 1; # can be less syswrite CM15A, pack( "CC", 6, 0x6A ), 2; # ON #syswrite CM15A, pack( "CC", 6, 0x63 ), 2; # OFF close( CM15A );

---

Merci.

bonjour,

Dans ton fichier cm15-A4.pl tu doit avoir des espaces en début de tes lignes, si tu les enlèves ça devrai mieux fonctionner

Code:

---

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl -w use Fcntl;   sysopen( CM15A, "/dev/cm15a0", O_RDWR |O_NOCTTY | O_NONBLOCK ) || die "Module cm15a.ko non charge $!"; syswrite CM15A, pack( "CC", 4, 0x6A ), 2; sleep 1; # can be less syswrite CM15A, pack( "CC", 6, 0x6A ), 2; # ON #syswrite CM15A, pack( "CC", 6, 0x63 ), 2; # OFF close( CM15A );

---

J'ai le sentiment que le problème ne vient pas de là.
Pourrais-tu vérifier que ton perl se trouve bien dans /usr/bin/perl, ou tenter de lancer le script ainsi :

Code:

---

perl cm15-A4.pl

---

Bonjour,

J'ai supprimer l'espace et ca marche

Code:

---

1 2	root@debian:/home/serveur/x10/perl# perl cm15-A4.pl root@debian:/home/serveur/x10/perl#

---

un petit ls

Code:

---

1 2 3 4 5 6 7 8

root@debian:/home/serveur/x10/perl# ls -alF /usr/bin/perl* -rwxr-xr-x 2 root root 5984 Dec 21 13:03 /usr/bin/perl* -rwxr-xr-x 2 root root 5984 Dec 21 13:03 /usr/bin/perl5.10.1* -rwxr-xr-x 2 root root 53807 Dec 21 12:58 /usr/bin/perlbug* -rwxr-xr-x 1 root root 125 Dec 21 13:03 /usr/bin/perldoc* -rwxr-xr-x 1 root root 12354 Dec 21 12:58 /usr/bin/perlivp* -rwxr-xr-x 2 root root 53807 Dec 21 12:58 /usr/bin/perlthanks* root@debian:/home/serveur/x10/perl#

---

Mais mon code ne fonctionne pas
pourtant le pilote ce trouve bien dans /dev

Code:

---

1 2 3

root@debian:/home/serveur/x10/perl# ls -alF /dev/cm15a0* -rwx--x--x 1 root root 4 Apr 24 15:40 /dev/cm15a0* root@debian:/home/serveur/x10/perl#

---

Code:

---

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl use Fcntl;   sysopen( CM15A, "/dev/cm15a0", O_RDWR |O_NOCTTY | O_NONBLOCK ) || die "Module cm15a.ko non charge $!"; syswrite CM15A, pack( "CC", 4, 0x6A ), 2; sleep 1; # can be less syswrite CM15A, pack( "CC", 6, 0x6A ), 2; # ON #syswrite CM15A, pack( "CC", 6, 0x63 ), 2; # OFF close( CM15A );

---

Merci.