小编Joh*_*n C的帖子

如何在vba中为excel初始化多维数组变量

微软网站显示下面的代码应该工作:

Dim numbers = {{1, 2}, {3, 4}, {5, 6}}

但是,当我尝试在excel VBA模块中使用它时,我收到了一个complile错误.以下适用于一维数组:

A = Array(1, 2, 3, 4, 5)

但是我还没有找到一种方法来为2D数组做同样的事情.有任何想法吗?

arrays excel vba excel-vba

11
推荐指数
2
解决办法
3万
查看次数

如何停止RSpec警告消息

我刚刚开始学习在我的rails应用程序上使用RSpec.这一切似乎都运行正常,但是当我运行时,rspec spec我得到了我认为是lint消息的页面和页面.

我不介意那些引用我的代码,但很多都是指我正在使用的Gems.我无法解决这些问题.

如何配置RSpec仅将lint应用于我的代码而不是外部Gems?

这是一个小样本.我收到了超过2000行的这些东西.

/Users/jcreasey/.rvm/gems/ruby-2.0.0-p0/gems/sorcery-0.8.5/lib/sorcery/model.rb:265: warning: method redefined; discarding old username_attribute_names=
/Users/jcreasey/.rvm/gems/ruby-2.0.0-p0/gems/activesupport-3.2.18/lib/active_support/dependencies.rb:251: warning: loading in progress, circular require considered harmful - /Users/jcreasey/.rvm/gems/ruby-2.0.0-p0/gems/sorcery-0.8.5/lib/sorcery.rb
    from /Users/jcreasey/.rvm/gems/ruby-2.0.0-p0/bin/ruby_noexec_wrapper:14:in `<main>'
    from /Users/jcreasey/.rvm/gems/ruby-2.0.0-p0/bin/ruby_noexec_wrapper:14:in `eval'
    from /Users/jcreasey/.rvm/gems/ruby-2.0.0-p0/bin/rspec:23:in `<main>'
    from /Users/jcreasey/.rvm/gems/ruby-2.0.0-p0/bin/rspec:23:in `load'
    from /Users/jcreasey/.rvm/gems/ruby-2.0.0-p0/gems/rspec-core-3.0.0/exe/rspec:4:in `<top (required)>'
    from /Users/jcreasey
Run Code Online (Sandbox Code Playgroud)

这是我的.rspec文件

-color
--warnings
--require spec_helper
Run Code Online (Sandbox Code Playgroud)

rspec ruby-on-rails

9
推荐指数
1
解决办法
2874
查看次数

Perl Flip Flop运算符和行号

我在看另一个问题时注意到了这一点......

如果我有这样的脚本:

while (<>) {
  print if 5 .. undef;
}
Run Code Online (Sandbox Code Playgroud)

它会跳过第1..4行,然后打印文件的其余部分.但是如果我试试这个:

my $start_line = 5;
while (<>) {
  print if $start_line .. undef;
}
Run Code Online (Sandbox Code Playgroud)

它从第1行打印.任何人都可以解释原因吗?

实际上我甚至不确定为什么第一个有效.

嗯,进一步研究这个我发现这有效:

my $start = 5;
while (<>) {
  print if $. ==  $start .. undef;
}
Run Code Online (Sandbox Code Playgroud)

所以第一个版本神奇地使用了$.哪个是行号.但我不知道为什么它失败了变量.

perl operators flip-flop

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

perl等于字符串比较即使它们相等也返回false

我有这个脚本,其目标是比较/ var/adm/messages并检查当前最后一行是否与已检查的最新行相等.问题是即使字符串相同仍然脚本将它们视为不相等并继续if语句.这是脚本:

#!/usr/bin/perl

use strict;
use warnings;

open (MESSAGES, "tail -1 /var/adm/messages |" ) || die "failed to open alarms file \n$!\n\a";
open (ERRORLOG, ">>/usr/local/bin/mcdl_errors.log") || die "failed to open errorlog file \n$!\n\a";

my $last_line = `cat /usr/local/bin/line.txt`;


while (my $this_line = <MESSAGES>) {

  chomp($this_line);

  if ($this_line =~ m/inet|hyena|root/i) {

    if ($this_line ne $last_line) {

      print "$this_line\n";
      print "$last_line\n";    
      `echo $this_line > /usr/local/bin/line.txt`;

    }    
  }
} 

close (MESSAGES);
close (ERRORLOG);
Run Code Online (Sandbox Code Playgroud)

perl

0
推荐指数
1
解决办法
73
查看次数

标签 统计

perl ×2

arrays ×1

excel ×1

excel-vba ×1

flip-flop ×1

operators ×1

rspec ×1

ruby-on-rails ×1

vba ×1