Reading brukerens input fra DOSBox i Perl er kodet på samme måte på alle systemene . Perl fungerer ikke forskjellig på ulike systemer , så det er egentlig bare et spørsmål om koding det riktig. Når brukeren gir skriptet data , kan du bruke den slik du vil . Prosessen med å be om innspill er grei, potensialet for problemer kommer senere når du trenger å filtrere innholdet inngang av en bruker , som en utilbørlig dataregistrering kan potensielt ødelegge din script.DOSBox er en gratis DOS emulator tilgjengelig for nedlasting fra DOSBox . com . Det kjører på en rekke operativsystemer. Instruksjoner
en
Åpne en forekomst av DOSBox . Nå åpner perl filen du ønsker å lese innspill fra DOSBox
2
Lag et uttrykk som vil be brukeren om innspill hans .
Print " Vennligst gi oss dine innspill . \\ n "; $ innspill = < > ; print " Du skrev $ innspill \\ n "; !
p Hvis du leter etter en bestemt type innspill , må du ikke godta inndata som ikke kvalifiserer , ellers kan det ødelegge din skriptet. Du kan bruke "die "-funksjonen til å gjøre dette. Hvis du var bare ute etter tall, kan du endre eksempelet ovenfor til:
print " Vennligst gi oss din numerisk input \\ n . "; $ Innspill = < > ; if ( $ innspill ~ = m /( \\ D ) + /) { die "Du skrev noe annet enn et tall! Script avslutte \\ n "; } else { print " Du skrev $ innspill \\ n " ;}
Eksempelet ovenfor bruker et vanlig uttrykk for å undersøke input fra brukeren . Hvis den finner noe, men et nummer, vil det avslutte skriptet. Brukeren må kjøre den på nytt , og skriv inn riktig inngang.
3
Lagre filen og avslutt redaktøren . Nå kjører skriptet i DOSBox ved å skrive sitt navn og deretter trykke "Enter". Manuset vil be om innspill .