小编sza*_*gab的帖子

我已经安装了当前版本的Padre with Strawberry Perl用于64位Windows.我的操作系统是葡萄牙语,Padre IDE的UI语言现在是葡萄牙语.如何覆盖默认值并将其更改为英语？

我尝试使用CPAN(http://metacpan.org/pod/Geo::Google v0.05)安装Geo :: Google ,几乎所有测试都失败了.我在这里查了http://matrix.cpantesters.org/?dist=Geo-Google+0.05,它确认这个模块失败了.

它似乎是一个废弃的模块,但我需要计算Perl程序中2个地址之间的行车距离.有什么建议？

我正在尝试使用Perl将文件上传到S3.

根据这个模块:

http://metacpan.org/pod/Amazon::S3::Bucket

...以下代码将上传文本文件:

# create resource with meta data (attributes)
my $keyname = 'testing.txt';
my $value   = 'T';
$bucket->add_key(
   $keyname, $value,
   {   content_type        => 'text/plain',
       'x-amz-meta-colour' => 'orange',
   }
);

但是,如何将图像(GIF,JPEG,PNG)上传到S3？

谢谢,

琳达

我正在使用基于这篇文章的代码来查看GPU加速,但我能看到的只是减速:

import numpy as np
from timeit import default_timer as timer
from numba import vectorize
import sys

if len(sys.argv) != 3:
    exit("Usage: " + sys.argv[0] + " [cuda|cpu] N(100000-11500000)")


@vectorize(["float32(float32, float32)"], target=sys.argv[1])
def VectorAdd(a, b):
    return a + b

def main():
    N = int(sys.argv[2])
    A = np.ones(N, dtype=np.float32)
    B = np.ones(N, dtype=np.float32)

    start = timer()
    C = VectorAdd(A, B)
    elapsed_time = timer() - start
    #print("C[:5] = " + str(C[:5]))
    #print("C[-5:] = " + str(C[-5:]))
    print("Time: {}".format(elapsed_time))

main()

结果: …

最近我看了CPAN上的一个模块,它带有一个要安装的脚本,这让我很奇怪.将脚本包含在最终应该使用公共CPAN的包中的推荐方法是什么？如果对内部CPAN服务器上发布的包有任何不同的建议？

该脚本如下所示:

#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
  if 0; # not running under some shell

两个问题

我是否正确理解eval部分是不必要的？这将在安装过程中由CPAN客户端嵌入,在Windows上安装时会有很大差异.

什么是推荐的sh-bang线？那会吗？

#!/usr/bin/env perl

而不是上述？

在Web应用程序中,当记录一些数据时,我希望确保我可以识别不同时间但来自相同IP地址的数据.另一方面,出于隐私问题,因为数据将公开发布,我想确保无法检索到实际的IP.所以我需要一些IP地址的单向映射到一些确保1-1映射的其他字符串.

如果我理解正确,那么MD5,SHA1或SHA256可能是一个解决方案.我想知道它们在处理方面是否不太昂贵？

我会对任何解决方案感兴趣,但如果Perl中的实现更好.

在Windows上运行,以下Python程序产生上述输出(输出变量的内容)

import commands

cmd = "dir"
(output) = commands.getoutput(cmd)
print output

非常有趣和令人沮丧.有人可以指点我的解释吗？

我正在寻找一些 PHP 实用程序来解析类似于这个 Perl 模块的 Apache 配置文件：http : //metacpan.org/pod/Apache :: ConfigParser

有什么线索吗？

我试图在这个perl脚本上返回Unix用户列表.我正在使用Passwd :: Unix的Mojolicious框架.

参考文献:

• Mojolicious(http://metacpan.org/pod/Mojolicious)
• Passwd :: Unix(http://metacpan.org/pod/Passwd::Unix)

那是我的代码:

test.pl

#!/usr/bin/env perl
use Mojolicious::Lite;
use Passwd::Unix;

# Instance
my $pu = Passwd::Unix->new();

get '/' => sub {
  my $self = shift;
  my $users = $pu->users;

  $self->stash(
    users => $users
  );
} => 'test';

app->start;

__DATA__

@@ test.html.ep
<ul>
  <% foreach my $user ($users) { %>
  <li><%= $user %></li>
  <% } %>
</ul>

但它不是返回用户,而是仅打印用户总数.

我尝试下载,解压缩,按照说明操作:

  tar -zxf Perl-Critic-1.107_001.tar.gz
    cd Perl-Critic-1.107_001
    perl Makefile.PL
    make
    make test
    make install

当我进入制作步骤时,我得到:

/usr/bin/perl "-Iblib/arch" "-Iblib/lib" t/Variables/RequireLocalizedPunctuationVars.run.PL t/Variables/RequireLocalizedPunctuationVars.run
Can't locate B/Keywords.pm in @INC (@INC contains: blib/arch blib/lib /Library/Perl/5.12/darwin-thread-multi-2level /Library/Perl/5.12 /Network/Library/Perl/5.12/darwin-thread-multi-2level /Network/Library/Perl/5.12 /Library/Perl/Updates/5.12.3 /System/Library/Perl/5.12/darwin-thread-multi-2level /System/Library/Perl/5.12 /System/Library/Perl/Extras/5.12/darwin-thread-multi-2level /System/Library/Perl/Extras/5.12 .) at t/Variables/RequireLocalizedPunctuationVars.run.PL line 16.
BEGIN failed--compilation aborted at t/Variables/RequireLocalizedPunctuationVars.run.PL line 16.
make: *** [t/Variables/RequireLocalizedPunctuationVars.run] Error 2

我怀疑它是因为我错过了依赖.我也发现了这个任务 - https://metacpan.org/pod/Task::Perl::Critic这看起来很有趣,但它没有关于如何运行的指示.

---编辑运行后 - sudo cpan Task :: Perl :: Critic

我得到这些结果:

Test Summary Report
-------------------
t/20_policies.t (Wstat: 512 Tests: 0 Failed: 0)
  Non-zero …