数组 – 如何在Perl中向数组中添加重复的值？

原文

我有一个数组@genotypes =“TT AG TT AG ….”，并希望添加一个尖峰(例如20 x TT)来创建一个新数组。

我可以明显地将“TT”推到数组中20次 – 但是有更简单的做法吗？ (即不是@newarray = push @genotypes(“TT”，“TT”，“TT”，…… 20次！);

解决方法

@newlist = (@genotypes,('TT') x 20);

是的，这是一个x。

见Multiplicative Operators in perldoc perlop。

数组 – 如何在Perl中向数组中添加重复的值？的更多相关文章

  1. Apache2的httpd.conf翻译

    ##这是Apache服务器主要配置文件。#参见以取得关于这些指令的详细信息##不要只是简单的阅读这些指令信息而不去理解它。#这里只是做了简单的说明，如果你没有参考在线文件，你就会被警告。

  2. Content-type 的说明

  3. 使用PHP模拟HTTP认证

    一个简单的PHP脚本可以通过发送适当的HTTP头以在客户机屏幕自动显示用户名/口令对话框以模拟HTTP认证请求/响应系统。PHP将用户输入对话框的信息存储在$PHP_AUTH_USER和$PHP_AUTH_PW变量中。如正使用PHP的CGI版本，则将仅限于使用基于htaccess认证或基于数据库的认证方式，并通过HTML表单让用户输入用户名和口令，然后再让PHP完成有效性的检查。

  4. 七、HTTP应答状态

    由于状态信息直接和状态代码相关，而HTTP版本又由服务器确定，因此需要Servlet设置的只有一个状态代码。应当谨慎地使用那些只有HTTP1.1支持的状态代码，因为许多浏览器还只能够支持HTTP1.0。注意，在HTTP1.0中对应的状态信息是“MovedTemporatily”，而HttpServletResponse中相应的常量是SC_MOVED_TEMPORARILY，而不是SC_FOUND。

  5. 八、设置HTTP应答头

    设置HTTP应答头往往和设置状态行中的状态代码结合起来。设置应答头最常用的方法是HttpServletResponse的setHeader，该方法有两个参数，分别表示应答头的名字和值。对于支持持久HTTP连接的浏览器来说，这个函数是很有用的。注意，本例除了说明HTTP应答头的用处之外，还显示了Servlet的另外两个很有价值的功能。

  6. 基于Python+Pygame实现经典赛车游戏

    这篇文章主要为大家分享了一个基于Python和Pygame实现的赛车小游戏，文中的示例代码讲解详细，对我们学习Python有一定帮助，需要的可以参考一下

  7. 用Java实现HTTP文件队列下载

    在Internet上很多的资源分成多个文件存放时，它的文件命名是有一定的规则的；正因如此，我们就可以用程序来完成这个资源的完全下载。这里就不再多描述了，访问的Java代码如下://设置代理服务器System.getProperties().put;System.getProperties().put;System.getProperties().put;4.网络资源的保存在上节中，我们已经获取了指定网络资源的输入流，接下来我们要完成的就是读取输入流中的所以内容，并将其保存在文件中。

  8. IBM HTTP Server 远程溢出漏洞

    涉及程序： GET 描述： 通过提交超长的GET请求导致IBM HTTP Server远程溢出详细： IBM 的 HTTP 服务器是一个 web 服务器。在 Windows NT 使用的版本中存在拒绝服务的漏洞。如果提交一个超过219个字符的 GET 请求，将导致服务器停止响应，并报错。要恢复服务正常工作需要重新启动应用程序。成功的利用该漏洞，攻击者可在受害的主机上执行任何代码。（但这还未得到完全

  9. 五、读取HTTP请求头

    5.1 HTTP请求头概述 　　 HTTP客户程序（例如浏览器），向服务器发送请求的时候必须指明请求类型（一般是GET或者POST）。如有必要，客户程序还可以选择发送其他的请求头。大多数请求头并不是必需的，但Content-Length除外。对于POST请求来说Content-Length必须出现。 　　 下面是一些最常见的请求头： Accept：浏览器可接受的MIME类型。 Accept-Cha

  10. 如何在JavaScript中创建实例的实例

    我想制作一组不同人可以容纳的汽车的独特实例.汽车将具有相似的基本规格,但它们的一些属性和方法会有所不同.我遇到的问题是我无法弄清楚它应该如何工作.您如何在JavaScript中处理或创建实例实例？

随机推荐

  1. 数组 – Perl中有什么神奇的数组？

    在Perldocumentationforreverse中,我发现：“请注意,将数组反转到自身(如@a=reverse@a)将尽可能保留不存在的元素;即对于非魔法数组或具有EXISTS和DELETE方法的绑定数组.什么属性区分神奇和非魔法阵列？解决方法一个神奇的阵列是一个执行它的操作不仅仅是改变内容.只有内置的魔术阵列是@ISA,而且这是非常不明显的.正如句子所暗示的,魔术阵列主要是一个绑定的阵列

  2. perl – 使用“isa”方法的最佳方式？

    什么是“最好的”使用方式“isa()”可靠？解决方法Scalar::Util实现明确更好.它避免了eval{}的开销,它总是导致设置一个附加变量.Scalar::Util实现更容易阅读.如果eval也失败了,我相信发生的是你在树之前向后走到eval之前的状态–这是如何实现复位状态.这带来了额外的故障开销.基准根本不是一个对象对象传递isa检查对象出现故障现象检查测试代码：我使用这是为i486-linux-gnu-thread-multi建立的perl,v5.10.1(*),以及Scalar::Util,1

  3. 在CORE :: GLOBAL中哪些Perl内置函数不能被覆盖？

    解决方法toke.c中任何值为负的值都可以被覆盖;所有其他人可能不会.你可以看源码here.例如,我们来看看第10,396行的waitpid：由于waitpid为负数,因此可能会被覆盖.grep怎么样？这是积极的,所以不能被覆盖.这意味着以下关键字不能被覆盖：chop,defined,delete,do,dump,each,else,elsif,eval,exists,for,foreach,format,glob,goto,grep,if,keys,last,local,m,map,my,next,no

  4. 如何在Perl中打印由换行符分隔的列表元素？

    什么是最简单的打印所有列表的元素以Perl中的换行符分隔的元素？解决方法在Perl5.10中：其他方式：或：或者怎么样？

  5. 使用Perl如何获取文件大小(以兆字节为单位)？

    我想以磁盘的形式获取磁盘上的文件大小.使用-s运算符给出了以字节为单位的大小,但是我将假设,然后将其除以魔术数字是一个坏主意：我应该使用只读变量来定义1024,还是有一种编程方式来获取一千字节的字节数？

  6. perl – 如何测试/分类CPAN模块的utf8正确性

    例如：File::Slurp,如果你将读取该文件您将根据命令行开关获得不同的结果,并且perl-CSDA将无法正常工作.伤心.(是的,我知道比Encode::decode(“utf8”,read_file($file,binmode=>’：raw’));将帮助,但是SAD.我的问题：>在这里任何首选方式,如何测试/分类什么CPAN模块是utf8安全/准备/正确？>这里是像Perl::Criticforutf8这样的东西–什么将检查模块源可能的utf8不正确？总结以上是DEVMAX为你收集整理的perl–如

  7. 如何删除Perl字符串中的空格？

    如果我声明一个值为’3’的变量$myString.是否有任何功能来删除返回值的空格.有点像SomeFun然后返回’3′.输出：你可以注意到’vid’=>‘0’,上面的代码从theanswer.我正在研究它.总结以上是DEVMAX为你收集整理的如何删除Perl字符串中的空格？如果觉得DEVMAX网站内容还不错，欢迎将DEVMAX网站推荐给好友。

  8. 如何在mod_perl2下运行Devel :: Cover？

    Unfortunately,Devel::Coverdoesnotyetworkwiththreads.它也不适用于prefork.在startup.pl中使用,Devel::Cover问题perl5.8.9,Apache2.2.13.我的操作系统是FreeBSD,如果重要.同样的问题是reportedforwin32.更新：PerlTrace全部输出解决方法邪恶之源似乎是Apache::DBI.

  9. 如何使用Perl中的C类？

    我有一套用C写的课.从Perl脚本中调用它们的最佳方法是什么？

  10. perl – 在Emacs中以双模式更好的缩进

    我正在使用Emacs来修改Perl和Verilog交织的代码.我正在使用two-mode-mode在两者之间切换,这样可以预期.问题是perl代码与//一行一行地表示;如下图所示：而双模式则认识到它是Perl,它是逐行的,所以缩进等在线上无意义.我想做的是使Perl代码像往常一样格式化,但忽略//;字符.有什么想法吗？我刚刚开始偷看模式文件,它们是可以理解的复杂的,所以任何提示都不会感激！

返回
顶部