Please see my code below. Now what i want to do is i have $port which has more then 75 ports/ips So my command is getting failed when i try to join all my addresses in one foreach loop

So can you propose me a solution where i can change sub addRules to only do about 50 addresses at a time. The foreach would have to have another loop inside of it to do the 50 at a time instead of the current join of all the addresses on

I am a beginner in Perl so your responses with be highly appreciated 

######################################################################
+#########
#         Name:  addRules()
#   Parameters:  hash:
#                   protocol  - Network protocol (ipv6 or ipv4)
#                   ports     - List of Net::Port objects.
#                   addresses - List of addresses of this type.
#                   domains   - List of iptables domains
#       Return:  0 failure, 1 success
#  Description:  
#    For a given set of ports add accept rules for all the specified a
+ddresses 
#    across all the specified net protocols and domains.
######################################################################
+#########
sub addRules {
    my %args = @_;
    my $protocol  = $args{protocol};
    my $ports     = $args{ports};
    my $addresses = $args{addresses};
    my $domain    = $args{domain};

    my $appendCmd  = "iptablesAdm append";
    $appendCmd    .= " --type=rule";
    $appendCmd    .= " --table=filter";
    $appendCmd    .= " --chain=INPUT";
    $appendCmd    .= " --protocol=${protocol}"; 
    $appendCmd    .= " --domain=${domain}"; 
    $appendCmd    .= " --persist=yes"; 

    Dbug->debug("Base Insert CMD: ${appendCmd}");

    #
    # Loop over the ports and create a rule for each of the addresses 
+with each port:
    foreach my $port (@$ports) {
        my $portNum   = $port->port();
        my $transport = $port->transportStr();
        Dbug->log("Inserting rules for ${portNum} addresses @{$address
+es}");

        #
        # Build up the match string portion of the iptables command:
        my $matchString  = "-m state";
        $matchString    .= " --state NEW";
        $matchString    .= " -m ${transport}"; 
        $matchString    .= " --protocol ${transport}"; 
        $matchString    .= " --dport ${portNum}";  
        $matchString    .= " -s " . join(',', @$addresses); 
        $matchString    .= " -j ACCEPT";

        #
        # Build the full command:
        my $cmd  = "${appendCmd} --match=\"${matchString}\"";

        #
        # Run the command:
        Dbug->log("\tCMD: ${cmd}\n");
        system($cmd) && do {
            Dbug->error("Rule insert failed!");
            Dbug->error("CMD: ${cmd}");
            return 0;
        };
    }

    #
    # As a side effect of getting the rules we will display what they 
+are right
    # now, and we would like to see what things look like after adding
+ this
    # rule:
    printRules('protocol' => $protocol, 'domain' => $domain); 

    return 1;
}

[download]

In reply to Break the foreach loop on count on 50 and then insert a new foreach loop by iamnewbie

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.