-
Perl DBI执行不维护MySQL存储过程的结果
所属栏目：[大数据] 日期：2020-12-16 热度：51
我在从Perl执行存储过程时遇到问题(使用DBI模块).如果我执行一个简单的SELECT * FROM表,则没有问题. SQL代码是： DROP FUNCTION IF EXISTS update_current_stock_price; DELIMITER | CREATE FUNCTION update_current_stock_price (symbolIN VARCHAR(20),name[详细]
-
Perl正则表达式中的括号有什么作用？
所属栏目：[大数据] 日期：2020-12-16 热度：192
我一直在替换运算符中尝试几个正则表达式： $str =~ s/^0+(.)/$1/; 将0000转换为0,将0001转换为1 $str =~ s/^0+./$1/; 将0000转换为空字符串,000100转换为00,0001100转换为100. 圆括号有什么区别？ 解决方法 这似乎有点误用我 – 你需要()来确定你的匹配. ht[详细]
-
如何在Perl程序中创建具有历史记录的shell？
所属栏目：[大数据] 日期：2020-12-16 热度：199
我正在编写一个在Perl中作为 shell执行的工具.我希望它有一个历史记录,所以如果你按向上箭头,你会回到上一个命令,就像bash或其他shell一样.我该怎么办呢？ – 编辑 – 感谢daxim将我指向Term :: ReadLine :: Gnu.我能够让它在我的Linux机器上工作,这正是我想[详细]
-
如何在Perl中创建SOAP服务器？
所属栏目：[大数据] 日期：2020-12-16 热度：103
我正在与第三方供应商合作,不幸的是我们要求我们设置一个SOAP服务器来处理来自它们的请求.我找不到最好的方法来解决这个问题.我强加的一个限制是它作为mod_perl2处理程序运行.经过一些搜索后,我发现最好的方法可能是使用 XML :: Compile及其SOAP类,但是我很[详细]
-
Log4perl Singleton用法
所属栏目：[大数据] 日期：2020-12-16 热度：56
我是Log4perl的新手,我想弄清楚为什么我在下面的设置中得到两个不同的记录器.我的理解是,这应该是一个单例,并且调用get_logger()每次都会返回相同的对象实例. Test.pm #!/usr/bin/perlpackage Example::Test;use strict;use warnings;use Exporter;our @ISA[详细]
-
perl – 如何在特定时间之后从日志文件中打印行
所属栏目：[大数据] 日期：2020-12-16 热度：170
我想打印所有行,这些行可以说是在perl脚本内perl的localtime函数返回值之后发生的.我试过以下的东西： my $timestamp = localtime();open(CMD,'-|','cat xyz.log | grep -A1000 $timestamp' || die ('Could not open');while (defined(my $line=CMD)){ prin[详细]
-
包含来自其他位置的perl模块
所属栏目：[大数据] 日期：2020-12-16 热度：59
我的问题如下 我的lib位于./abc/def/lib 我在路径中使用它./abc/xyz/lib/tuv/abc.pm 我从一个不同的位置运行代码 这就像./abc/xyz/blah1/blah2/../../.我在这里运行代码. 我创建了env params setenv def ./abc/def setenv xyz ./abc/xyz 我尝试了以下解决方[详细]
-
perl6 – perl 5和perl 6下的文件ctime不同
所属栏目：[大数据] 日期：2020-12-16 热度：141
操作系统： Windows Server 2012 R2 Standart FS：NTFS === perl5 e:temporaryperl -vThis is perl 5,version 22,subversion 0 (v5.22.0) built for MSWin32-x64-multi-threade:temporarytype ctime.pluse File::stat;use Time::Piece;my $fn1 = 't:tempo[详细]
-
Atom编辑器和嵌入式perl：语法高亮
所属栏目：[大数据] 日期：2020-12-16 热度：113
我正在使用原子文本编辑器编写Perl,我希望对Mojolicious框架名为Embedded Perl使用的模板系统进行适当的语法高亮和缩进.我试图在Atom中手动启用Perl语法,但是当我创建一个 div时,这不会创建自动缩进.元件.因此它对Embedded Perl文件(html.ep)无法正常工作.[详细]
-
如何让Perl6(MoarVM / Rakudo)警告所有缺失的分号？
所属栏目：[大数据] 日期：2020-12-16 热度：185
在Perl 5中,最好使用 use strict;use warnings; 要求编译器抱怨丢失分号,未声明的变量等. 我已经得到了Perl社区公民的通知,因为默认情况下Perl 6使用严格,这似乎是经过测试后的情况. Semicolons aren’t required for the last statement in a block,但是如[详细]
-
如何在perl中通过文件套接字使用http web服务器？
所属栏目：[大数据] 日期：2020-12-16 热度：100
使用 linux命令可以使用文件套接字中的Web服务器： # /bin/echo -e "GET /containers/json?all=1 HTTP/1.0rn" | nc -U /var/run/docker.sock ; echo ''HTTP/1.0 200 OKContent-Type: application/jsonDate: Sun,03 Jan 2016 23:31:54 GMTContent-Length: 2[详细]
-
如何从OO Perl中的子进程读取STDOUT
所属栏目：[大数据] 日期：2020-12-16 热度：115
在Perl中,读取子进程的STDOUT的一种方法是使用open： open(PIPE,"ls -l |"); 我正在寻找一种更加面向对象的方法来做到这一点,而且我一直在使用IO :: Pipe取得了一些成功.我想检测错误,特别是如果命令不可执行.不过,我无法弄清楚如何通过IO :: Pipe来做到这一[详细]
-
macos – 类似于nodemon的工具,用于perl
所属栏目：[大数据] 日期：2020-12-16 热度：134
是否有类似nodemon的东西,它监视文件更改并重新启动perl脚本？ 我的perl脚本只是一个while循环. 我尝试谷歌,但结果是关于mod_perl或无关紧要. 有任何想法吗？ 我正在使用Mac OS 解决方法 我不知道像perl的nodemon这样的工具,除非有一个工具在更改时通常重新[详细]
-
Perl 6中的枚举或符号
所属栏目：[大数据] 日期：2020-12-16 热度：115
我想将参数传递给可能只有预定义值的方法. method send-http($url,$http_method) { .... } 我应该创建一个enum来传递$http_method吗？如果是这样呢？ 或者Perl 6在Ruby中有类似符号的东西吗？ 解决方法 正如@Christoph所提到的,你可以使用枚举： enum Method[详细]
-
perl – 如何将方法修饰符应用于AUTOLOAD生成的方法？
所属栏目：[大数据] 日期：2020-12-16 热度：163
我有一个非常有趣的困境.我正在开发一个到CVS存储库的Perl脚本接口,并创建了Perl Objects来表示模块,路径和文件.由于模块,路径和文件都可以在它们上面发出CVS命令,因此我设置AUTOLOAD例程以获取任何未识别的方法并在对象上发出它们,就像它们是CVS命令一样.[详细]
-
perl – 如何使用Net :: SSH :: Any模块执行一系列命令？
所属栏目：[大数据] 日期：2020-12-16 热度：53
我希望在使用Net :: SSH :: Any连接到服务器后在同一会话中执行多个命令. 我的示例代码如下： use strict;use warnings;use Net::SSH::Any;my $host = "ip address";my $user = "user";my $passwd = "pass";my $cmd1 = 'cd /usr/script';my $ssh = Net::SSH:[详细]
-
perl6 – 在Perl 6中关闭变量声明
所属栏目：[大数据] 日期：2020-12-16 热度：102
有没有办法让Perl 6不要求我声明变量？我试过这个： #!/usr/bin/perl6no strict;no warnings;$z = "hello world";say $z; 但那没用 ===SORRY!=== Error while compiling ./helloworld.plVariable '$z' is not declaredat ./helloworld.pl:5------ $z? = "hel[详细]
-
perl – 我在解析时没有获得HTML标记
所属栏目：[大数据] 日期：2020-12-16 热度：145
我要解析的 HTML代码片段是这样的： ul class="authors" li class="author" itemprop="author" itemscope="itemscope" itemtype="http://schema.org/Person" a href="/search?facet-creator=%22Charles+L.+Fefferman%22" itemprop="name"Charles L. Fefferma[详细]
-
perl – Encode :: encode修改/删除原始字符串吗？
所属栏目：[大数据] 日期：2020-12-16 热度：116
参见英文答案 Why does encode delete the argument?????????????????????????????????????1个 Encode::encode 的文件说： encode $octets = encode(ENCODING,STRING[,CHECK]) Encodes the scalar value STRING from Perl’s internal form into ENCODING an[详细]
-
Perl哈希：为键分配值并查看键是否已定义
所属栏目：[大数据] 日期：2020-12-16 热度：187
是否有一种有效的方法可以查看,如果哈希键分配导致添加新项目或修改现有项目？与 Bloom’s filter implementation中的add函数类似的行为. 在下面的构造中,执行两次查找：一次显式地使用exists,另一次在赋值期间隐式执行.因此,第一次查找在逻辑上是冗余的. my[详细]
-
Perl如何加入所有线程
所属栏目：[大数据] 日期：2020-12-16 热度：150
我的代码如下： use threads;use threads::shared;use Thread::Queue;my $q = Thread::Queue-new();my @threads = ();my $run :shared = 1;$SIG{'TERM'} = sub { $run = 0; $q-enqueue('exit'); foreach(@threads){ $_-join(); }};push @threads,threads-cre[详细]
-
perl – Moose从单个参数构造对象
所属栏目：[大数据] 日期：2020-12-16 热度：127
我已经和Moose讨论了大约七个月而且Perl只是稍长一点,但是无法弄清楚如何通过为每个属性提供一个参数来构造类中的几个属性,而不是它们的整个hashref.我已经广泛搜索了文档和网页,但我要么找错了单词,要么遗漏了一些东西. 我已经使设计更加通用了.通过以下基[详细]
-
我的CPAN的Perl模块无法安装,我该怎么办？
所属栏目：[大数据] 日期：2020-12-16 热度：154
这是针对上述问题的规范问题,受到 this answer和 this question的启发.请编辑并改进它. 我正在尝试使用CPAN / cpanm / CPANPLUS客户端从CPAN安装模块.但是,当我尝试安装它时,我遇到了构建或测试错误.我该怎么办？ 解决方法 它是否构建完整？ 首先要考虑的是,[详细]
-
数组 – 带引用的perl sort 2d数组
所属栏目：[大数据] 日期：2020-12-16 热度：153
我对perl有些新意,所以请耐心等待.到目前为止,我已经用尽了所有可能的解决方案. 假设我有一些帽子,其中一些测量值在其他地方填充.我想根据某个专栏对它们进行排序.我尝试使用perl的“排序”来做这个,但我不让它们实际排序.我相信问题是我对引用感到困惑.下面[详细]
-
将Perl转换为Ruby – 模块与类
所属栏目：[大数据] 日期：2020-12-16 热度：99
Perl中的命名空间非常简单,但我似乎无法找到将这个非常简单的Perl类层次结构转换为 Ruby的解决方案. Perl的 LIB / Foo.pm package Foo;use Foo::Bar;sub bar { return Foo::Bar-new()} LIB /富/ Bar.pm package Foo::Barsub baz {} main.pl use Foo;my $foo[详细]
