小编Bor*_*din的帖子

如何在后台运行Perl系统命令？

#!/usr/bin/env perl
use warnings; use strict;
use 5.012;
use IPC::System::Simple qw(system);

system( 'xterm', '-geometry', '80x25-5-5', '-bg', 'green', '&' );

say "Hello";
say "World";

Run Code Online (Sandbox Code Playgroud)

我试过这个在后台运行xterm-command,但它不起作用:

没有找到shell的绝对路径:&

什么是使它运作的正确方法？

perl background system

sid*_*com

2015 03-28

11
推荐指数

3
解决办法

5万
查看次数

Perl XML :: LibXML $ node-> findnodes($ xpath)查找不应该的节点

这是我遇到问题的一些代码,我处理一些XML,在OO类的方法中,我从文档中重复的几个节点中提取一个元素.每个节点的子树中应该只有一个这样的元素,但我的代码获取所有元素,就像它作为一个整体在文档上运行一样.

因为我只期望得到oine元素我只使用数组的第0个元素,这导致我的函数输出错误的值(对于文档中的所有项都是相同的)

这是一些说明问题的简化代码

$ cat t4.pl
#!/usr/bin/perl
use strict;
use warnings;
use XML::LibXML;

my $xml = <<EndXML;
<Envelope>
  <Body>
    <Reply>
      <List>
        <Item>
          <Id>8b9a</Id>
          <Message>
            <Response>
              <Identifier>55D</Identifier>
            </Response>
          </Message>
        </Item>
        <Item>
          <Id>5350</Id>
          <Message>
            <Response>
              <Identifier>56D</Identifier>
            </Response>
          </Message>
        </Item>
      </List>
    </Reply>
  </Body>
</Envelope>
EndXML

my $foo = Foo->new();

my $parser = XML::LibXML->new();
my $doc    = $parser->parse_string( $xml );
my @list   = $doc->getElementsByTagName( 'Item' );

