Questions tagged «perl»

假设我有一个数组，而且我知道我会做很多“该数组是否包含X？” 检查。执行此操作的有效方法是将数组转换为哈希，其中的键是数组的元素，然后您可以说if（$ hash {X}）{...} 有没有简单的方法可以执行此数组到哈希的转换？理想情况下，它应该足够通用以接受匿名数组并返回匿名哈希。

80 arrays  perl  hash 

该数组有很多数据，我需要删除两个元素。 以下是我正在使用的代码段， my @array = (1,2,3,4,5,5,6,5,4,9); my $element_omitted = 5; @array = grep { $_ != $element_omitted } @array;

80 arrays  perl 

我正在尝试搜索和替换grep匹配的所有文件中的字符串： grep -n 'foo' * 将以以下形式给我输出： [filename]:[line number]:[text] 对于通过的grep返回每个文件，我想通过替换，修改文件foo有bar。

80 linux  perl  awk  sed  grep 

我想在没有root访问权限的共享服务器上安装perl模块。我怎样才能做到这一点？他们似乎还具有较旧的CPAN版本（运行该命令时会抱怨），是否可以从我的帐户更新正在使用的CPAN命令而无需root访问权限？

80 perl  cpan 

尝试使用DBI进行连接时出现以下错误 DBI connect（'数据库= chaosLRdb;主机= 192.168.0.1;端口= 5433'，'postgres'，...） 失败：致命：主机“ 192.168.0.1”，用户“ postgres”，数据库“ chaosLRdb”，SSL关闭的主机没有pg_hba.conf条目 这是我的pg_hba.conf文件： # "local" is for Unix domain socket connections only local all all md5 # IPv4 local connections: host all all 127.0.0.1/32 md5 # IPv6 local connections: host all all ::1/128 md5 host all postgres 127.0.0.1/32 trust host all postgres …

80 perl  postgresql  database-permissions 

我正在尝试处理一堆文件，然后需要进行修改以删除文件名中的无关信息；值得注意的是，我正在尝试删除括号内的文本。例如： filename = "Example_file_(extra_descriptor).ext" 我想对一整堆文件进行正则表达式，其中括号表达式可能在中间或结尾，并且长度可变。 正则表达式是什么样的？首选Perl或Python语法。

77 python  regex  perl 

如果我在Perl中有以下数组： @x = qw(a b c); 然后使用进行遍历foreach，然后$_引用数组中的当前元素： foreach (@x) { print; } 将打印： abc 是否有类似的方法来获取当前元素的索引，而无需手动更新计数器？如： foreach (@x) { print $index; } 在哪里$index更新$_以产生输出： 012

77 perl  foreach 

Perl社区的共识似乎Try::Tiny是处理异常的首选方法。 Perl的5.14（这是我的版本使用）似乎解决的问题与eval该Try::Tiny地址。还会Try::Tiny为我提供任何好处吗？

76 perl  exception-handling 

假设我有： my $string = "one.two.three.four"; 我应该如何处理上下文以获取模式找到匹配项的次数（3）？可以使用单线吗？ 我尝试了这个： my ($number) = scalar($string=~/\./gi); 我以为通过加括号$number，可以强制使用数组上下文，使用scalar可以得到计数。但是，我得到的只是1。

76 arrays  regex  perl  perl4 

在Perl中，我怎么睡不到一秒钟？

76 perl  sleep 

如何在Vim中启用自动折叠？ set foldmethod=syntax似乎没有做任何事情。

76 javascript  perl  vim  folding 

在Perl中以编程方式从stdin或输入文件（如果提供）中读取的最巧妙的方法是什么？

75 perl  stdin 

我正在寻找列表中某个元素的存在。 在Python中有一个in关键字，我会做类似的事情： if element in list: doTask Perl中是否有等效的东西，而不必手动遍历整个列表？

75 perl  arrays 

这个问题不太可能帮助将来的访客。它仅与较小的地理区域，特定的时间段或极为狭窄的情况（通常不适用于Internet的全球受众）有关。要获得使该问题更广泛适用的帮助，请访问帮助中心。 8年前关闭。 这是我的Perl和Python脚本，可以对大约21个日志文件进行一些简单的文本处理，每个日志文件大约300 KB到1 MB（最大）x重复5次（总共125个文件，由于日志重复了5次）。 Python代码（修改为使用已编译re和using的代码re.I） #!/usr/bin/python import re import fileinput exists_re = re.compile(r'^(.*?) INFO.*Such a record already exists', re.I) location_re = re.compile(r'^AwbLocation (.*?) insert into', re.I) for line in fileinput.input(): fn = fileinput.filename() currline = line.rstrip() mprev = exists_re.search(currline) if(mprev): xlogtime = mprev.group(1) mcurr = location_re.search(currline) if(mcurr): print fn, …

74 python  regex  performance  perl  text-processing 

我正在使用在用户空间（不是通过root用户安装）中运行的Perl，并通过命令行安装模块cpan。我想知道是否有一种简单的方法可以删除模块，而无需进行大量删除单个文件的工作。 我在互联网上搜索了这个问题，并找到了一些答案，但是我发现的答案似乎要么是在使用Perl软件包管理器（特定于Microsoft Windows）讨论，要么是特定于操作系统（BSDpan），建议使用cpanplus（我曾经有过几次糟糕的经历，或者最后指出了一个无效链接，如下所示：http://www.cpan.org/misc/cpan-faq.html#How_delete_Perl_modules。 我的问题特别是是否存在一种干净的方法来删除通过安装的模块cpan。

74 perl  module  cpan