Reading brugerinput fra DOSBox i Perl er kodet på samme måde på alle systemer . Perl ikke fungerer forskelligt på forskellige systemer , så det er egentlig bare et spørgsmål om kodning det ordentligt. Når brugeren giver dine script data, kan du bruge det som du vil. Processen med at bede om input er ligetil, potentialet for vanskelighed kommer senere, når du har brug for at filtrere indholdet input fra en bruger , som en forkert indtastning af data potentielt kan bryde din script.DOSBox er en gratis DOS emulator kan downloades fra DOSBox . com. Det kører på en række forskellige operativsystemer. Instruktioner
1
Åbn en forekomst af DOSBox . Åbn nu perl fil, du ønsker at læse input fra DOSBox
2
oprette et udtryk , der vil bede brugeren om hans input : .
Print " Giv os dit input . \\ n "; $ input = < > , print" du har indtastet $ input \\ n "; !
p Hvis du leder efter en bestemt slags input , så sørg for at du ikke acceptere input der ikke kvalificere sig, da det ellers kunne bryde dit script . Du kan bruge " die "-funktionen til at gøre dette. Hvis du kun var på udkig efter numre , kan du ændre ovenstående eksempel til : Hej
print " Giv os din numeriske input \\ n ". , $ Input = < > ; if ($ input ~ = m /( \\ D) + /) { die " Du har indtastet noget andet end et tal! Script afslutning \\ n " ;} else { print" Du har indtastet $ input \\ n "; ! }
Ovenstående eksempel bruger et regulært udtryk til at undersøge input fra brugeren . Hvis den finder noget, men en række , vil det afslutte scriptet. Brugeren bliver nødt til at køre den igen og indtaste den korrekte input.
3
Gem filen og afslut editoren. Nu køre dit script i DOSBox ved at skrive sit navn og derefter trykke på " Enter". Scriptet vil bede dig om input .