Programmierstilfrage - "given - when" (gelöst) (Allgemeines zu Perl)

[thread]17281[/thread]

Programmierstilfrage - "given - when" [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+5 replies

Kuerbis

2012-03-31 18:41

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

Hallo,

ist dieses if im given in Ordnung oder würde man das normalerweise nicht so machen?

Code (perl): (dl )

#!/usr/bin/env perl
use warnings;
use 5.12.0;

my $extra = 1;


print 'key enter: ';
my $c = <>;
chomp $c;

given ( $c ) {
    when ( 'a' ) {
        say 'a';
    }
    when ( 'b' ) {
        say 'c';
    }
    if ( $extra ) {
        when ( 'd' ) {
            say 'd';
        }
        when ( 'e' ) {
            say 'e';
        }
    }
    when ( 'z' ) {
        say 'z';
    }
    default {
        say 'something else';
    }
}

lichtkind

2012-03-31 19:55

User since
2004-03-22
5708 Artikel
ModeratorIn + EditorIn

probiers doch aus, mir kam bisher die idee nicht. köntne aber gehen da given nur $_ setzt das ja lexikalisch lokal um subblock immer noch gültig ist.
Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
+2 replies

bianca

2012-03-31 19:55

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Mittendrin ein if im given Block??
Funktioniert das denn wie erwartet?
Thomas hat mal was zu given geschrieben: http://thomas-fahle.blogspot.de/2008/02/perl-510-s...

10 print "Hallo"
20 goto 10

Kuerbis

2012-04-01 08:41

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

In diesem einfachen Beispiel hat es funktioniert.
Auf deiner verwiesen Seite habe ich zwei Alternativen gefunden:

Code (perl): (dl )

given ( $c ) {
    when ( 'a' ) {
        say 'a';
    }
    when ( 'b' ) {
        say 'b';
    }
    when ( $extra == 1 and $c eq 'd' ) {
        say 'd';
    }
    when ( $extra == 1 and $c eq 'e' ) {
        say 'e';
    }
    when ( 'z' ) {
        say 'z';
    }
    default {
        say 'something else';
    }
}

Diese Art finde ich schwerer zu warten und ist vermutlich langsamer.
Die zweite Alternative:

Code (perl): (dl )

given ( $c ) {
    when ( 'a' ) {
        say 'a';
    }
    when ( 'b' ) {
        say 'b';
    }
    when ( $extra == 1 ) {
        when ( 'd' ) {
            say 'd';
        }
        when ( 'e' ) {
            say 'e';
        }
        continue;
    }
    when ( 'z' ) {
        say 'z';
    }
    default {
        say 'something else';
    }
}

Dabei finde ich, dass man mit einem if Statement die Stelle schneller findet/besser erkennen kann. Außerdem kann man das continue nicht vergessen.

Kuerbis

2012-04-01 08:44

User since
2011-03-20
957 Artikel
BenutzerIn

Da es keine Einwände gab, werde ich es mit dem if Statement versuchen.

View all threads created 2012-03-31 18:41.