It can't be wrote in threads in different worksheet, like "$workbookNodeList->sheets()->2->write(0,0, 'j8', $formatNodeList;" it does not work. could anyone help me? How to write worksheets on same time by threads? thanks. the data total is about 60,000,000, and need write to 3 sheets from DB, maybe i can say like this the 3 tables in DB will import 3 worksheets in excel, and reduce time, so i think do this when the same time by these 3 worksheets on the same workbook. 
my $nodeList = [
    ['AMS', 'a'],
    ['APJ', 'ap'],
    ['EMEA', 'e'],
];
my $workbookNodeList = Excel::Writer::XLSX->new("Node_List.xlsx");

$workbookNodeList->set_properties(
        title    => 'Node List',
        author   => 'L_WC demo',
        comments => 'Node List',
);
my $formatNodeList = $workbookNodeList->add_format(bg_color => 44);

$formatNodeList->set_align('center');

my $worksheetNodeList = $workbookNodeList->add_worksheet('AMS');
my $worksheetNodeList1 = $workbookNodeList->add_worksheet('APJ');
my $worksheetNodeList2 = $workbookNodeList->add_worksheet('EMEA');

my @arr = ($nodeList->[0], $nodeList->[1], $nodeList->[2]); 
my @ar = ('fff');
foreach (@arr) {
   $_ = threads->new(\&doSomething, $_->[0], $_->[1], $workbookNodeLis
+t, $formatNodeList);
}

foreach(@arr){
    $_->join();
}

$workbookNodeList->close();
print "Node List is Done.";

sub doSomething{
    
    my ($region, $sql, $workbookNodeList, $formatNodeList) = @_;
    
    if($region eq 'AMS'){
        
    [$workbookNodeList->sheets()]->[0]->write(0,0, 'rrrrrr', $formatNo
+deList);
        print "AMS -----DONE.\n";
    }
    
    if($region eq 'APJ'){
    [$workbookNodeList->sheets()]->[1]->write(0,0, '1', $formatNodeLis
+t);
        print "APJ -----DONE.\n";
    }
    
    if($region eq 'EMEA'){
    [$workbookNodeList->sheets()]->[2]->write(0,0, 'j8', $formatNodeLi
+st);
        print "EMEA -----DONE.\n";
    }

}

[download]

In reply to How to use threads to write worksheets of excel by L_WC

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.