perl

    0热度

    1回答

    这行在Perl中有什么作用？

    这行在Perl中有什么作用？ s/\s//g; 我看，用于在输入文件中搜索和计数某些字符的剧本，我理解的代码一切，除了这一行。我想知道这行代码为脚本做了什么？
    perl 2017-10-20

    0热度

    2回答

    使用Shell脚本菜单用Perl对文件进行排序

    我有一个文件数量为10个随机单词。我能够让我的Perl脚本排序文件，但我不知道为什么，因为它排序和覆盖主文件。 例如file.txt有：“a，c，d，b”我把它读入文件名然后把它排序到另一个文件名sorted.txt“a，b，c，d”但是我不想让我的file.txt原始文件进行更改。 这是调用我的壳菜单perl的排序功能： if [ "$choice" = 2 ] then
    bash perl 2017-10-20

    1热度

    2回答

    在Perl中从DateTime获取两位数的月份和日期

    你好我正在使用Perl的DateTime来解析一个字符串并将其转换为日期格式。这里 我的代码如下所示： my $parser = DateTime::Format::Strptime->new(pattern => "%Y-%m-%dT%H:%M:%SZ", time_zone => 'UTC', on_error => 'croak'); my $startDate = $parser->pa
    perl datetime 2017-10-21

    0热度

    1回答

    Perl - 按照x维度转置CSV数据

    我在寻找一些帮助来实现以下任务，我需要使用Perl才能在每个维度上转换CSV数据。 我解析器产生以下： metric_timestamp,metric_name,logical_cpus,virtual_cpus,PID,pct_CPU,pct_Usr,pct_Sys,Size,ResSet,ResText,ResData,ShdLib,MinorFault,MajorFault,Command,
    perl csv transpose 2017-10-21

    -1热度

    1回答

    有没有更好的方法通过perl匹配这个正则表达式？

    只是一个关于这个Perl代码的简单问题;我的任务是获取STDIN标量，并将其与包含引号之间的至少3至15个字符的行（匹配引号内没有另外的引号）进行匹配。如果是这样，我的程序应该打印出“是”，如果不是，“否”我只是想知道，是否有更雄辩的方式来实现这一目标？我使用这段代码： #!/usr/bin/perl use strict; use warnings; use 5.26.0; #2. M
    regex perl 2017-10-21

    0热度

    1回答

    “Net :: Netconf :: Manager”将RPC请求中的下划线转换为连字符

    我正在使用 Net::Netconf::Manager 来使用RPC命令查询设备。在RPC命令中，我应该发送一个参数列表，所以我在一个哈希中添加了查询参数。其中一种说法是verbosity_level 请注意我在这个参数中使用了下划线_。当我打印散列时，它仍然是下划线。 但是，当我打印发送到设备的XML RPC请求，参数更改为verbosity-level <verbosity-level>abc
    perl ietf-netconf 2017-10-21

    1热度

    1回答

    如何在发生异常时访问数据库数据？

    我有下面的代码： my $savepoint = $c->db->txn_scope_guard; return $self->render('subnet/create', error => [ create => [email protected] ], servers => $self->rows('Server')->lookup, ) unless $subnet = ev
    perl dbi dbix-class 2017-10-21

    0热度

    1回答

    为什么这个if/else总是正确的？

    任何颜色的输入返回“绿色” :( sub next_traffic_lights { my ($x) = @_; if ($x == "red") { return "green"; } elsif ($x == "green") { return "yellow"; } else { return "red";
    perl 2017-10-21

    0热度

    3回答

    如何使用变量名称引用散列？

    我有一组预定义的散列表，我想使用变量名称引用其中一个散列并访问键值。即使散列填充，下面的代码也会返回null。我在这里做错了什么，还是有更好的方法来实现这一目标？ my %TEXT1 = (1 => 'Hello World',); my %TEXT2 = (1 => 'Hello Mars',); my %TEXT3 = (1 => 'Hello Venus',); my $hash_n
    perl hash hashref 2017-10-21

    1热度

    2回答

    “子程序外不能转到子程序”

    我在子程序的顶部创建了一个名为“MENU”的子程序，名称为“INIT_MENU”，但当我打电话给该标签时出现错误：Can的子程序以外“吨转到子程序在program.pl线15 下面是一个例子： sub MENU {INIT_MENU: print "blah blah";} 和这里是线15： goto &MENU, INIT_MENU; 很抱歉，如果它是一个重复的问题，我搜索在所有可能的地
    perl label subroutine goto 2017-10-22
最新问题