Question

In Haskell (F#, Ocaml等),我可以这样做:

sign x |  x >  0        =   1
       |  x == 0        =   0
       |  x <  0        =  -1

计算特定分类的标识。

这可以简明扼要地表达某些逻辑流动;我曾碰到了Perl的这种流动。

我现在正在做的事情

sub frobnicator
{
   my $frob = shift;
   return "foo" if $frob eq "Foomaticator";
   return "bar" if $frob eq "Barmaticator";
   croak("Unable to frob legit value: $frob received");
}

那些人感到压迫和ug。

该法典必须从Perl 5.8开始,但当然,我也对更现代的技术感兴趣。

Answer 1

这里还有一种可能的办法,它仍然是一种不大的言辞,但也许反映了更好的流动。 (在《最佳做法》一书中,作者建议主要避免<代码>>>>的固定格式。) 因为你需要弄清了解正在发生的事情的权利的一切途径。如果能帮助强调情况,你可以添加括号。

sub sign
{
    my $x = shift;
    $x  > 0  and return  1;
    $x == 0  and return  0;
    $x  < 0  and return -1;
}

sub frobnicator
{
    my $frob = shift;

    $frob eq "Foomaticator" and return "foo";
    $frob eq "Barmaticator" and return "bar";

    croak("Unable to frob legit value: $frob received");
}

Answer 2

您可以使用有条件的经营者:

sub frobnicator {
  my $frob = shift;
  return $frob eq  Foomaticator  ?  foo  :
         $frob eq  Barmaticator  ?  bar  :
         croak("Unable to frob legit value: $frob received");
}

It turns your original example into something like:

sub sign {
  my $x = shift;
  return $x < 0 ? -1 :
         $x > 0 ?  1 :
                   0 ;
}

谁知道,只是多少,但从以下几个方面来看,情况就是如此:

Answer 3

sub sign { 
    my $x = shift;
    return $x <=> 0;
}

明示? 如果你知道,是。如果不是的话,情况并非如此。我要说,对你来说,表达一部 per法完全取决于你们对 per的熟悉。

I must say I ve no idea what you are after. To me, the code in your example is perfectly clear and not in the least ugly. There s always alternatives in perl, so how about:

sub frobnicator
{
   my $frob = shift;
   my %frobs = (
       Foomaticator    => "foo",
       Barmaticator    => "bar",
   );
   return $frobs{$frob} //  # If $frob is a defined key, return it
       croak("Unable to frob legit value: $frob received");
}

使用<条码>、<>>>>>>>>>>> >条码/代码,而不是<条码>/,但比照旧版本更为方便。

Answer 4

For what it s worth, Perl 5.10 or later gives you:

given

...which would allow:

...
use feature qw( switch say);
use Carp;
sub frobnicator {
    my $frob = shift;
    given ($frob) {
        when ( Foomaticator ) {
            return q(foo);
        }
        when ( Barmaticator ) {
            return q(bar);
        }
        default {
            croak(qq(Unable to frob legit value: $frob received));
        }
    }
}

友情链接