小编sco*_*art的帖子

#!/usr/bin/perl -sw
use strict;
use warnings;
use Getopt::Long;

my $remote = 0;
my $test = 0;
GetOptions ('remote' => \$remote, 'test' => \$test);
print "$remote:$test\n";

perl test.pl --remote --test

以上打印"0:0".我是Perl的新手,所以我无法确定为什么这不起作用.

我还运行了http://perldoc.perl.org/Getopt/Long.html#Simple-options中的"简单选项"部分,但也没有产生任何内容.

我在基类中有一个属性,我不想因为任何原因而被覆盖.它为类分配一个ID,以便与我创建的ThreadQueue一起使用.我认为没有任何理由让任何人覆盖它.我想知道如何阻止任何人试图覆盖它而不改变它的修饰符.

private int _threadHostID = 0;
    public int ThreadHostID
    {
        get
        {
            if (_threadHostID == 0)
            {
                _threadHostID = ThreadQueue.RequestHostID();
            }
            return _threadHostID;
        }
    }

编辑:完全忘记了语言:C#.

编辑2:它不是虚拟的或覆盖其他任何东西所以请不要sealed.