如何在Perl中预先分配一个字符串？

我有一个Perl脚本来处理很多数据.有一堆字符串变量开始小,但是由于重复使用点运算符,所以变长很长.以这种方式增长字符串会导致重复重新分配？如果是的,是否有预先分配字符串的方法？解决方法替代的建议,将更容易应付：push字符串到阵列和join它完成后.

如何将数组转换为Perl中的散列？

我有一个数组,并尝试将数组内容转换为具有键和值的哈希值.索引0是一个键,索引1是一个值,索引2是一个键,索引3是一个值等.但它并没有产生预期的结果.代码如下：产出的产量不正确：在输出中,您可以看到散列仅由一部分组成,数组的另一部分不会在散列中创建.谁能帮忙？解决方法没有比它更多：

如何使用Perl列出目录中的所有文件？

我通常使用类似的东西或者有时候我使用glob,但无论如何,我总是需要添加一两行来过滤掉.这是非常烦人的.你通常如何去做这个常见的任务？解决方法我通常会使用glob方法：这样工作正常,除非目录中有很多文件.在这些情况下,您必须在while循环中切换回readdir：通常,如果我正在一个目录中读取一堆文件,我想以递归方式读取它们.在这些情况下,我使用File::Find：

为什么Perl认为-1是真的？

至少在5.10上工作,Unix和MacOSX：这使解决方法如果有什么,可以说-1更可能是真的,因为-1是0的逐位否定.BASIC和GW-BASIC在需要返回真值时使用-1.无论如何,Perl认为意味着“空”或“无”的价值是虚假的.大多数语言也有类似的看法.具体来说,整数为零,浮点零,字符串为零,空字符串和undef为false.这是documented,尽管文档措辞不好.除了一致性,采取这种方法是非常有用的.例如,它允许使用代替

如何使用Perl来确定两个文件的内容是否相同？

这个问题来自于需要确保对代码所做的更改不会影响其输出到文本文件的值.理想情况下,我会滚动一个子文件来取得两个文件名,并返回1或返回0,这取决于内容是否相同,空格和所有内容.鉴于文本处理是Perl的堡垒,应该很容易比较两个文件并确定它们是否相同.我想到的唯一方法是打开这两个文件,并逐行阅读,直到找到一个差异.如果没有发现差异,文件必须相同.但这种做法有限而且笨拙.如果两个文件的总行不一致怎么办？

可以在Perl中初始化一个给定大小的数组吗？

我在代码中有一个部分,我知道我将需要一个数组,我知道数组中需要有多少个元素.这段代码将重复很多,所以我可以通过首先将该数组初始化为我所知道的大小,然后填充它,而不是仅仅推送项目.也就是说,我似乎没有找到任何优雅的方式将数组初始化为给定的大小,我不知道为什么.我知道我可以做：我的@array$array[49]=0;得到一个50项目数组,但这看起来真的很丑,我觉得好像必须有一个更好的方法.想法？

在开发过程中,如何将Perl警告推广到致命错误？

相反,我做到了这一点：这是有效的,但有一个代码的气味.我也不喜欢它在第一个警告上炸弹.我宁愿测试套件运行完整,记录所有警告,但测试状态最终失败,因为代码运行警告.有没有更好的方法来达到这个最终结果？解决方法我想你正在寻找Test::NoWarnings.

在Perl中使用无圆括号的子例程调用的原因是什么？

根据perldocperlsub：The&isoptionalinmodernPerl,asareparenthesesifthesubroutinehasbeenpredeclared.我注意到很多次,人们使用这样的事实,即在调用Perl子例程时可以省略括号(例如,从最近的SO答案中随机引用)：同样有效使用第二(无括号)版本的主要(理想的,技术的)理由是什么？perldocperlsyn没有说什

Perl中的非阻塞/异步执行

有没有办法在Perl中实现非阻塞/异步执行(不使用fork()？花了一些时间阅读文档和“玩”代码后,我反对“墙”–这是以下限制：Callbacksarenotpreemptive.Aslongasoneisrunning,nootherswillbedispatched.ThisiskNownascooperativemultitasking.Eachsessionmustcooperatebyreturningtothecentraldispatchingkernel.这个限制本质上是违反了异步/并行/