Perl Programmierung - Grundkurs

Namen "meine_textbox" und der Länge von 25 Zeichen.
              eins
    Auswahlknopf mit der Beschriftung "eins"
             
    Vordefinierter Bestätigungsbutton mit der Beschriftung "submit"
     

Übungsblatt 1
     

Übung 1: Fehlersuche
     
    Beim Programmieren kommt es auf jedes Zeichen an - manchmal sogar auf die Leerzeichen. Sie können in dieser Aufgabe einmal Ihre Augen üben. In dem folgenden Programm sind Syntaxfehler. Berichtigen Sie diese Fehler.

 
    #!/usr/bin/perl -w
    use strict; print 'Hallo, Zahl?" My $var=
    ;Chomp($var), print "$var
    eingeben\n"; print
    'Noch eine Zahl\n';my $var =
    ; Print "SUmme ist: $var + $var1\n"
     
    Was meinen Sie zu der Formatierung?
 
     

Übung 2: Ihr Name auf dem Bildschirm
     
    Schreiben Sie ein Perl-Programm, dass Ihren Namen auf dem Bildschirm ausgibt.
 
     

Übung 3: Zahlen ausgeben
     
    Schreiben Sie ein Perl-Programm, das die Zahlen 1, 2, 3 und 4 jeweils in eine Zeile auf dem Bildschirm schreibt.

 

Übung 4: Wahrheitswerte
     
    Schreiben Sie ein Testprogramm, das herausfindet, was die Vergleichsoperatoren in den folgenden Fällen zurückgeben:
     
    2 == 02
    2 eq "02"
    " 2" ne "+2"
     
    Können Sie eine Regel erkennen?

 

Übung 5: Die Eingabe doppelt
     
    Schreiben Sie ein Programm, das eine Zeile Text von der Tastatur einliest und zweimal auf dem Bildschirm ausgibt.

Übung 6: Zwei Zeilen Text
     
    Schreiben Sie ein Programm, das eine Zeile Text von der Tastatur liest, diese Zeile ausgibt, dann eine zweite Zeile einliest und diese Zeile dann wieder ausgibt.
 
     

Übung 7: Was erscheint?
     
    Was erscheint auf dem Bildschirm?
Sagen Sie vorher, was das folgende Programm ausgibt, bevor Sie das Programm ausprobieren.
     
    #!/usr/local/bin/perl
    use strict;
     
    my $eingabezeile = ;
    $eingabezeile = ;
     
    print( $eingabezeile );
     
     

Übung 8: Das Doppelte
     
    Schreiben Sie ein Programm, das eine Zahl verdoppelt. Sie sollen dazu eine Zahl von der Tastatur einlesen und das Doppelte der Zahl auf dem Bildschirm ausgeben.

 

Übung 9: Das Produkt zweier Zahlen
     
    Schreiben Sie ein Programm, das das Produkt zweiter Zahlen berechnet. Ihr Programm soll die beiden Zahlen von der Tastatur einlesen und dann das Produkt ausgeben.

 

Übung 10: km in Meilen und umgekehrt
     
    Schreiben Sie ein Programm, das eine Entfernung von der Tastatur liest und auf zwei Arten umrechnet: Zuerst wird die Zahl als Kilometerangabe betrachtet und nach Meilen umgerechnet, dann umgekehrt. Das Ergebnis wird auf dem Bildschirm ausgegeben.
Eine (amerikanische) Meile sind 1.609 km und umgekehrt ist ein Kilometer 0.6214 Meilen.

 
     
     

Lösungsblatt 1
     
    Lösung zu Übung 1:
     
    #!/usr/bin/perl -w
    use strict;
    print 'Hallo, Zahl? ';      # Strichpunkt fehlt,
                                # unterschiedliche
                                # Hochkommata
    my $var=;            # my mit grossem m
    chomp($var);                # chomp mit grossem C,
                                # Komma statt Strichpunkt
    print "$var eingeben\n";
    print "Noch eine Zahl\n";   # \n in einfachen
                                # Hochkommata
    my $var1 = ;         # gleicher Variablen-Name
                                # noch einmal benutzt
    print "Summe ist: $var + $var1\n"
     
     
    Lösung zu Übung 2:
     
    #!/usr/local/bin/perl -w
    use strict;
     
     
    print "Ich heisse Udo\n";
     
     
    Lösung zu Übung 3:
     
    #!/usr/local/bin/perl -w
    use strict;
    print "1\n2\n3\n4\n";
     
     
    Lösung zu Übung 4:
     
    print(2 == 02,"!\n");       # 1
    print(2 eq "02","!\n");     # ! (leerer String)
    print(" 2" ne "+2","!\n");  # 1
    # Sie sehen, dass false hier als leerer String
    # dargestellt ist.
     
     

Lösung zu Übung 5:
     
    #!/usr/local/bin/perl
    use strict;
     
    my $eingabezeile = ;
    print ($eingabezeile, $eingabezeile);
    Lösung zu Übung 6:
     
    #!/usr/local/bin/perl
    use strict;
    my $inputline = ;
    print( $inputline );
     
    $inputline = ;
    print( $inputline );
     
    Lösung zur Übung 7:
     
    #!/usr/local/bin/perl
    use strict;
     
     
    print("Geben Sie die Zahl ein,
           die verdoppelt werden soll:\n");
     
     
    my $zahl = ;
    $zahl= $zahl*