-
保存使用OLE和Perl在Internet Explorer中打开的pdf文件
所属栏目：[大数据] 日期：2020-12-16 热度：136
我正在寻找一种方法来使用Perl在Internet Explorer中打开PDF文件,然后保存它. (我希望用户能够与脚本交互并决定是否发生下载,这就是为什么我想在IE中显示pdf,所以我不能使用像LWP :: Simple这样的东西.) 作为一个例子,这段代码加载(显示)一个pdf,但我无法弄[详细]
-
GD ::带Perl的图形
所属栏目：[大数据] 日期：2020-12-16 热度：185
我有每个学生的数据,例如 Student Name Score Jack 89 Jill 70 Sandy 40 现在我试图使用GD :: Graph :: Bar在条形图中绘制这些图,但由于我对perl和模块很新,我看到我可以手动声明图表中的所有X和Y值被绘制. 但是因为我不知道每个学生的名字和分数(从文本文件[详细]
-
Perl v5.10.1是否有内存泄漏或如何解释valgrind
所属栏目：[大数据] 日期：2020-12-16 热度：81
我有一个内存泄漏的脚本.我相信这是因为我在嵌套对象上执行undef后,脚本中的内存量不变.我使用 Devel::Cycle来定位任何循环引用,并且我已经将这些循环引用转换为Scalar :: Util的弱引用.问题仍然存在. 现在我试图用Valgrind来解决这个问题.作为valgrind的第[详细]
-
Perl舞者和模板工具包：在模板中包含模板
所属栏目：[大数据] 日期：2020-12-16 热度：147
我试图在模板中包含一个模板,如下所示： parent.tt div class="row-fluid" div class="span3" [% INCLUDE my_sidebar] /div!--/span-- /div my_sidebar.tt与parent.tt存在于同一文件夹中(/ myapp / views) 我对config.yml进行了以下更改： 有了ABSOLUTE temp[详细]
-
perl – 我可以在堆栈中上下移动调试器上下文吗？
所属栏目：[大数据] 日期：2020-12-16 热度：86
基本上我正在寻找相当于gdb的“up”和“down”命令的perl.如果我打破子程序栏,我有一个看起来像这样的调用堆栈： foo baz bar 我希望能够(无需从bar或baz返回)向上导航foo框架并通过操纵变量来查看它正在做什么,因为我通常会使用p或x的参数. 解决方法 使[详细]
-
Perl和XML :: Smart – 如何从XML文件中删除节点
所属栏目：[大数据] 日期：2020-12-16 热度：111
我正在编写一个简单的Perl脚本,它使用 XML :: Smart来创建和解析XML文件.我遇到了删除XML节点的问题.我有以下代码： if ( exists $XML-{object}[$n] ) { delete $XML-{object}[$n] ;};$XML-save('dane.xml') ; 它做了预期的事情 – 即删除了正确的节点.但是,[详细]
-
如何将perl哈希转换为javascript哈希
所属栏目：[大数据] 日期：2020-12-16 热度：189
我在 template toolkit框架中工作.我的tt文件中有一个perl哈希数据类型.我想将此哈希数据类型转换为javascript哈希数据类型. 码： 模板： [% PERL %] use JSON qw(encode_json); my $vars = { 'version' = 3.14,'days' = [ qw( mon tue wed thu fri sat sun[详细]
-
Perl和X Window中没有事件循环图形？
所属栏目：[大数据] 日期：2020-12-16 热度：95
在20世纪80年代的Apple II BASIC上,您将使用“HGR”进入屏幕,“HCOLOR”将设置颜色,“HPLOT”将绘制点.您还可以操作屏幕字节数据,而不必将程序控制交给任何事件处理程序.今天,每种语言和每个图书馆似乎都缺少这种荒谬的基本功能. 所以我用C语言编写了一个小[详细]
-
perl – 构建分发版后,两个单独的META文件的目的是什么？
所属栏目：[大数据] 日期：2020-12-16 热度：67
在构建新分发时,会生成2个元文件.一个使用YAML格式,另一个使用 JSON.据我所知,这些仅供其他CPAN客户端或其他想要访问元文件的应用程序使用(无论出于何种原因).我试图解释为什么一个应用程序需要访问这两个… 这两种格式是否仅为方便起见而单独生成？即开发人[详细]
-
开始块中的perl’requiret’
所属栏目：[大数据] 日期：2020-12-16 热度：102
我有以下代码： #!/usr/bin/env perluse strict;use warnings;use feature 'say';BEGIN { my $supported = undef; *compute_factorial = sub { if (eval { require bignum; bignum-import(); 1;}) { my $num = shift; my $factorial = 1; foreach my $num (1[详细]
-
Perl Regex – 获取所有匹配的偏移而不是一个
所属栏目：[大数据] 日期：2020-12-16 热度：167
我想在文件中搜索字符串,然后获取所有匹配的偏移量. 文件内容如下： sometextsometextAAAsometextAAAAAAsometext 我正在将整个文件读入字符串$text,然后对AAA进行正则表达式匹配,如下所示： if($text =~ m/AAA/g) { $offset = $-[0];} 这将只给出一个AAA的偏[详细]
-
perl中的隐式转换
所属栏目：[大数据] 日期：2020-12-16 热度：61
我是Perl的新手,请有人为我解释以下脚本： #!/usr/bin/env perluse strict;use warnings;sub f1($) { my ($v) = @_; print "f1 $vn"; }sub f2(@) { my ($v) = @_; print "f2 $vn"; }my $s = "ww";my @a = ("xx","yy","zz");f1 $s; f1 @a; f2 $s; f2 @a; 我[详细]
-
perl正则表达式匹配失败
所属栏目：[大数据] 日期：2020-12-16 热度：111
我想匹配两个不同的字符串,输出应该是$1和$2, 根据我在这个例子中,如果$a是’xy abc’,那么$1应该是’xy abc’而$2应该是’abc’,但’abc’部分是3美元. 你能帮我写一个正则表达式,因为1美元应该有整个字符串,2美元应该 有第二部分. 我使用的是perl 5.8.5. m[详细]
-
perl – 在DB上存储对象并检索它
所属栏目：[大数据] 日期：2020-12-16 热度：98
我有一个perl对象(引用数组引用),如下所示： my $a = [ [$a,$ab,$c ],[$a,$b,$c] ] ; 并需要将其存储在DB上然后检索它. 有人建议一个好的机制来序列化甚至压缩它,然后将其存储在数据库中？然后反序列化它并在代码中使用它？ 解决方法 您可以使用任何已知的序[详细]
-
perl – PPI ::文档错误或一些特殊的子程序名称？
所属栏目：[大数据] 日期：2020-12-16 热度：163
我有一些PPI模块的问题： 假设我有Foo.pm： package Foo;sub foo0 { 1; }sub foo1 { 1; }sub foo2 { 1; }sub foo3 { 1; }1; 我想用PPI来获得所有潜艇： #!/usr/bin/env perluse PPI;my $filename = shift;my $Document = PPI::Document-new($filename);my $s[详细]
-
如何在Strawberry Perl中使用unicode读取一个带有长文件名的文件
所属栏目：[大数据] 日期：2020-12-16 热度：131
我在 Windows XP计算机上有一个位于目录中的文件,其中包含丹麦语字符.我使用Strawberry perl并希望阅读此文件.以下代码工作正常： use Win32::Unicode::File; # Some code left out.... $fname = $mw - getOpenFile(-filetypes=$types); my $fh = Win32::Uni[详细]
-
单行Perl命令重命名文件
所属栏目：[大数据] 日期：2020-12-16 热度：165
到目前为止,这个单行剥离一行并重命名文件,但我需要帮助来改变它,以便它剥离我正在寻找数据的行,并删除旧文件扩展名.csv而不是添加到它. (.csv.out).我不确定这是否可以通过单行完成. 相反,它添加了扩展名filename.csv.out 例 test_20110824.csv.out 一内胆[详细]
-
安装后测试perl
所属栏目：[大数据] 日期：2020-12-16 热度：94
从源代码构建perl时,可以选择在最终目标中安装perl之前运行make test. 安装perl后是否可以进行相当于make的测试？ 请注意,我没有原始来源.我想要做的是为我安装的相同版本的perl下载源tar存档,然后针对已安装的perl运行测试(来自源tar存档). 可能/不可能？易[详细]
-
Perl Datetime减法问题
所属栏目：[大数据] 日期：2020-12-16 热度：94
通过从彼此中减去两个日期时间对象,我遇到了一些问题.我使用以下代码： $today = DateTime-now( time_zone = 'Europe/Berlin' ); my $dt1 = DateTime- new ( year = 2011,month = 08,day = 08,hour = 1,minute = 0,second = 4,time_zone ='Europe/Berlin' );[详细]
-
perl – 了解newRV_inc vs newRV_noinc
所属栏目：[大数据] 日期：2020-12-16 热度：167
在尝试处理C级别的参考时,我似乎无法弄清楚newRV_inc和newRV_noinc之间的差异(实际上).为此,我已经模拟了这个小的Inline :: C示例. #!/usr/bin/env perluse strict;use warnings;use Devel::Peek 'SvREFCNT';my $arrayref_inc = make_arrayref_inc();print "[详细]
-
perl – 你怎么理解这里的诀窍？
所属栏目：[大数据] 日期：2020-12-16 热度：139
my $self; { my %hash; $self = bless(%hash,$pkg); } 它引自HTML / Template.pm,为什么不简单地祝福$self,$pkg？ 解决方法 我认为目的是将％hash的范围限制为封闭块.这可以改写为： my $self = bless {},$pkg;[详细]
-
循环遍历两个数组,删除perl中的重叠
所属栏目：[大数据] 日期：2020-12-16 热度：51
我有两组范围,由[start,stop]值表示.一些范围重叠,这意味着一个范围的开始位于另一个范围的[开始,停止]之间.我想制作一组没有这种重叠的新范围,并且不包括范围内的任何新值. 范围看起来像这样： @starts @ends 5 108 5 187 44 187 44 229 44 236 64 236 104[详细]
-
perl – 为什么IPC :: SysV-> shmget用EINVAL响应？
所属栏目：[大数据] 日期：2020-12-16 热度：200
我目前在服务器上运行perl 5.8.8,我正在尝试安装5.14. 我将其配置为usethreads和use64bitint,否则为其建议的默认值. make run没有问题,但是让测试失败了 ../cpan/IPC-SysV/t/ipcsysv.t../cpan/IPC-SysV/t/shm.t 从而： # ./perl harness ../cpan/IPC-SysV/t/[详细]
-
从Perl“Out of memory”错误获取堆栈跟踪
所属栏目：[大数据] 日期：2020-12-16 热度：55
tl; dr：当Perl httpd进程耗尽内存时,如何转储perl堆栈跟踪. 我们有一个mod_perl 2服务器,Perl 5.8.8,RHEL 5.6,Linux 2.6.18. 偶然且不可预测的是,子httpd进程开始以惊人的速度耗尽所有可用内存.我们至少使用过BSD :: Resource :: setrlimit(RLIMIT_VMEM,…)[详细]
-
perl – 为Moose应用程序构建插件系统的最佳选择是什么？
所属栏目：[大数据] 日期：2020-12-16 热度：67
我想编写一个可以通过插件扩展的应用程序,使用Perl和 Moose.我知道有一些用于编写插件的Moose模块,我知道还有其他方法. 我有什么选择？我应该怎么知道他们？在实现插件系统之前我应该??考虑什么？ 解决方法 有几种方法可以提供可扩展性;允许用户将角色应用于[详细]
