How to make multiple threads for a sub routine using perl?

Question

I have an array, which carries the file names that I am going to create. I have written the code below that creates a single file at a time.

use strict;
use File::Slurp;

my @files_to_create=(file_1,file_2......file_100000);
my $File_Con="blah blah...";

foreach my $create_file(@files_to_create){
  &Make_File($create_file);
}

sub create_file{
    my $to_make=shift;
    write_file($to_make,$File_Con);
}

I would like to share the sub routine for multiple scalars in an array.. Hence I can reduce the file creation time.. Can anyone suggest the steps to do...?

Zaid · Accepted Answer · 2011-11-25 12:45:03Z

1

See perldoc perlthrtut for a very good tutorial on how to use threads in Perl.

use strict;
use warnings;
use threads;

sub create { ... }

my @files_to_create = map { "file_$_" } 1 .. 100_000;
my $config = "blah blah";

my @threads; # To store the threads created

foreach my $file ( @files_to_create ) { # Create a thread for each file

    my $thr = threads->new( \&create, $file, $config );
    push @threads, $thr;
}

$_->join for @threads;  # Waits for all threads to complete

answered Nov 25, 2011 at 12:45

Zaid

37.3k16 gold badges89 silver badges159 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How to make multiple threads for a sub routine using perl?

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related