Hjælp til funktioner i perl
Jeg skal have lavet en .pl fil der indeholder dette:use Win32::API;
my $GetPortVal = new Win32::API("inpout32", "Inp32", ['I'], 'I'); my $SetPortVal =
new Win32::API("inpout32", "Out32", ['I', 'I'], 'I');
Som så skal indeholde en funktion som denn (denne i php)
function vent1($tid) {
// Noget perl kode der ikke er med her !!
sleep($tid);
}
function vent2($tid) {
// Noget perl kode der ikke er med her !!
sleep($tid);
}
Perl filen skal så hente en config fil der eksekverer funktonerne (der er 8 men har kun brug for hjælp til den første)
Config filen kan så feks indeholde:
vent1(7)
vent2(10)
Kan den laves ?? og er der forresten en måde så man kan bruge sleep med milisekunder istedet for sekunder ??
