Slik leser Fra DOSBox i Perl

Lese brukerundersøkelser 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 som du vil. Prosessen med å be om innspill er grei; potensialet for vanskeligheten kommer senere når du trenger å filtrere innholdet innspill av en bruker, som en utilbørlig dataregistrering kan potensielt bryte skriptet.

DOSBox er et gratis DOS emulator tilgjengelig for nedlasting fra dosbox.com. Det kjører på en rekke operativsystemer.

Bruksanvisning

1 Åpne en forekomst av DOSBox. Nå åpner perl filen du ønsker å lese innspill fra DOSBox.

2 Lag et uttrykk som vil spørre brukeren om hans innspill:

print "Vennligst gi oss dine innspill \ n.";
$ Input = <>;
skrive "Du skrev $ innspill \ n";

Hvis du leter etter en bestemt type innspill, sørg for at du ikke aksepterer innspill som ikke er kvalifisert, ellers kan det bryte skriptet. Du kan bruke "dø" -funksjonen til å gjøre dette. Hvis du var bare ute etter tall, kan du endre eksemplet ovenfor til:

print "Vennligst gi oss din tall innspill \ n.";
$ Input = <>;
if ($ inngang ~ = m / (\ D) + /)
{
die "Du skrev noe annet enn en rekke Script avslutte \ n!";
}
ellers
{
skrive "Du skrev $ innspill \ n";
}

Eksempelet ovenfor bruker et vanlig uttrykk for å undersøke input fra brukeren. Hvis den finner noe annet enn et nummer, vil det avslutte skriptet. Brukeren må kjøre den på nytt og gå inn i riktig inngang.

3 Lagre filen og avslutter redaktøren. Nå kjører skriptet i DOSBox ved å skrive navnet sitt, og deretter trykke "Enter". Skriptet vil be deg om innspill.