如何在perl中分割具有多个模式的字符串？
我想用多种模式分割一个字符串： 例如。 my $string= "10:10:10, 12/1/2011"; my @string = split(/firstpattern/secondpattern/thirdpattern/, $stri…
将 n 列文件转换为单列文件
我有一个像这样的文件 chr1:752426-753176_NR_015368_LOC643837 chr1:752515-753265_NR_024321_NCRNA00115 ，其中用选项卡分隔，它有 n 列和 n 行。 …
Perl 的 tr/// 运算符第一部分中未指定的字符会怎样？
我使用 Perl 进行字符串操作，这涉及使用反向函数和 tr 来翻译我的字符串。 该脚本读取一些字符串，然后执行以下操作： $revread = reverse($newword)…
在 Perl 中将字符串分割成等长的块
假设我的字符串长度是 3 的倍数。 my $seq = "CTTCGAATT"; # in this case length of 9 有没有办法可以将它分成等长的 3？ 这样最后我就有了这个数组…
Perl 正则表达式可以匹配正值和负值
我有一个要匹配的数据列表： 0:1 0:3 0:-1 0:2 0:-4 我可以使用什么正则表达式来匹配所有数据： 我尝试了这个，但不起作用： $line =~ /0:(\w+)/ 它只…
使用 Proc 文件系统计算进程的内存
我正在 Perl 中通过读取 Proc 文件系统中的值来编写小型进程监视器脚本。现在我可以使用 /proc/[pid]/status 和 /proc/[pid]/io 文件。现在我想计算一…
从 Perl 中的分叉进程获取输出
我正在 Perl 中 fork 一个进程，实际上它是一个 wget 命令。 Wget 将一些数据写入文件。我想捕获 wget 生成的输出（而不是文件）并将其带到主程序。这…
带有“OR”的While循环状况
下面是一个要求用户输入的代码片段，如果输入不是“csv”或“newline”，则调用 while 循环。 对于第 5 行，尝试将 $format 与“csv”或“newline”匹…
使用curl PERL发布到Facebook用户的墙
我正在存储 facebook 用户 ID 和访问令牌。我可以将此信息发布到选定用户的留言墙上吗？以下代码可在 Facebook 开发人员参考中找到。 我只是不确定如…
使用perl进行递归查询
我在 db 上有下表，其中有 2 列： from to 00001 00002 00001 00003 00002 00003 00002 00004 00003 00001 00003 00004 00002 00004 00004 00002 0000…
斐波那契 LFSR 计算优化
斐波那契 LFSR 在 wiki 上有描述，非常简单。 我想计算一些斐波那契 LFSR 的周期，并使用生成的序列进行稍后的加密。 让我们以 wiki 为例： x16 + x14…
Spreadsheet::WriteExcel 未使用 merge_range 在 Excel 中写入字符串
我正在使用 Spreadsheet::WriteExcel 创建一个 Excel 并向其中写入一些数据。 我正在使用 merge_range 来合并一些单元格。 但问题是我的下面的代码确…
将哈希值添加到数组中
我有一个像这样的数组： @switch_ports = () 然后想将这个哈希的 50 个实例添加到 switch_ports 数组中。 %port = (data1 => 0, data2 => 0, changed …
