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 : 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#
mon fichier cm15-A4.pl
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 );
Merci.