Dear stevib,

I already discovered some strings with a length of 84_217 characters, which I try to insert into the IPC::Shareable array @sender, but I do this very often, but only on this I get lists of arrays, I can't predict of length...

This is a snipped: 
my $allowed_childs    = 10;
<other code>
        ## Main update agent
        my @agency    = ();    # Agents (forks)
        my $recID    = &gen_random(4);    # IPC key as $transID, but o
+nly visible for childs of the update agent
        # Separate transfer array for agents (sub-forks of fork)
        my $update_knot    = tie(my @receiver, 'IPC::Shareable', $recI
+D, {
            create    => 1,
            mode    => 0600,
            destroy    => 1,
            size    => IPC::Shareable::SHM_BUFSIZ(),
            #size    => 131072 * 2,
            });
        # Array to store what was transfered through @receiver, becaus
+e IPC-tied arrays are very small
        my @storage    = ();
        # Transfer child elements to @storage
        my $_sub_gatherer    = sub {
            my $allowed_childs    = shift;
            if ( &wait_children($allowed_childs, \@agency) ) {
                my $knot    = tie(my @cleaner, 'IPC::Shareable', $recI
+D);
                $knot->shlock;
                push(@storage, splice(@cleaner, 0, scalar(@cleaner) - 
+1));
                $knot->shunlock;
                return(1);
                }
            return(0);
            };

<other code>

                        # Get region dependend type ids
                        foreach my $region ( @regions ) {
                            my $agent        = fork;
                            # Parent
                            if ( defined($agent) && $agent ) {
                                push(@agency, $agent);
                                &debug_out("get_region_types(): Starte
+d download agent $agent");
                                #Time::HiRes::sleep(0.01);        # WO
+RK Maybe no longer needed because of dl_lock()
                                #&{$_sub_gatherer}(sprintf("%.0f", $ma
+x_forks * 0.5));
                                &{$_sub_gatherer}(1);

                                # Report to main window
                                $perc_count    += 15 / scalar(@regions
+);
                                $ac_knot->shlock;
                                $agent_carrier{progress_percent}    = 
+$perc_count / &{$_sub_percent_base}();
                                $ac_knot->shunlock;
                                }
                            # Child
                            elsif ( defined($agent) ) {
                                srand();
                                my @region_market_types    = &download
+er(0, "/markets/$region/types/");

                                if ( @region_market_types ) {
                                    my $knot    = tie(my @sender, 'IPC
+::Shareable', $recID);
                                    $knot->shlock;
                                    push(@sender, encode_json(\@region
+_market_types)); # Here the failure occures: Length of shared data ex
+ceeds shared segment size at ./myprogram.pl line 1210.
                                    $knot->shunlock;
                                    }
                                exit(0);
                                }
                            else {
                                &debug_out(
                                    "update_types(): Can't fork",
                                    );
                                &pprop_exit();
                                }
                            }

                        # Wait for children
                        &wait_children(1, \@agency);

<other code>

sub wait_children {
    my $left    = shift;
    my $childs    = shift;
    my $waiting    = 0;

    if ( $left < 1 ) {
        $left    = 1;
        }

    while ( scalar(@{$childs}) >= $left ) {
        $waiting    = 1;
        Time::HiRes::sleep(0.1);
        @{$childs}    = grep { kill(0 => $_) } @{$childs};
        }

    return($waiting);
    }

[download]

In reply to Re^2: Looking for alternative for IPC::Shareable (or increase size) by DomX
in thread Looking for alternative for IPC::Shareable (or increase size) by DomX

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.