小编dax*_*xim的帖子

什么 - >箭头在Perl中做什么?

我一直->在看代码,我不确定它是什么意思.例如:

@top_links = @{$m->links};
Run Code Online (Sandbox Code Playgroud)

这条线做什么?另外,我在哪里可以阅读它?

perl

34
推荐指数
4
解决办法
5万
查看次数

如何调试Perl脚本?

当我运行Perl脚本时,我该如何调试它?例如,在ksh中我添加了-x标志.但我如何在Perl中做同样的事情?

debugging perl

24
推荐指数
4
解决办法
9万
查看次数

为什么在代码中编写配置数据是个坏主意?

真实案例(来自caff)举例说明短问题主题:

$CONFIG{'owner'} = q{Peter Palfrader};
$CONFIG{'email'} = q{peter@palfrader.org};
$CONFIG{'keyid'} = [ qw{DE7AAF6E94C09C7F 62AF4031C82E0039} ];
$CONFIG{'keyserver'} = 'wwwkeys.de.pgp.net';
$CONFIG{'mailer-send'} = [ 'testfile' ];
Run Code Online (Sandbox Code Playgroud)

然后在代码中:eval `cat $config`,访问%CONFIG


提供解决一般问题的答案,而不仅仅是示例.

language-agnostic perl

22
推荐指数
5
解决办法
1258
查看次数

如何使PSGI程序每个进程只进行一次昂贵的初始化,而不是每个线程?

交叉发布:http://perlmonks.org/?node_id = 1191821

考虑app.psgi:

#!perl
use 5.024;
use strictures;
use Time::HiRes qw(sleep);

sub mock_connect {
    my $how_long_it_takes = 3 + rand;
    sleep $how_long_it_takes;
    return $how_long_it_takes;
}
sub main {
    state $db_handle = mock_connect($dsn);
    return sub { [200, [], ["connect took $db_handle seconds\n"]] };
}
my $dsn = 'dbi:blahblah'; # from config file
my $app = main($dsn);
Run Code Online (Sandbox Code Playgroud)

测量plackup(HTTP::Server::PSGI: Accepting connections at http://0:5000/):

› perl -MBenchmark=timeit,timestr,:hireswallclock -E"say timestr timeit 10, sub { system …
Run Code Online (Sandbox Code Playgroud)

perl multithreading psgi

18
推荐指数
1
解决办法
398
查看次数

如何通过复杂选择器设置输入字段的值?

我想设置某个无形输入字段的值.

my $field = $w->selector('tr.edit td[data-attribute="name"] input', single => 1);
Run Code Online (Sandbox Code Playgroud)

找到它.

$field->attributes->{value} = 'test';
Run Code Online (Sandbox Code Playgroud)

没有明显的效果.

$w->field($field => 'test');
Run Code Online (Sandbox Code Playgroud)

$w->field('tr.edit td[data-attribute="name"] input' => 'test');
Run Code Online (Sandbox Code Playgroud)

出错了No elements found for form number 1.

perl browser-automation

18
推荐指数
1
解决办法
294
查看次数

Term :: ReadLine :: Gnu中"恐慌:在全球毁灭期间摆脱错误的游泳池"的原因是什么?

https://rt.cpan.org/Ticket/Display.html?id=37194#txn-641389我与libreadline XS绑定一起重新打开了一个关于Perl崩溃的错误.我附上了必要的调试信息,但直到现在还没有来自维护者的确认.我希望这最终得到解决; 在Devel :: REPL和Perl调试器中没有readline是一个很大的不便.我的Perl胆量和C夫几乎不存在,所以我不能做通常的事情并自己制作补丁.所以我想雇用你的帮助; 更多的眼球↔浅虫和所有这些.

我向你提问:

  1. 你能重现这次崩溃-DPERL_USE_SAFE_PUTENV吗?如果是,让我们比较一下共同的因素.
  2. 你知道原因是什么,你如何找到它?
  3. 我有一个调试perl并知道如何使用gdb,但我在哪里设置断点以正确观察崩溃?

crash perl gdb

13
推荐指数
1
解决办法
2000
查看次数

对于`map`,有没有类似`last`的东西?

在Perl中,是否可以任意结束map执行,例如last在循环中等效的东西?

它有点像这样:

map {
    if (test == true) { last; } dosomething
} @myarray
Run Code Online (Sandbox Code Playgroud)

perl

13
推荐指数
1
解决办法
1792
查看次数

如何追踪XS .so文件?

我有一个小的Perl程序.该程序加载一个模块.该模块使用XSLoader加载.so文件.这个Perl在Linux上运行,用gcc构建-DDEBUGGING,随后是.so文件.我可以重新编译.

执行Perl程序时,如何跟踪.so文件中的C函数?我需要按照它们运行的​​顺序知道函数的名称.拥有函数参数也会很好.

debugging perl trace shared-libraries xs

13
推荐指数
1
解决办法
390
查看次数

如何在Perl中输出文本表?

我想输出一个包含四个变量的表,所需格式的示例是:

A confusion matrix

H        |    P     |
-----------------------
$var1    |   $var2  | H
$var3    |   $var4  | P
Run Code Online (Sandbox Code Playgroud)

我遇到的问题是,根据变量中的位数,格式会发生变化,各行都会偏移.我知道这是一个完整的noobie问题,但我从来没有过多地关注输出的格式,这只是我想要正确的一件小事.任何帮助都会很棒,谢谢.

printing formatting perl

10
推荐指数
2
解决办法
1万
查看次数

使用赋值运算符时“方法'ASSIGN-KEY'的调用者必须是对象实例”

使用键入的键进行哈希...

use v6;
class Foo {}
my Hash[Foo, Foo] $MAP;

my $f1 = Foo.new;
my $f2 = Foo.new;

$MAP{$f1} = $f2;
Run Code Online (Sandbox Code Playgroud)

产生错误:

方法“ASSIGN-KEY”的调用者必须是“Hash[Foo,Foo]”类型的对象实例,而不是“Hash[Foo,Foo]”类型的类型对象。你忘记了'.new'吗?

我觉得它具有误导性;真正的错误是什么,我必须写什么?

我已经尝试过%哈希变量的符号,这也不起作用。

raku

10
推荐指数
2
解决办法
223
查看次数