小编Eth*_*her的帖子

如果我有坐标,如何使用UCSC的Perl脚本提取DNA序列?

如果我有坐标,如何使用基因组浏览器(UCSC)的Perl脚本提取DNA序列?

perl bioinformatics

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

Perl中的双重索引,为什么会这样?

@a=(6,3,5,7);

@b=(@a[0..3])[2..3];

print @b;

#print 57
Run Code Online (Sandbox Code Playgroud)

但对于

@b=@a[0..3][2..3];
Run Code Online (Sandbox Code Playgroud)

我收到语法错误.有人能解释为什么吗?

arrays perl multidimensional-array

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

来自对象的DropDownList

如何从对象绑定DropDownlist DataText或DataValue字段.当有问题的对象处于第二级时,例如要绑定的对象不在返回的对象Users.ContactDetails.Telephone的第一级中,因为下面的代码不起作用:

ddl.DataSource = dal.dal_Users.GetAllUsers();
ddl.DataTextField = "Telephone";
Run Code Online (Sandbox Code Playgroud)

我已经尝试了一系列的想法,但似乎无法找到有关是否可以这样做的任何信息.

.net c# drop-down-menu

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

如何使用Perl进行日期时间比较并计算增量?

我从人类可读文本中提取了年,月,日,小时,分钟,秒和毫秒数据(它不是时间戳格式,而是类似于"X开始于HH:MM:SS.SSS on DD MMM YYYY"并结束于HH:MM:SS.SSSS on DD MMM YYYY"),因此对于每个记录的事件,我都有每个值.

但是,我需要将它们变成某种时间戳,这样我才能对它进行数学运算 - 我想确定事件的持续时间(结束时间 - 开始时间).我希望该time函数将采用参数,所以我可以创建两个任意times,但似乎并非如此.

如果可能的话,我想坚持我可以添加到项目中的核心Perl库或脚本中可用的功能,因为在目标计算机上安装CPAN模块会让每个人都头疼,如果有可能获得的话模块通过安全限制.

perl timestamp date

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

运算符重载工作但在C++中给堆栈溢出和崩溃

我写了这个Node类和=运算符重载函数,这是我可以让它编译和运行的唯一方法,但它只是溢出并炸弹我的程序.有人可以解决它,以便它的工作原理.我没有很多在C++中重载运算符的经验.我只想将Node对象设置为等于另一个Node对象.提前致谢!

class Node
{ 
   public:
      Node();
      int y;
      Node& operator=(const Node& n);
};

Node::Node(){ y = -1; }
Node& Node::operator=(const Node& n) { return *this = n; }
Run Code Online (Sandbox Code Playgroud)

.

Build issues:
1>c:\users\aaron mckellar\documents\school stuff\cs445\test\test\main.cpp(57) : warning C4717: 'Node::operator=' : recursive on all control paths, function will cause runtime stack overflow
1>Linking...
1>LINK : C:\Users\Aaron McKellar\Documents\School Stuff\CS445\Test\Debug\Test.exe not found or not built by the last incremental link; performing full link
Run Code Online (Sandbox Code Playgroud)

c++ stack-overflow operator-overloading

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

在Perl中使用POSIX ceil()的意外结果

我不能为我的生活弄清楚为什么以下产生它的结果.

use POSIX;
my $g = 6.65;
my $t = $g * 4;
my $r = $t - $g;
my $n = $r / $g;
my $c = ceil($n);
print "$c ($n)\n";
Run Code Online (Sandbox Code Playgroud)

Sigil-tastic,我知道 - 抱歉.

我已经为我的应用解决了这个问题,如下所示:

use POSIX;
my $g = 6.65;
my $t = $g * 4;
my $r = $t - $g;
my $n = $r / $g;
my $c = ceil("$n");
print "$c ($n)\n";
Run Code Online (Sandbox Code Playgroud)

......但我很困惑为什么这里有必要.

floating-point perl posix ceil

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

Python:将此检查重构为自己的方法是否有意义?

我还在学习python.我刚刚编写了这个方法,以确定一个玩家是否赢得了一个井字游戏,给出了一个董事会状态:'[['o','x','x'],['x','o','-'],['x','o','o']]'

def hasWon(board):
  players = ['x', 'o']
  for player in players:
    for row in board:
      if row.count(player) == 3:
        return player
    top, mid, low = board
    for i in range(3):
      if [ top[i],mid[i],low[i] ].count(player) == 3:
        return player
    if [top[0],mid[1],low[2]].count(player) == 3:
        return player
    if [top[2],mid[1],low[0]].count(player) == 3:
        return player
  return None
Run Code Online (Sandbox Code Playgroud)

在我看来,我多次检查3个字符列表,并可以将检查重构为自己的方法,如下所示:

def check(list, player):
  if list.count(player) == 3:
    return player
Run Code Online (Sandbox Code Playgroud)

...但后来意识到所有真正做的就是改变线条:

 if [ top[i],mid[i],low[i] ].count(player) == 3:
    return player
Run Code Online (Sandbox Code Playgroud)

至:

  if check( [top[i],mid[i],low[i]], player ):
    return player …
Run Code Online (Sandbox Code Playgroud)

python refactoring tic-tac-toe

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

安装新模块时dmake实际上在做什么?

我只是在经过多次努力后才重新安装perl/Tk模块.我意识到我不明白dmake或make等实际上在做什么.

我正在使用安装在C:\ strawberry的草莓perl.

Fisrt我将模块解压缩到另一个目录并运行perl makefile.pl,它工作正常.然后我尝试了dmake哪个不起作用.我想那些知道这是如何工作的人会很明显.

当我将模块放置为C:\ strawberry的子目录时,我可以运行perl makefile.pl,dmake,dmake test和dmake install.

我的猜测是dmake install正在向解释器添加一些可执行文件,并且工作模块必须在子目录中.是否有任何文章可以解释它在做什么?

perl strawberry-perl

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

如何使用perlbrew在我家安装Perl版本?

我已经安装了perlbrew,这似乎是一个很好的解决方案,但在实际尝试安装一些Perl版本时,我得到了一些毫无意义的错误:

$ perlbrew install perl-5.12.1
Attempting to load conf from /home/dave/perl5/perlbrew/Conf.pm
Fail to get http://search.cpan.org/dist/perl-5.12.1 (error: ) at /home/dave/perl5/perlbrew/bin/perlbrew line 1277.
Run Code Online (Sandbox Code Playgroud)

perl install perlbrew

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

未在mac上设置TERM环境变量

我一直在"未设置TERM环境变量".我在Mac终端上使用svn命令时出错.

我以为我通过以下方式设置了我的个人资料:

export SVN_EDITOR=/usr/bin/nano
export EDITOR=/usr/bin/nano
Run Code Online (Sandbox Code Playgroud)

在.profile和.bash_profile中,重置终端,它仍然给我这个错误.

有帮助吗?

unix macos shell environment

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