**已关闭。**此问题需要debugging details。目前不接受回答。

编辑问题以包括desired behavior, a specific problem or error, and the shortest code necessary to reproduce the problem。这将帮助其他人回答问题。
8年前关闭。
Improve this question的
我没有任何使用Perl的经验，所以我不能解决这个问题。你能帮我解决这个问题吗？

Error 1 : Useless use of private variable in void context at ./createnodelist.pl line 51.
Error 2 : Use of uninitialized value $interval in division (/) at ./createnodelist.pl line 10.
Error 3 : Illegal division by zero at ./createnodelist.pl line 10.

字符串
基本上，下面的脚本应该加载证书列表，并生成一个节点列表，该节点分配给节点：

line 51    print FILE "\n";

line 10   my $jph = ceil(60/$interval);

型
源代码：

#!/usr/bin/perl

use warnings;
use strict;

use POSIX;

my $interval = $ARGV[0];
my $path     = '/etc/puppet/modules/puppet/scripts/puppet_cron';

# Calculate how many jobs per hour we have
my $jph = ceil( 60 / $interval );

# Load list of all nodes
my @nodes = `/usr/sbin / puppetca -la | /usr/ bin / cut -d ' ' -f 2`;    #
chomp(@nodes);

# Count number of nodes
my $node_count = scalar(@nodes);

# Count number of nodes per group
my $nodes_per_group = $node_count / $interval;

# Process nodes list and assigne minutes for each node
open( FILE, ">$path/nodes.list" );
for ( my $i = 0; $i < $interval; $i++ ) {
    my $minute;
    my $group = $i + 1;
    my $node_n;

    # Process nodes in group
    for ( $node_n = 0; $node_n < $nodes_per_group; $node_n ) {

        # Assign minutes to a node
        my $node = shift(@nodes);
        if ($node) {
            print FILE "$node;";
            for ( my $n = 0; $n < $jph; $n++ ) {
                $minute = $i + ( $interval * $n );
                if ( $minute
                    < 60 )    # Only print minutes that actually exist
                {
                    print FILE "$minute";
                }
                if ( $n != $jph - 1 ) {
                    print FILE ',';
                }
            }
        }
        $node_n++;
        print FILE "\n";
    }
}
close(FILE);
exit 0;

型