问题标签 [perlscript]

For questions regarding programming in ECMAScript (JavaScript/JS) and its various dialects/implementations (excluding ActionScript). Note JavaScript is NOT the same as Java! Please include all relevant tags on your question; e.g., [node.js], [jquery], [json], [reactjs], [angular], [ember.js], [vue.js], [typescript], [svelte], etc.

0 投票
2 回答
255 浏览

perl - 如何 awk perl 数组的值?

我有一些属性值存储在数组中,如下所示,现在我需要对属性值进行一些检查,建议我如何在 perl 中进行。

@arr1 = `cat passwd.txt|tr ' ' '\n'|egrep -i "maxage|minage"|sort'`;

数组 arr1 包含信息为“maxage=0 minage=0”

在这我需要对maxage的值执行if条件,有没有像下面这样的方法,建议我,因为我是perl的新手。

if ( @arr1[0]|awk -F= '{print $2}' == 0 ) { printf "Then print task done"; }

0 投票
1 回答
2823 浏览

html - 如何在 html 中调用 perl 脚本

如何调用在 html 文件中返回数据“文本”类型的 perl 脚本。发布 perl 脚本以供参考。必须在 index.html 中调用此脚本,所以如何做到这一点

0 投票
0 回答
446 浏览

perl - index.pl: DBI connect('database=;host=;','',...) 失败

我有一个 开源票务请求系统(OTRS) docker 容器,当我在文件中定义DatabaseDatabaseHostDatabasePw和时,它可以完美运行DatabaseUserConfig.pm

现在我想使用容器的环境变量,一个Amazon Machine Image (AMI) Linux 虚拟系统。

env命令打印出正确的变量

当我这样定义它们时Config.pm

我收到以下错误etc/httpd/logs/error_log

我不明白为什么 perluse strict不能识别环境变量。

我已经尝试了如何在 Perl 脚本中访问 shell 环境变量中的所有方法

甚至尝试过

与所有变量。

$ENV{'MYSQL_HOSTNAME'}当基础映像是 Ubuntu 而不是 AMI Linux / RedHat 时,该脚本适用

0 投票
2 回答
91 浏览

javascript - 使用 MS Access 解析 Excel 文件并导入

我是shell脚本的新手,所以我对此一无所知,请帮助我。在我的场景中,我有一些从大型机生成的 excel 文件,这些文件将每天更新。我的工作是使用 shell 脚本编写代码并解析文件并将一些列导入 MS Access 数据库。这个怎么做?

任何帮助将不胜感激。

我想使用 shell 脚本,但由于这是新项目,我可以使用任何其他脚本来编写代码并制作批处理文件,所以如果有任何其他方式最适合这个,请帮助我。

0 投票
1 回答
794 浏览

perl - 使用 Perl 将具有 XPT 扩展名的文件转换为 Excel

我目前是 Perl 脚本的新手,详细的解释会很有帮助。我尝试使用 SAS Parser 模块,但我猜它仅适用于 .sas 文件。请建议使用哪个库来完成此任务。

0 投票
1 回答
54 浏览

perl - 如何使用散列在 perl 中将文件中的名称更改为另一个名称?

我有一个这样的文件。

我想将每个数字更改为相应的字符串。

我编写了以下 Perl 程序,但我不知道它有什么问题。

我想得到这个

但我不知道该怎么做。

0 投票
1 回答
1630 浏览

xml - 如何使用 Perl 将生成的文本文件转换为 Junit 格式(XML)

在此处输入图像描述如何使用 Perl 将生成的文本文件转换为 Junit 格式(XML)

我生成了一个文本文件,格式如下:

预期的 JUnit 格式:

请找到附加的带有预期 xml 格式的片段

我想将上面的文本文件从 Perl 脚本生成后转换为使用 Perl 脚本的 XML 文件。

任何帮助,将不胜感激。提前致谢!!

在此处输入图像描述

0 投票
2 回答
140 浏览

perl - 使用 Perl 脚本通过多个源将日志消息写入文本文件时代码挂起

我正在使用下面的代码将日志消息写入文本文件,当不同的源并行调用此方法时,程序会挂起。有没有办法在不破坏程序的情况下授予/控制并行写入。

0 投票
1 回答
131 浏览

perl - perl 版本 5.24.1 中 perl 模块 `Getopt::Long::Subcommand` 的不正确行为

Getopt::Long::Subcommand用来解析命令行参数。

但我在某些 Perl 版本中发现了这一点。此模块的行为不正确。

例如,如果我运行./ViewBS BisNonConvRate --sample bis_WT.tab.gz,WT. 我希望输出如下:

在 perl-v5.18.2 中,它工作正常。我得到了我期望的输出。但在 perl-v5.24.1 中,它没有。我得到如下所示的输出:

我检查了Getopt::Long::Subcommand. 它们都是相同的版本(0.102)。

有人可以帮助解决这个问题吗?提前致谢。

下面是我配置 perl 环境的方法:

这是我Getopt::Long::Subcommand在“ViewBS”中使用的代码:

您还可以在此处获取该文件的副本:https ://github.com/xie186/ViewBS/tree/66edfa79c35b404539ca3cdf4afcfd9c1bd20c6d/data/chk_issue25

0 投票
2 回答
37 浏览

regex - 如何在perl中用空格替换一些模式?

我有一个文件,其中有包含一些模式的行

`XX3 DB3 DBB1 VDD VSS VSSS VDDS 反相器参数:ln=.045u wn=0.5 mm=mm'

`XX4 DBB1 DB3 VDD VSS VSSS VDDS 反相器参数:ln=.045u wn=.12u

`XX14 DBB1 DB_TBY VDD VSS VSSS VDDS 反相器参数:Mpar =(Something))

我需要将这些行替换为

`XX3 DB3 DBB1 VDD VSS VSSS VDDS 反相器

`XX4 DBB1 DB3 VDD VSS VSSS VDDS 反相器

`XX14 DBB1 DB_TBY VDD VSS VSSS VDDS 反相器

那就是我想删除参数之后的所有内容,它可以是任何东西,直到换行。

但是这里所有内容都在删除,但应该以 ' 结尾。由于我不知道所有模式都可以存在,因此这种技术是不可能的。