if else contra ?: (Allgemeines zu Perl)

Crian

2004-08-06 14:27

User since
2003-08-04
5870 Artikel
ModeratorIn

Ich weiß, if und else ist leserlicher als ?:, aber manchmal ist letzteres übersichtlicher.

Ich habe mal gehört, intern würde jedes if-else in ?: umgewandelt werden.

Beim Versuch dies nachzubauen bin ich allerdings gerade gescheitert, mag an der Hitze liegen...

Also sowas wie

Code: (dl )

if (Bedingung) {
    Block 1
}
else {
    Block 2
}

=>

?

Es gibt doch dieses schöne deparse-Modul, wie heißt das nochmal? Meine Versuche dahingehend in die Perlschen Interna zu blicken schlugen fehl, entweder ist das Modul in der Stadnarddistri nicht dabei oder ich hab den Namen falsch erinnert oder beides ;)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

pq

2004-08-06 15:23

User since
2003-08-04
12208 Artikel
Admin1

hmm, wo hast du denn das gelesen?
B::Deparse zeigt das jedenfalls nicht an:

Code: (dl )

$ perl -MO=Deparse -wle'
$x = 1;
if ($x) {
 print 1
}
else {
 print 0
}'
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
$x = 1;
if ($x) {
    print 1;
}
else {
    print 0;
}
-e syntax OK

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

steffenw

2004-08-06 15:30

User since
2003-08-15
692 Artikel
BenutzerIn

Wenn's unbedingt Blöcke sein sollen:

Code: (dl )

(Bedingung) ? do{Block 1} : do{Block 2};

Ich nehme ? gern bei sowas:

Code: (dl )

my $familie = (
  Mutti => 40,
  Vati => 41,
  (@kinder ? map(($->{NAME} => $_->{ALTER}), @kinder) : ()),
);

\n\n

$SIG{USER} = sub {love 'Perl' or die};

kabel

2004-08-06 15:44

User since
2003-08-04
704 Artikel
BenutzerIn
[default_avatar]

der unterschied zwsichen if/else und ?: ist, dass letzteres ein ausdruck ist, also einen wert hat.
$x = if () ... {} ist dagegen sinnfrei.

EDIT: typo\n\n

-- stefan

Crian

2004-08-06 16:17

User since
2003-08-04
5870 Artikel
ModeratorIn

stimmt, dass muss ich irgendwie verwechseln, vielen Dank für Eure Ausführungen. Dann muss ich mich jedenfalls auch nicht wundern, es nicht (ohne die do's) hinzubekommen.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Ishka

2004-08-06 17:27

User since
2003-08-04
771 Artikel
HausmeisterIn

ich finde es ist nicht eine Lösung besser, sondern manchmal die eine und manchmal die andere. Perl bietet halte mehrere Lösungen.

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

betterworld

2004-08-06 23:04

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Ich finde es eigentlich dumm, dass if kein Ausdruck ist. Wenn es so waere, waeren beide Konstrukte gleichberechtigt, was einem mehr Freiheit beim Code-Design liesse.
Im Uebrigen ist if in Ruby ein Ausdruck.

Code: (dl )

1
2

$ ruby -e 'puts (if 3==7; then "komisch"; else "richtig"; end)'
richtig

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

esskar

2004-08-06 23:07

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

und was liefert dann

Code: (dl )

'puts (if 3==7; then "komisch"; end)'

?

betterworld

2004-08-06 23:17

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

nil

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

steffenw

2004-08-06 23:44

User since
2003-08-15
692 Artikel
BenutzerIn

[quote=betterworld,06.08.2004, 21:04]Ich finde es eigentlich dumm, dass if kein Ausdruck ist.[/quote]
Dann würde aber

Code: (dl )

print 'gefüllt' if @array;

nicht funktionieren können. Und das wäre traurig^3.\n\n

$SIG{USER} = sub {love 'Perl' or die};