Läsa användardata från DOSBox i Perl kodas på samma sätt på alla system . Perl fungerar inte olika på olika system , så det är egentligen bara en fråga om kodning det ordentligt . När användaren ger ditt script data kan du använda den hur du vill . Processen för att be om input är okomplicerad , potentialen för svårigheten kommer senare när du behöver välja innehållet inmatning av en användare , som en felaktig inmatning kan eventuellt bryta din script.DOSBox är en gratis DOS emulator tillgänglig för nedladdning från DOSBox . com . Den körs på en mängd olika operativsystem . Instruktioner
1
Öppna en instans av DOSBox . Nu öppnar perl fil du vill läsa in från DOSBox
2
Skapa ett uttryck som kommer att be användaren om hans ingång: .
Print " Snälla, ge oss dina synpunkter . \\ n " , $ input = < > ; print " du angav $ input \\ n "; !
p Om du letar efter en viss typ av indata , se till att du inte accepterar indata som inte uppfyller kraven , annars kan bryta ditt manus . Du kan använda " die " -funktion för att göra detta . Om du bara söker efter siffror , kan du ändra ovanstående exempel till :
print " Ge oss din numeriska indata \\ n ". ; $ Input = < > ; if ( $ input ~ = m /( \\ D ) + /) { die " Du har angett något annat än ett nummer ! Script avslutande \\ n " ; } else { print " Du angav $ input \\ n "; ! }
Ovanstående exempel använder ett reguljärt uttryck för att granska input från användaren . Om den hittar något , men ett antal , kommer den att upphäva skriptet . Användaren kommer att köra den igen och ange rätt ingång .
3
Spara filen och avsluta editorn . Nu kör skriptet i DOSBox genom att skriva sitt namn och sedan trycka på " Enter ". Manuset kommer att be dig om ingången .
