Codereview (gelöst) - #167782 (Allgemeines zu Perl)

Kuerbis

2013-05-24 09:30

User since
2011-03-20
943 Artikel
BenutzerIn
[default_avatar]

Ist es in so einem Fall üblich, die variable $c immer wieder zu verwenden oder sollte man jedes mal eine neue deklarieren?

Code (perl): (dl )

my $c;
my $x = '';
while ( ( $c = ReadKey 0 ) =~ m/^[0-9]$/ ) {
    $x .= $c;
}
my $y = '';
while ( ( $c = ReadKey 0 ) =~ m/^[0-9]$/ ) {
    $y .= $c;
}
my $z = '';
while ( ( $c = ReadKey 0 ) =~ m/^[0-9]$/ ) {
    $z .= $c;
}

Code (perl): (dl )

my $x = '';
my $c1;
while ( ( $c1 = ReadKey 0 ) =~ m/^[0-9]$/ ) {
    $x .= $c1;
}
my $y = '';
my $c2
while ( ( $c2 = ReadKey 0 ) =~ m/^[0-9]$/ ) {
    $y .= $c2;
}
my $z = '';
my $c3
while ( ( $c3 = ReadKey 0 ) =~ m/^[0-9]$/ ) {
    $z .= $c3;
}