Discussion :

[xunil2003]

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.

[sth56]

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 :

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 );

[Philou67430]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

perl cm15-A4.pl

[xunil2003]

Bonjour,

J'ai supprimer l'espace et ca marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

un petit ls

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.