perl 相关问题

Perl是一种过程的,高级的,通用的动态编程语言,以其对正则表达式和字符串解析功能的本机支持而闻名。有关Perl的问题,请使用此标记。对于与新(但相关)语言“Perl 6”相关的内容,请使用perl6标记。对于其他语言的Perl样式正则表达式,请使用regex标记,如果它们基于PCRE库,则使用pcre标记。

以连续的文件编号存储文件

我想打开一个data(n).txt文件(在已经存在data(n).txt文件的目录中,例如:data0001.txt、data0002.txt、data0003.txt)。 在这个(新)文件中打印一些数据后,我想...

回答 1 投票 0

Perl:以连续的文件编号存储文件

我想打开一个data(n).txt文件(在已经存在data(n).txt文件的目录中:例如:data0001.txt、data0002.txt、data0003.txt) 在这个(新)文件中打印一些数据后,我想存储

回答 1 投票 0

如何将哈希值和标量传递给 Perl 子例程?

我正在这样做: foo(('x' => 'y'), '酒吧'); 使用严格; 子富{ 我的($hash,$s)=@_; 我的%e = %$哈希; 打印 %e{'x'}; 打印$s; } 我越来越: 无法使用字符串(“x”)作为 HASH...

回答 2 投票 0

将纪元时间完全手动转换为日期和时间

我编写了这个 Perl 脚本来将文件中的日期和时间转换为纪元时间。 原始日期格式为 dd-mm-yyyy hh:MM:ss 我这样做的原因是因为我必须将这些值写入数据......

回答 3 投票 0

解析JSON说函数parse_json不存在?

以下代码失败,并显示错误,指出 parse_json 未定义。 使用严格; 使用 JSON::Parse; 我的 $x = "['a', 'b']"; 我的 $json = parse_json($x); 但是,此页面声称它有效:...

回答 1 投票 0

perl解析json说函数parse_json不存在?

以下代码失败,并显示错误,指出 parse_json 未定义。 使用严格; 使用 JSON::Parse; 我的 $x = "['a', 'b']"; 我的 $json = parse_json($x); 但这个页面声称它有效? 哈...

回答 1 投票 0

Sublime Text 片段将camelCase转换为snake_case

您好,我正在尝试制作一个精彩的文本片段,我想 将camelCase 单词转换为snake_case。我确实知道有一些插件可以让你将字符串转换为snake_case,但我...

回答 2 投票 0

无需正则表达式即可简单搜索和替换

我有一个包含各种通配符的文件,我希望能够从(Bash)shell 脚本中替换它。我有以下内容,在其中一个变量包含字符之前效果很好......

回答 7 投票 0

如何分割多个不同的字符,同时保留该字符,但又不在空白处?

尝试/失败地分割两个不同的字符,但也不分割空间。 #!/usr/bin/env perl 使用严格; 我的 $line = "-abc=123 +def=456 -ghi 789"; 我的@arr = split(/([+-]\S+)/,$line); 为我的$

回答 1 投票 0

想要精确匹配字符串,尽管有变体,并且仅删除该字符串

我需要从文件中删除特定的、精确的字符串。这被用作我正在实施的清理过程的一部分。问题是,有一些类似的变体,...

回答 2 投票 0

如何在 -n 或 -p 模式下使用 Perl 处理选项?

运行 perl -n 或 perl -p 时,每个命令行参数都被视为要逐行打开和处理的文件。如果您想将命令行开关传递给该脚本,我该怎么做?

回答 2 投票 0

Perl 一行:替换中的捕获组被解释为八进制

假设我有一个包含文本 foo_bar_baz 的文件,并且我想将其替换为 foo_bar_var (其中 var 是 bash 变量的值): 第一次尝试: #!/bin/bash $键=1234 $回声“

回答 2 投票 0

perl subs何时将参数作为`$_`传递,什么时候是`$_[0]`?

我注意到 Parallel::Loops 模块使用 $_ 作为其 subref 的参数。这个问题与 Parallel::Loops 本身无关,而是与 coderef 调用约定有关。 这是他们的例子...

回答 1 投票 0

Perl:替换中的捕获组被解释为八进制

假设我有一个包含文本 foo_bar_baz 的文件,并且我想将其替换为 foo_bar_1234 (这是更复杂问题的简化版本)。 第一次尝试: $ echo "foo_bar_baz...

回答 1 投票 0

如何将 CPAN 的配置从 local::lib 更改为 sudo 首选项

您好,我刚开始使用 Perl,并使用以下代码安装了 CPAN: $ perl -MCPAN -e shell 我收到以下提示: 要安装模块,您需要配置本地 Perl 库目录或 escal...

回答 3 投票 0

如何在 sed 或 Perl 中替换任意数量的反向引用? (用于混淆 mailto)

我正在寻找一种在网站源代码中混淆 mailtos 的方法。我想从这里开始: href="mailto:[email protected]" 对此: href="" onmouseover="this.href='mai'+'lto:'...

回答 5 投票 0

Bash 中的字符串按位异或

我正在尝试完成 Bash 脚本方面的工作。我有一个字符串,我想与我的密钥进行异或。 #!/bin/sh PATH=/bin:/usr/bin:/sbin:/usr/sbin 导出路径 测试字符串=“abcdefghijklmnopqr” 现在...

回答 6 投票 0

Perl 脚本在 crontab 中不起作用

我有一个 perl 脚本,在手动运行时工作正常,但它不与 cron 一起运行。我的 Perl 脚本有以下语句,因此它不起作用 [从日志文件中查找] -push(@INC, '...

回答 2 投票 0

Getopt::Long 在哈希选项中推送多个值

例如: 使用 Getopt::Long; %文件 ; GetOptions('文件=s%' => 子 { 推送(@{$file{$_[1]}}, $_[2]) }); 使用 Data::Dumper ; 打印转储器%文件; 打印@{$file{文件名}}; 我的@file_array = @{$

回答 3 投票 0

有效处理lwp超时

我正在使用 LWP 从网页下载内容,我想限制它等待页面的时间。这是在 lwp 中完成的,如下所示: 我的 $ua = LWP::UserAgent->new; $ua->

回答 4 投票 0

© www.soinside.com 2019 - 2024. All rights reserved.