[Perl] if else vraagje

[usr-local-dick]

Klein vraagje ik heb onderstaande code, werkt prima:

Perl:

if(get_list_id(reverse split("@", $list)) {
  $id = get_list_id(reverse split("@", $list);
}elsif(get_list_id($args{domain}, $list) {
  $id = get_list_id($args{domain}, $list);
}else{
  $id = undef;
}

Alleen ik doe nu functie calls naar get_list_id twee keer bij een match.
Een keer om te checken of de call lukt, daarna om het resultaat in een variable te zetten.
Is het niet mogelijk om het resultaat van zo'n matchende IF te bewaren en te gebruiken in het code block waar daarop volgt?

[ Voor 8% gewijzigd door usr-local-dick op 29-01-2007 12:30 ]

[BtM909]

code kan je tussen [code=perl][/code] blokken plaatsen. Leest wat overzichtelijker

[BCC]

$var = get_list_id(reverse split("@", $list)
if ($var)
$id = var

[ Voor 10% gewijzigd door BCC op 29-01-2007 11:31 ]

[Grijze Vos]

BCC schreef op maandag 29 januari 2007 @ 11:30:
$var = get_list_id(reverse split("@", $list)
if ($var)
$id = var

Wat dacht je van:

Perl:

if( $var = get_list_id(reverse split("@", $list) )
  $id = var

Zou ook moeten werken in Perl.

TS zijn code wordt dan:

Perl:

if (!($id = get_list_id(reverse split("@", $list))) 
  if(!($id = get_list_id($args{domain}, $list))
    $id = undef;
}

Heel compact, maar wel ontzettend onleesbaar.

[ Voor 26% gewijzigd door Grijze Vos op 29-01-2007 11:34 ]

[BCC]

Grijze Vos schreef op maandag 29 januari 2007 @ 11:32:
Heel compact, maar wel ontzettend onleesbaar.

The power of perl

[usr-local-dick]

Thanks jongens, ik heb em aangepast nu.

[muba]

Ik zou hem sowieso zo doen:

Perl:

use strict;
use warnings;
# Common practice..

# ...
# ... rest van de code ...
# ...

my $id = get_list_id(reverse split("@", $list)
        ||  get_list_id($args{domain}, $list)
        ||  undef;
# Niks geen fratsen met if-elsif-else, gewoon logical OR.   
# Scheelt ook nogal wat regels


# ...
# ... En weer door met de rest van de code ...
# ...

[Grijze Vos]

BCC schreef op maandag 29 januari 2007 @ 11:49:
[...]

The power of perl

Nog nooit met perl gewerkt zelf, maar syntactisch gezien kun je iets soortgelijks doen in php, en c/c++ ook lijkt me.

[Soultaker]

Zo is 't nog makkelijker:
Excuses, ik had MUBA's reactie over het hoofd gezien. Dat lijkt me ook de beste methode.

edit:
Volgens mij mist de code in de TS, en daardoor ook MUBA's code, wat sluitende haakjes?

[ Voor 81% gewijzigd door Soultaker op 30-01-2007 16:41 ]

[muba]

Soultaker schreef op dinsdag 30 januari 2007 @ 16:38:

Volgens mij mist de code in de TS, en daardoor ook MUBA's code, wat sluitende haakjes?

Puh, je hebt gelijk. Copy/paste... Nouja, you get what you pay for, zullen we maar zeggen.
Bij deze de fix:

Perl:

use strict;
use warnings;
# Common practice..

# ...
# ... rest van de code ...
# ...

my $id = get_list_id( reverse split("@", $list) )     # Stomme haakjes...
        ||  get_list_id($args{domain}, $list)
        ||  undef;
# Niks geen fratsen met if-elsif-else, gewoon logical OR.   
# Scheelt ook nogal wat regels


# ...
# ... En weer door met de rest van de code ...
# ...