小编nsl*_*mnx的帖子

哪个正则表达式运算符意味着"不要"匹配此字符?

*, ?, +字符都意味着匹配这个字符.哪个字符意味着'不'匹配这个?例子会有所帮助.

regex

73
推荐指数
4
解决办法
16万
查看次数

Eclipse的C#插件

Eclipse中的C#是否有一个好的工作插件?我正在使用Linux机器,所以我无法访问Visual Studio Express.我已经有一个完美的Eclipse环境可以满足我的需求,所以如果可能的话,我不想处理多个IDE.它不需要代码完整,但突出显示和编译会很好.

c# eclipse linux eclipse-plugin

40
推荐指数
2
解决办法
9万
查看次数

评估骰子滚动符号字符串

规则

编写一个接受字符串作为参数的函数,以骰子表示法返回表达式的计算值,包括加法和乘法.

为了清楚起来,EBNF对法律表达的定义如下:

roll ::= [positive integer], "d", positive integer
entity ::= roll | positive number
expression ::= entity { [, whitespace], "+"|"*"[, whitespace], entity }
Run Code Online (Sandbox Code Playgroud)

示例输入:

  • "3d6 + 12"
  • "4*d12 + 3"
  • "D100"

不禁止使用eval函数或类似函数,但我鼓励在不使用这些函数的情况下求解.欢迎重新入门.

我无法提供测试用例,因为输出应该是随机的;).

格式化答案的标题:语言,n个字符(重要说明 - 没有评估等)


我的红宝石溶液,92 81个字符,使用eval:

def f s
eval s.gsub(/(\d+)?d(\d+)/i){eval"a+=rand $2.to_i;"*a=($1||1).to_i}
end
Run Code Online (Sandbox Code Playgroud)

另一种红宝石的解决方案,而不是更短(92个字符),但我觉得很有意思-它仍然使用eval但这次颇有创意的方式.

class Fixnum
def**b
eval"a+=rand b;"*a=self
end
end
def f s
eval s.gsub(/d/,'**')
end
Run Code Online (Sandbox Code Playgroud)

language-agnostic expression-evaluation dice

21
推荐指数
3
解决办法
4716
查看次数

如何在eclipse diff中忽略CVS关键字标签

我喜欢eclipse diff/merge透视图,当处理大型项目和需要偶尔合并的多个分支时,缺少一个特性:

有没有办法设置eclipse diff来忽略CVS标签,比如$ Author:$,$ Revision:$等等?

由于这些标签在所有分支中都是不同的,因此"与另一个分支比较"总是会导致几百个文件显示不同的标签,但代码中没有明显的差异.(当然标签只有在修复了分支和头部的几百个文件中的错误之后才会有所不同.但是在我工作的地方发生了很多错误.请不要发表评论.)

eclipse cvs

10
推荐指数
1
解决办法
2428
查看次数

Android中的@Override注释

我是Java和Android编程的新手.我遇到的问题是,在浏览了几本书,论坛和网站之后,我对@override注释的作用并不清楚.据我所知,这意味着何时一个方法被覆盖.但为什么在android中需要它.我在java的源代码中很少看到它,但在android中一直都是这样.

java android

10
推荐指数
2
解决办法
5881
查看次数

去 - 打印项目之间没有空格

fmt.Println("a","b")
Run Code Online (Sandbox Code Playgroud)

我想打印没有空格填充的两个字符串,即"ab",但上面将打印"a b".

去fmt

我只是切换到使用Printf

fmt.Printf("%s%s\n","a","b")
Run Code Online (Sandbox Code Playgroud)

go

8
推荐指数
2
解决办法
4835
查看次数

如何从 Perl DBIx::Class 文件生成 SQL 模式?

请告诉我如何从我的 PerlDBIx::Class文件生成 SQL 模式?

基本上是 make_schema_at 中的相反DBIx::Class::Schema::Loader

我已经构建了 Perl 模式文件,我只想在我的 SQL 数据库中重新创建模式。

我似乎找不到来自 Perl -> SQL 的示例。

提前谢谢了。

sql perl dbix-class

6
推荐指数
1
解决办法
332
查看次数

使用Modern :: Perl时Perl :: Critic'在限制之前的代码'

我知道最好使用Modern :: Perl而不是使用严格和警告.

使用默认选项,Perl :: Critic v1.121会在严格之前抱怨代码,即使在代码之前使用"使用Modern :: Perl"也是如此.

问题:如下所示更新perlcriticrc配置的最佳解决方案,还是有更好的方法?

下面的配置来源

cat~/.perlcriticrc

[TestingAndDebugging::RequireUseStrict]
equivalent_modules = Modern::Perl

[TestingAndDebugging::RequireUseWarnings]
equivalent_modules = Modern::Perl
Run Code Online (Sandbox Code Playgroud)

另外值得注意: 开发者讨论在这里

perl strict perl-critic

6
推荐指数
1
解决办法
2311
查看次数

Perl Best Practice是否允许在字符串中使用方法名称?

Perl最佳实践允许使用以下代码吗?

my $method_name = q{someMethod};
$self->$method_name();
Run Code Online (Sandbox Code Playgroud)

我知道这是可疑的风格,但PBP有什么可说的吗?

perl

5
推荐指数
1
解决办法
153
查看次数

如果有任何更改,需要进行以下Perl eval子弹证明?

eval {
    # here is put some code that may throw exception
    return 1;
} or do {
   my $error = $@;
   # Handle error.
};
Run Code Online (Sandbox Code Playgroud)
  1. 以下样式是否可以防止$ @未正确设置?
  2. 以下"1"是什么 防范?
  3. 是"或做{"比说"if($ @){"更好吗?如果是这样,为什么?

perl exception-handling

4
推荐指数
1
解决办法
196
查看次数

如何从 perl 哈希引用设置标量列表?

如何从 perl 哈希设置标量列表?

use strict;
my $my_hash = { field1=>'val1', field2=>'val2', field3=>'val3', };
my ($field1,$field2,$field3) = %{$my_hash}{qw(field1 field2 field3)};

print "field1=$field1\nfield2=$field2\nfield3=$field3\n";
Run Code Online (Sandbox Code Playgroud)

perl hashref

3
推荐指数
1
解决办法
104
查看次数

是Perl Do-While被认为是最佳实践(AKA专业编码标准)还是应该使用替代方案?

在Perl编程时使用Do-While被认为是最佳实践(AKA专业编码标准)?

my $continue = 1;
do {
    # When time to break the loop.
    $continue = 0;
} while ($continue);
Run Code Online (Sandbox Code Playgroud)

或者应该使用替代方案,例如......

MYLOOP: while(1){
    # When time to break the loop.
    last MYLOOP;
}
Run Code Online (Sandbox Code Playgroud)

perl

3
推荐指数
1
解决办法
306
查看次数

如何从 Perl hashref 中提取多个值?

如何将 Perl hashref 解压缩为多个命名标量变量?

我已经看到它完成了,但似乎无法使其发挥作用。

假设给定的以及to$hashref的定义,这是我的尝试:$arg1$arg3

my $hashref = { arg1 => 'val1', arg2 => 'val2', arg3 => 'val3',};
my ($arg1,$arg2,$arg3) = @{%$hashref}[qw(arg1 arg2 arg3)]; 
Run Code Online (Sandbox Code Playgroud)

perl hashref

2
推荐指数
1
解决办法
326
查看次数