Étape 3: Configurer le script perl
#! / usr/bin/perl
Ce serait l’emplacement de votre interpréteur perl. Plus de code :
utiliser Unix::Processors ;
utiliser Device::SerialPort ;
utiliser Math::Round ;
Elles sont toutes les bibliothèques dont vous avez besoin. La première permet à l’horloge du processeur. La prochaine vous permet d’écrire sur le port série, et la dernière permet de chiffres ronds.
Maintenant, ajoutez :
mon $arduino = Device::SerialPort -> new("/dev/ttyACM0") ; #Should être le port sur que votre Arduino est
$arduino -> databits(8) ;
$arduino -> baudrate(9600) ; #Should être en bauds de votre Arduino
$arduino -> parity("none") ;
$arduino -> stopbits(1) ;
Toutes ces choses d’initialiser la connexion avec l’Arduino. Vous devez changer ce qui doit être modifié pour l’adapter à vos besoins.
mon $processor = new Unix::Processors ; Processeur #Your
$overallspeed = $processor -> max_clock ; #Clocks il
$send = ((($overallspeed-800) / 175.125) + 1) ; # 800 = vitesse d’horloge minimale. 175.125 = vitesse d’horloge maximale / nombre de leds
Ce morceau de code horloges le processeur et le met sur une échelle comprise entre 1 et 7. Certaines choses doivent être modifiées, telles que votre vitesse d’horloge minimale de processeurs, et votre max divisé par le nombre de leds. Pour ce projet, il y a 8 leds.
Enfin, ajoutez :
$arduino -> write(round($send)) ; #Rounds le nombre et l’envoie à votre Arduino
Ce code est en charge de l’envoyer à l’Arduino.
Enregistrez tout ce code sous clockandsend.pl
Maintenant, cette horloge seule volonté et un numéro d’envoi. Vous souhaitez créer un autre script pour exécuter celui-ci maintes et maintes fois. Par exemple :
#! / usr/bin/perl
while (1)
{
System("/path/clockandsend.pl") ;
}
Il suffit de changer « / chemin / » à quel que soit le chemin d’accès est en réalité.
Je voudrais mettre que comme loop.pl.
C’est tout pour le perl !