Ctrl-D abfangen/auswerten, aber wie?

[Joerg]

Hi,

Bin gerade dabei, ein command-line interface fuer ein groesseres Programm in Perl zu schreiben. Bisher ist es so, dass man zum Verlassen "quit" oder "exit" eingeben muss - wie bringe ich Perl nun bei, dass es Ctrl-D (den gebraeuchlichen Linux/Unix-shortcut fuer exit ;-) ebenfalls zulassen soll?

Das Auslesen geschieht bisher ueber eine 'readline()'-Schleife, aber andere Alternativen nehme ich natuerlich auch ;-)

while(1){
        $line=$term->readline("> ");
        if($line eq 'exit' or $line eq 'quit')
            {
            clean_up_and_exit;
            }
        elsif ....{ interaction_with_program }

(Ja, ich habe ausgiebig gegoogelt, aber nichts "verwertbares" gefunden ... ;-)

Gruss & Merci,

• Joerg