for my $item ( @list ) {

    my $id = get( $item, 'Id' );
    my @messages = $item->getElementsByLocalName( …

Run Code Online (Sandbox Code Playgroud)

xml perl xpath xml-libxml

Red*_*ick

2015 08-19

11
推荐指数

1
解决办法

2万
查看次数

如何阻止CPAN访问无响应的软件包存储库？

我试着安装一个包.它没有连接到soft-download.org.我不知道它为什么要连接到那台主机.

$ cpan install Config::IniFiles
Loading internal null logger. Install Log::Log4perl for logging messages
CPAN: Storable loaded ok (v2.53_01)
Reading '/home/Chloe/.cpan/Metadata'
  Database was generated on Sat, 24 Dec 2016 20:17:02 GMT
Running install for module 'Config::IniFiles'
CPAN: LWP::UserAgent loaded ok (v6.15)
CPAN: Time::HiRes loaded ok (v1.9732)
Fetching with LWP:
http://soft-download.org/authors/id/S/SH/SHLOMIF/Config-IniFiles-2.94.tar.gz
LWP failed with code[500] message[Can't connect to soft-download.org:80]

Trying with
    /usr/bin/wget -O "/home/Chloe/.cpan/sources/authors/id/S/SH/SHLOMIF/Config-IniFiles-2.94.tar.gz.tmp11320"
to get
    http://soft-download.org/authors/id/S/SH/SHLOMIF/Config-IniFiles-2.94.tar.gz
--2016-12-24 16:19:24--  http://soft-download.org/authors/id/S/SH/SHLOMIF/Config-IniFiles-2.94.tar.gz
Resolving soft-download.org (soft-download.org)... 204.45.81.83
Connecting to soft-download.org (soft-download.org)|204.45.81.83|:80... failed: …

Run Code Online (Sandbox Code Playgroud)

perl cpan

Chl*_*loe

2016 12-25

11
推荐指数

2
解决办法

480
查看次数

将Android通知图标设置为远程URL

我想使用远程URL(如favicon)作为通知图标,但是通知的构造函数只接受资源ID(这是一个整数),而不是像a那样更有用的东西FileInputStream.

我怎么能

为流源定义新资源
下载图标,添加到我的资源,然后动态获取ID？

resources notifications android

Ben*_*Ben

2018 05-18

10
推荐指数

1
解决办法

5357
查看次数

我如何解释Devel :: Leak的输出

我Devel::Leak在我的程序中运行,我不理解它给我的输出.

首先,我看到它正在打印一个指针列表.我可以在数组中获取该列表吗？然后我可以使用FindRef来查看它的来源.

例如:

new 0xaebc28 : SV = PVGV(0x30e7e48) at 0xaebc28
  REFCNT = 1
  FLAGS = (GMG,SMG)
  IV = 0
  NV = 0
  PV = 0
  MAGIC = 0x2db7dc0
    MG_VIRTUAL = &PL_vtbl_glob
    MG_TYPE = PERL_MAGIC_glob(*)
    MG_OBJ = 0xaebc28
  NAME = "SUPER::"
  NAMELEN = 7
  GvSTASH = 0x76b228    "IO::File"
  GP = 0x314b170
    SV = 0x30283c8
    REFCNT = 1
    IO = 0x0
    FORM = 0x0  
    AV = 0x0
    HV = 0x301fdb8
    CV = 0x0
    CVGEN = 0x0
    GPFLAGS …

Run Code Online (Sandbox Code Playgroud)

perl

mmc*_*coo

2012 10-26

10
推荐指数

1
解决办法

698
查看次数

如何使用HTTP请求发布内容(Perl)

use LWP::UserAgent;
use Data::Dumper;

my $ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);
my $req = new HTTP::Request POST => 'http://example.com';
$req->content('port=8', 'target=64'); #problem
my $res = $ua->request($req);

print Dumper($res->content);

Run Code Online (Sandbox Code Playgroud)

如何使用$ req-> content发送多条内容？$ req->内容期望什么样的数据？

它只发送最后一个.

编辑:

如果我将其格式化为'port = 8&target = 64',则可以找到它.有没有更好的办法？

perl http lwp

Tak*_*kun

2018 05-22

10
推荐指数

1
解决办法

4万
查看次数

带有href ="javascript:;"的HTML <a>元素的含义

我偶尔会看到一个HTML <a>元素,其href属性是一个只有javascript该方案的URI ,以及一个;路径的空语句.

这样做的目的是什么？
它是一样的href="javascript:void(0);"吗？
是否与完全没有href属性相同？
是否与完全没有<a>元素一样？

更新

我看到的确切内容是<a href="javascript:;" style="cursor: default;"></a>.那么这只是一种控制光标图形的方法吗？

html javascript

Bor*_*din

2014 04-23

10
推荐指数

1
解决办法

5422
查看次数

是否有HTTP标头来说明用于相对链接的基本URL？

我正在从另一台主机检索页面,然后使用数据库中的数据初始化该表单,然后再将其发送给用户.

我需要将URL href和src属性设置为绝对,以便浏览器从正确的位置加载它们.

我是否可以设置HTTP标头以在不修改HTML的情况下实现此目的？

html http

Don*_*Don

2017 04-02

9
推荐指数

2
解决办法

5223
查看次数

用户控制的友好网址是否由Google自动处理？

我有一个友好的URL系统,就像Stack Overflow一样.

这/car/123/blue-subaru-1993是一个链接.

但由于用户有能力更改列表的标题,它很快就会变成:

/car/123/awesome-blue-subaru-1993

Run Code Online (Sandbox Code Playgroud)

我担心(但不确定)如果谷歌重新索引我的网站,它现在会有两个链接指向相同的内容？或者谷歌完全重新索引并意识到之前的链接不再存在？

澄清:

该网站不使用 301 Moved Permanently
/car/123/title 使用路由配置文件映射到操作

html seo web-crawler

Bac*_*tnz

2013 03-04

9
推荐指数

1
解决办法

220
查看次数

理解Perl正则表达式修饰符/ m和/ s

我一直在用修饰符sm和g阅读perl正则表达式.我知道// g是一个全局匹配,它将是一个贪婪的搜索.

但我对修饰符s和m感到困惑.任何人都可以用代码示例解释s和m之间的区别,以显示它是如何不同的？我试图在线搜索,它只在http://perldoc.perl.org/perlre.html#Modifiers链接中给出了解释.在stackoverflow中,我甚至看到人们一起使用s和m.是不是s与m相反？

//s 
//m 
//g

Run Code Online (Sandbox Code Playgroud)

使用m我无法匹配多行.

use warnings;
use strict;
use 5.012;

my $file; 
{ 
 local $/ = undef; 
 $file = <DATA>; 
};
my @strings = $file =~ /".*"/mg; #returns all except the last string across multiple lines
#/"String"/mg; tried with this as well and returns nothing except String
say for @strings;

__DATA__
"This is string"
"1!=2"
"This is \"string\""
"string1"."string2"
"String"
"S
t
r
i
n
g"

Run Code Online (Sandbox Code Playgroud)

regex perl

use*_*829

2014 04-09

9
推荐指数

2
解决办法

6775
查看次数