use threads; # concurrently move all the files to the directory passed in on the co +mmand line my $j = 0; for (1..10) { $j++; threads->create(\&mytest); } #Subroutine that does the file copies. This is called concurrently. sub mytest { my $result = `mv ./a_file$j /home/user/dir 2>&1`; }
In reply to Did I create a concurrent program? by jweden1
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |