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
mon fichier cm15-A4.pl
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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#
Merci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 );
Partager