如何将复数从命令行传递到次MAIN？

Question

我有以下一些琐碎的脚本：

#!/usr/bin/env perl6

use v6.c;

sub MAIN($x)
{
    say "$x squared is { $x*$x }";
}

当用实数调用它时，这是非常好的，但是我也想把复数传递给它。当我按原样尝试时，会发生以下情况：

% ./square i
Cannot convert string to number: base-10 number must begin with valid digits or '.' in '⏏i' (indicated by ⏏)
  in sub MAIN at ./square line 7
  in block <unit> at ./square line 5

Actually thrown at:
  in sub MAIN at ./square line 7
  in block <unit> at ./square line 5

当我改变我的脚本

#!/usr/bin/env perl6

use v6.c;

sub MAIN(Complex $x)
{
    say "$x squared is { $x*$x }";
}

它完全停止工作：

% ./square i
Usage:
  square <x>

% ./square 1
Usage:
  square <x>

在当前的Perl 6中有任何方法可以做到这一点吗？

Answer 1

如果您使用从Str到Complex的Coercive type declaration，它的工作效果要好得多：

sub MAIN(Complex(Str) $x)
{
    say "$x squared is { $x*$x }";
}

然后：

% ./squared.pl 1
1+0i squared is 1+0i
% ./squared.pl 1+2i
1+2i squared is -3+4i

Answer 2

实际上，你写的东西效果很好。

$ ./test.pl6 2+3i
2+3i squared is -5+12i

这个问题之所以出现，是因为您实际上并没有在命令行上给它一个Complex号。

$ ./test.pl6 2
Usage:
  ./test.p6 <x> 

您真正想要的是强迫其他Numeric类型使用Complex。因此，您应该编写如下内容。

#!/usr/bin/env perl6

use v6.c;

sub MAIN ( Complex(Real) $x ) {
    say "$x squared is { $x*$x }";
}

我使用的是Real而不是Numeric，因为Complex已经解决了其余的问题。