String einlesen und nachfolgendes Wort ausgeben (gelöst) - #174793 (Allgemeines zu Perl)

FIFO

2014-04-15 17:57

User since
2005-06-01
469 Artikel
BenutzerIn

user image

1. (Mein snippet): beim exit fehlte noch die defined-Abfrage, sorry.

2. Deine Zielsetzung ist nicht so leicht zu verstehen, vielleicht formulierst Du es mal für jemanden ohne Programmierkenntnis, also "auf Deutsch". Also:

Code: (dl )

- Nimm eine Zeile,
- Enthält sie ein Reizwort?
- Wenn ja:
    - ist diesem Wort ein exit-code zugeordnet?
    - Wenn ja: 
        - Gib die Zeile aus und beende das Programm mit dem exit-code
    - sonst:
        - ...
- sonst:
    - gib "UNKNOWN" aus
- da capo, solange noch Zeilen da sind

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"