Perl schleife per tastendruck beenden (gelöst) - #173546 (Allgemeines zu Perl)

hlubenow

2014-02-14 21:06

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

Du bist an einem wichtigen Punkt des Programmierenlernens angekommen.

Bitte denke mal über dieses Beispiel (von Laura Lemay, "Perl in 21 Tagen", Tag 1) nach:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

# Kruemelmonster

my $kekse = "";
while ($kekse ne "KEKSE") {
    print 'ich will KEKSE: ';
    $kekse = <STDIN>;
    chomp($kekse);
}

print "Mmmm. KEKSE.\n";