小编th3*_*0id的帖子

我计划很快将模块上传到CPAN.这是我贡献的第一个模块.我已经将模块用于我认为的"beta"阶段.我正在使用ExtUtils :: MakeMaker通过Makefile.PL生成一个Makefile(我已经粘贴了下面的内容).Makefile.PL脚本列出了所有prereq模块.我想知道在安装过程中的哪一点,如果不存在,则安装先决条件模块？我想知道因为我运行Makefile.PL make然后make install在一个单独的环境中缺少一些先决条件模块.但是,他们没有安装？我的印象是他们会但是我可能会错过一些东西？我正在找人提供一些清晰度.提前谢谢〜

Makefile.PL

#!/usr/bin/env perl 

use strict;
use warnings;
use ExtUtils::MakeMaker;

WriteMakefile(
    NAME      => 'Imgur',
    VERSION   => '0.01',
    PREREQ_PM => {
        'JSON'                      => 2.90,
        'LWP::UserAgent'            => 6.05,
        'HTTP::Request::Common'     => 6.04,
        'Data::Dumper'              => 2.154,
        'DateTime::Format::ISO8601' => 0.08,
        'Config::IniFiles'          => 2.86,
        'Scalar::Util'              => 1.42,
        'Class::Std::Utils'         => 0.0.3,
        'MIME::Base64'              => 3.15,
        'File::Slurp'               => 9999.19
    }
);

我想知道是否有文件或页面有Perl的样式指南.例如,这是我用于C++的那个:https://google-styleguide.googlecode.com/svn/trunk/cppguide.html.

是否有大多数人使用/关注的Perl风格指南？

如何将哈希值转换为查询字符串？我想找到一个不涉及使用CGI模块的解决方案。这是我想做的事的一个例子，但我不知道最好和最优雅的方法是什么，因为我对Perl还是比较陌生。

杂凑：

my $data = {
         'key1' => 'value1',
         'key2' => 'value2',
         'key3' => 'value3',
         'key4' => 'value4'
};

要查询的字符串：

key1=value1&key2=value2&key3=value3&key4=value4

我想知道如何从df("/")获得第二行第4列的值.这是df的输出:

Filesystem      Size  Used Avail Use% Mounted on
rootfs          208G  120G   78G  61% /
fakefs          208G  120G   78G  61% /root
fakefs          1.8T  1.3T  552G  70% /home4/user
fakefs          4.0G  1.3G  2.8G  31% /ramdisk/bin
fakefs          4.0G  1.3G  2.8G  31% /ramdisk/etc
fakefs          4.0G  1.3G  2.8G  31% /ramdisk/php
fakefs          208G  120G   78G  61% /var/lib
fakefs          208G  120G   78G  61% /var/lib/mysql
fakefs          208G  120G   78G  61% /var/log
fakefs          208G  120G   78G  61% /var/spool
fakefs          208G  120G   78G  61% /var/run
fakefs          4.0G  361M  3.7G   9% /var/tmp …

我在弄清楚如何"Use of uninitialized value $_ in pattern match"在perl脚本中抑制/纠正导致警告的原因时遇到了一些麻烦.

这是生成警告的单元测试脚本

Interview.t

#!/usr/bin/perl

use warnings;
use strict;
use Test::More tests => 16;
use v5.10;
use Data::Dumper;

require_ok('Interview');

# Test URLs
my $test_urls = {
    'http://www.reddit.com'  => 1,
    'hurrdurrimasheep'       => 0
};

my $interview = new Interview;

# Test $interview to see if it's an instance of our 'Interview' class
isa_ok($interview, 'Interview');

# Test to see if $interview has the member functions 'a' and 'b'
can_ok($interview, qw/a b/);

eval { $interview->a; …