Perl6: ฉันจะอ่านพารามิเตอร์แบบผสมจากบรรทัดคำสั่งได้อย่างไร

ฉันกำลังลบโพสต์เนื่องจากฉันไม่ได้ปรึกษาเรื่องการเซ็นเซอร์ / การแก้ไข

นี่คือตัวอย่างการใช้Getopt :: Long :

use v6;
use Getopt::Long;

my %opt = help => False, 'r=s' => "", 'q=s' => "", 'w=s' => "";
my %options = get-options(%opt).hash;
say %options;
say @*ARGS;

ตัวอย่างการเรียกใช้:

$ p.p6  -w xyz -q def -r abc hello
{help => False, q => def, r => abc, w => xyz}
[hello]

ใช้MAINย่อย :

#!/usr/bin/env raku

use v6;

sub MAIN(:$these ="These", :$are="Are", :$params="Params") {
    say "$these $are $params";
}

คุณสามารถพิมพ์พารามิเตอร์เหล่านี้ในลำดับใดก็ได้:

./command-line.p6 --are=well --these=those
those well Params

และจะจับพารามิเตอร์พิเศษใด ๆ เพื่อแสดงพารามิเตอร์จริง:

./command-line.p6 --are=well --these=those --not=this_one
Usage:
  ./command-line.p6 [--these=<Any>] [--are=<Any>] [--params=<Any>]

หากคุณสนใจเฉพาะพารามิเตอร์ที่มีเส้นประเดียวคุณจะต้องใช้ GetOpt :: Long ตามที่ระบุโดย Hakon