Opened by Kuerbis at 2013-05-23 10:29
User since
2012-07-18
1465 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2012-07-18
1465 Artikel
BenutzerIn
Beispiel 1 ist furchtbar
Beispiel 2 nur unschön ;)
Man kann das "my" in das while mit reinpacken, dann spart man sich jeweils die Zeile drüber.
Ansonsten siehts ein bisserl so aus als gings in Perl kürzer.
Sowas vielleicht (ungetestet)?
Last edited: 2013-05-24 10:08:53 +0200 (CEST)
Beispiel 2 nur unschön ;)
Man kann das "my" in das while mit reinpacken, dann spart man sich jeweils die Zeile drüber.
Ansonsten siehts ein bisserl so aus als gings in Perl kürzer.
Sowas vielleicht (ungetestet)?
Code (perl): (dl
)
1 2 3 4 5 6
my %inputs = (); for my $index ('input1', 'input2', 'input3') { while ( (my $char = ReadKey 0 ) =~ m/^[0-9]$/ ) { $inputs{$index} .= $char; } }
Last edited: 2013-05-24 10:08:53 +0200 (CEST)
1 + 1 = 10