ultibuzz has asked for the wisdom of the Perl Monks concerning the following question:
Hi all,
i've 5 variables and need to check if they are "" or full.
i need to check all possibility of combinations, i've done it with a if elsif construct and i'm asking myself "is there not a nicer way to do it ( without goto)"
my $name; my $vorname; my $plz; my $tel; my $tel49; if ($name) { if ($vorname) { if ($plz) { if ($tel) { if ($tel49) { $name , $vorname , $plz , $tel and $tel49 } $name , $vorname , $plz and $tel } $name , $vorname and $plz } $name and $vorname } elsif ($plz) { if ($tel) { if ($tel49) { $name , $plz , $tel and $tel49 } $name , $plz and $tel } $name and $plz } elsif ($tel) { if ($tel49) { $name , $tel and $tel49 } $name and $tel } elsif ($tel49) { $name and $tel49 } only $name } elsif ($vorname) { if ($plz) { if ($tel) { if ($tel49) { $vorname , $plz , $tel and $tel49 } $vorname , $plz and $tel } $vorname and $plz } only $vorname } elsif ($plz) { if ($tel) { if ($tel49) { $plz , $tel and $tel49 } $plz and $tel } only $plz } elsif ($tel) { if ($tel49) { $tel and $tel49 } only $tel } elsif ($tel49) { only $tel49 }
kd ultibuzz
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: A Case with 5 Var's
by GrandFather (Saint) on Jan 25, 2007 at 11:10 UTC | |
by ultibuzz (Monk) on Jan 25, 2007 at 12:45 UTC | |
by GrandFather (Saint) on Jan 25, 2007 at 21:56 UTC | |
Re: A Case with 5 Var's
by dorward (Curate) on Jan 25, 2007 at 10:42 UTC | |
by Fletch (Bishop) on Jan 25, 2007 at 13:36 UTC | |
by dorward (Curate) on Jan 25, 2007 at 13:43 UTC | |
Re: A Case with 5 Var's
by Ieronim (Friar) on Jan 25, 2007 at 10:49 UTC | |
by roboticus (Chancellor) on Jan 25, 2007 at 14:51 UTC | |
Re: A Case with 5 Var's
by Melly (Chaplain) on Jan 25, 2007 at 11:59 UTC | |
Re: A Case with 5 Var's
by ultibuzz (Monk) on Jan 25, 2007 at 12:18 UTC | |
by Corion (Patriarch) on Jan 25, 2007 at 12:29 UTC | |
| |
by davorg (Chancellor) on Jan 25, 2007 at 12:36 UTC | |
by ultibuzz (Monk) on Jan 25, 2007 at 16:13 UTC | |
by pemungkah (Priest) on Jan 25, 2007 at 20:09 UTC |
Back to
Seekers of Perl Wisdom