Come leggere da Dosbox in Perl

Leggere l'input dell'utente da DOSBox in Perl è codificato in modo simile su ogni sistema. Perl non funziona in modo diverso su sistemi diversi , quindi è davvero solo una questione di codifica in modo corretto . Una volta che l' utente fornisce i dati di script , è possibile utilizzarlo come più vi piace . Il processo di richiesta di ingresso è semplice: il potenziale di difficoltà viene dopo, quando è necessario filtrare l'ingresso dei contenuti da un utente , come voce di dati improprio può potenzialmente rompere il vostro script.DOSBox è un emulatore DOS disponibili gratuitamente per il download dal DOSBox . com . Funziona su una varietà di sistemi operativi . Istruzioni
1

aprire un'istanza di DOSBox . Ora aprite il file perl che si desidera leggere l'input da DOSBox
2

creare un'espressione che chiederà l'utente per il suo contributo : .

Stampa " Vi preghiamo di darci il tuo contributo . \\ n " , $ input = < > ; print " Hai inserito $ input \\ n "; !

Se siete alla ricerca di uno specifico tipo di ingresso , assicurarsi che non si accetta di ingresso che non si qualifica , altrimenti si potrebbe rompere il vostro script . È possibile utilizzare la funzione di "morire" per fare questo. Se tu fossi solo alla ricerca di numeri , è possibile modificare l'esempio precedente per :

print " Vi preghiamo di darci il vostro input numerico \\ n ". ; $ Input = < > ; if ( $ input = ~ m /( \\ D ) + /) { die "Hai inserito qualcosa di diverso da un numero! Script di terminazione \\ n " ; } else {print " Hai inserito $ input \\ n "; ! }

L'esempio precedente utilizza un'espressione regolare per esaminare l' input da parte dell'utente . Se trova altro che un numero , verrà terminare lo script . L' utente dovrà eseguire di nuovo e immettere l'ingresso corretto .
3

Salvare il file e chiudere l'editor . Ora eseguire lo script in DOSBox digitandone il nome e premendo " Invio". Lo script vi chiederà di ingresso .

• Come sostituire Opzioni in Regular Expression 
• Come leggere una riga DOSBox Con Perl