perl

0热度

1回答

我正在研究文件上传系统，该系统还根据上传的文件中的信息解析上传的文件并生成另一个文件。这些文件以XML文件的形式上传。我只需要解析每个文件中的第一个XML标记，并且只需要获取标记中单个属性的值。示例XML： <LAB title="lab title goes here">...</LAB> 我要找提取使用Perl的分裂功能的title属性的值或使用正则表达式的好方法。如果我有能力在服务器上

6热度

3回答

Perl中的数组和负指数

我是Perl的新手，我正在阅读有关数组的内容。据我所知，阵列根据需要自动扩展（酷！）但我也读到，我们可以使用负指标来以相反的顺序访问数组。例如可以访问3个元素的阵列： $array[0] $array[1] $array[2] 或 $array[-1] $array[-2] $array[-3]（以相反顺序）。我的问题是什么发生的值小于-3例如$array[-5]？数组是否扩展或什么？

2热度

2回答

拒绝了对用户使用Perl和cron

我广泛搜查拥有文件，但没有找到任何具体的这个样子。我有一个目录还拥有和可写的“阿帕奇”，“阿帕奇”所拥有的日志文件，并写入： -rw-rw-r-- 1 apache apache 0 Apr 9 16:43 /var/log/apache2/load.log 我有一个Perl程序“load.pl”有以下几点： my $log = "/var/log/apache2/load.log"; m

2热度

1回答

在Linux上将MSword转换为XML/HTML

我需要将MSWord文件转换为XML或HTML，同时保留文件结构（主要是表格）。我偶然发现蒂卡，这是从MSWORD文件（及任何文件）中提取文本相当强大，如下： curl www.vit.org/downloads/doc/tariff.doc \ | java -jar tika-app-1.3.jar --text ，我可以从选项中选择要保存的输出转换成HTML/XML，如下： curl w

1热度

6回答

将一个子程序传递给另一个子程序

我有一个函数sub _where(\@ \&)，它有两个参数：第一个是数组，第二个应该是另一个函数。这个其他函数返回一个布尔值，我想在我的函数sub _where(\@ \&)函数循环中调用它。我无法解压我传入的自定义本地名称的函数。我想我确实需要一些本地名称，因为它应该可以将不同的布尔函数传递给我的where函数。其中： sub _where(\@ \&) { my @stud

0热度

1回答

Perl使用Win32 :: OLE模块Excel 2007-不能生成图表

我正在运行perl64上的简单脚本来在excel上生成图表，但我得到的错误没有生成任何图表。它打开excel表单，将数据写入表单但没有图表。 Win32::OLE(0.1709) error 0x80020003: "Member not found" in PROPERTYPUT "ChartType" at C:\path\test.pl line 20. 这里是我的系统规格

0热度

2回答

定义全局符号（错误）

我经历了几次讨论以找到解决方案，但似乎没有一个人在我的情况下工作。我有以下的代码 print ("Choose from the following\n"); print ("op1 op2\n"); my $x = <>; chomp($x); print ("x is $x"); if ($x eq "op1") { my $DirA = "./A"; my $DirB

1热度

3回答

从Perl脚本中删除权限？

我有一个perl脚本作为root运行，并从它内部我想要执行一个系统命令bar作为一个较低的prrileged用户foo。所以，我有我的system电话裹如下： sub dosys { system(@_) == 0 or die "system @_ failed: $?"; } 所以，我想说： as user foo dosys("bar") 是否有Per

1热度

2回答

打印文本与RegEp

我想提取我的源文本满足这些条件的字符串：字符串的第一个字母既是对线和元音的第一个字母。的字符串继续到下一个.或;（无论换行符）我尝试这样做： $_ = join("",<>); foreach ($text =~ /^[AEIOUaeiou][\w\s,]*[.;]/m) { print "$text\n"; } 的应如何工作的一个例子： Input: Lorem i

0热度

1回答

连接未建立。 Mail :: Sender

我正在使用Mail :: Sender，我收到错误消息为连接未建立。我使用OpenMultipart填补哈希值。当这个错误会来吗？如何解决这个问题？如果我发送邮件10，只有2个邮件发送成功，剩下的邮件得到这个错误。 $Msg = new Mail::Sender ( { smtp => $EMAIL_Globals::SMTP_IP, from