Merci pour votre aide et suggestions !

Voici un petit programme en perl qui met tout les bits à 0 sur le port parallèle.

open (PORT,">/dev/port");
binmode (PORT);
seek (PORT,0x378,0)|| die "seek_err\n";
print PORT 0x00;
select(undef, undef, undef, 0.25);
close (PORT);
--
http://www-internal.alphanet.ch/linux-leman/ avant de poser
une question.

Répondre à