Questions tagged «perl»

我有一个文件，每行中有很多行，每行有很多列（字段），用空格“”隔开，每行中的列数不同。我想删除前两列怎么办？

73 perl  shell  awk  sed  cut 

我的任务是复制生产环境以创建许多测试/就座环境。 我需要做的一件事就是建立Perl，并使用多年来安装的所有模块（包括内部和外部模块）。我可以只使用CPAN.pm autobundle，但这将导致测试环境具有生产所具有的外部模块的更新版本。 获取和安装（很多）特定于版本的Perl模块的最简单/最佳方法是什么。

72 perl  version  module  cpan 

从目前的情况来看，这个问题不适合我们的问答形式。我们希望答案会得到事实，参考或专业知识的支持，但是这个问题可能会引起辩论，争论，民意调查或扩展讨论。如果您认为此问题可以解决并且可以重新提出，请访问帮助中心以获取指导。 7年前关闭。 我刚刚完成第二年的大学CS学习，所以我缺乏对“现实世界”的了解。我第一年学习Java，然后继续学习Java，第二年学习了C和简单的Bash脚本。今年夏天，我正在尝试学习Perl（上帝帮助我）。我过去有点涉猎Python。 我的问题是，既然我们拥有易读，可写的脚本语言，例如Python，Ruby，Perl等，为什么有人编写Bash脚本？有什么我想念的吗？我知道我的linux机器有perl和python。它们不够普及吗？在Bash中确实有比在其他hll中更容易做的事情吗？

72 python  perl  bash  scripting  comparison 

我正在寻找Python中忽略大小写字符串的比较。 我尝试过： if line.find('mandy') >= 0: 但忽略案例没有成功。我需要在给定的文本文件中找到一组单词。我正在逐行读取文件。一行上的单词可以是mandy，Mandy，MANDY等（我不想使用toupper/tolower等）。 我正在寻找下面的Perl代码的Python等效项。 if ($line=~/^Mandy Pande:/i)

72 python  perl 

我有两个文件（file1.txt和file2.txt），这些文件仅是示例。 如何合并两个文件，以创建文件-merge_files.txt作为示例3 我现在写的是ksh脚本，因此可以用ksh，awk，sed，perl一个内衬... etc进行合并 背景-为什么需要合并文件：我的目标是将OLD文件（存在于第一个字段中）重命名为NEW文件（存在于第二个字段中）， 例子1 more file1.txt /etc/port1-192.9.200.1-255.555.255.0 /etc/port2-192.9.200.1-255.555.255.0 /etc/port3-192.9.200.1-255.555.255.0 /etc/port4-192.9.200.1-255.555.255.0 /etc/port5-192.9.200.1-255.555.255.0 . . . . 例子2 more file2.txt /etc/port1-192.90.2.1-255.555.0.0 /etc/port2-192.90.2.1-255.555.0.0 /etc/port3-192.90.2.1-255.555.0.0 /etc/port4-192.90.2.1-255.555.0.0 /etc/port5-192.90.2.1-255.555.0.0 . . . . 例子3 more merge_files.txt /etc/port1-192.9.200.1-255.555.255.0 /etc/port1-192.90.2.1-255.555.0.0 /etc/port2-192.9.200.1-255.555.255.0 /etc/port2-192.90.2.1-255.555.0.0 /etc/port3-192.9.200.1-255.555.255.0 /etc/port3-192.90.2.1-255.555.0.0 /etc/port4-192.9.200.1-255.555.255.0 /etc/port4-192.90.2.1-255.555.0.0 /etc/port5-192.9.200.1-255.555.255.0 /etc/port5-192.90.2.1-255.555.0.0 . . . . . example4（merge_files.txt结构） first field …

71 linux  perl  sed  awk  ksh 

有多个用于cpan模块的安装程序。我至少知道CPAN.pm（perl附带），CPANPLUS和cpanminus。 两者之间有什么区别？ 什么情况需要使用一种？ 我还应该了解其他模块安装程序吗？

70 perl  cpan 

这似乎是一个非常简单的问题，但是我的Google-Fu使我失败了。 在Perl中包含其他文件中的函数的语法是什么？我正在寻找类似C的东西#include "blah.h" 我看到了使用Perl模块的选项，但这似乎需要对我当前的代码进行微不足道的重写。

70 perl  include 

在编写Perl脚本时，我经常发现需要获取以字符串格式表示的当前时间YYYY-mm-dd HH:MM:SS（例如2009-11-29 14:28:29）。 在执行此操作时，我发现自己走的路很繁琐： man perlfunc /localtime搜索本地时间-重复五次（/+ \n）以到达手册页的相关部分 将字符串($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);从手册页复制到我的脚本中。 试试看 my $now = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year, $mon, $mday, $hour, $min, $sec); 记住第一点：必须将$ year加1900才能获得当前年份。 试试看 my $now = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year+1900, $mon, $mday, $hour, $min, $sec); 请记住，第2点：必须将$ mon加1才能获得当前月份。 试试看 my $now = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year+1900, $mon+1, $mday, $hour, $min, …

70 perl  datetime  formatting  timestamp 

以下几行可能意味着什么？ my $x = shift;

69 perl  built-in 

$ 1在Perl中意味着什么？此外，$ 2是什么意思？有多少个$ number变量？

69 regex  perl 

我从未使用过Perl，但是ack确实给我留下了深刻的印象，我想将其用于源代码搜索等。 谁能指导我如何在Windows上使用这个出色的库？

69 windows  perl  ack 

让我们做一个非常简单的事情， # Foo.pm package Foo { my $baz = bar(); sub bar { 42 }; ## Overwrite this print $baz; ## Before this is executed } 无论如何，我可以从test.pl运行代码中更改$baz设置并导致Foo.pm在屏幕上打印其他内容吗？ # maybe something here. use Foo; # maybe something here 在编译器阶段是否可以强制上述内容打印7？

20 perl  compilation 

看一下Type::Tiny，我看到Type::Tiny->new在的文档中引用了对的调用中的类名， my $NUM = "Type::Tiny"->new( name => "Number", constraint => sub { looks_like_number($_) }, message => sub { "$_ ain't a number" }, ); 为什么是这样？这仅仅是样式吗？这种做法是否会对性能产生影响？

12 perl  coding-style  classname  bareword 

$ perl -pe 1 foo && echo ok Can't open foo: No such file or directory. ok 我真的希望文件不存在时Perl脚本失败。当输入文件不存在时，使-p或-n失败的“正确”方法是什么？

11 perl 

在perl 5中，可以wc -l使用oneliner 进行仿真： perl -lnE 'END {say $.}' test.txt 如何在Raku上实现此功能 如果您尝试实现此目的： raku -e 'say "test.txt".IO.open.lines.elems' 事实证明它很慢并且占用大量内存 复制信息： $ wget http://eforexcel.com/wp/wp-content/uploads/2017/07/1500000%20Sales%20Records.zip $ unzip "1500000 Sales Records.zip" $ mv "1500000 Sales Records.csv" part.txt $ for i in `seq 1 10`; do cat part.txt >> test.txt ; done $ du -sh test.txt …

9 perl  raku