【Tcl】多线程并行提交任务

Olafur_zbj

已于 2024-05-14 11:51:22 修改

阅读量531

点赞数 10

文章标签： linux 个人开发

于 2024-03-13 14:10:36 首次发布

本文链接：https://blog.csdn.net/u011808788/article/details/136677941

版权

本文介绍了一个简化版的多线程任务处理函数，通过`procmulti_thread_job`，将任务列表分成多个工作线程，每个线程异步执行，展示了如何使用`tpool`进行任务提交和等待，无需互斥锁等复杂同步机制。

摘要由CSDN通过智能技术生成

package require Thread

proc multi_thread_job {job_cmds job_thread} {
	set tpool [tpool::create -maxworkers $job_thread]
	set job_idx 1
	set tjobs ""
	foreach job_cmd $job_cmds {
		puts "=== job $job_idx start！ ==="
		lappend tjobs [tpool::post $tpool $job_cmd]
	}

	foreach tjob $tjobs {
		tpool::wait $tpool $tjob
	}
	
	tpool::release $tpool
}

set jobs {
	{puts 1;exec sleep 1}
	{puts 2;exec sleep 2}
	{puts 3;exec sleep 3}
	{puts 4;exec sleep 4}
	{puts 5;exec sleep 5}
	{puts 6;exec sleep 6}
	{puts 7;exec sleep 7}
	{puts 8;exec sleep 8}
	{puts 9;exec sleep 9}
	{puts 10;exec sleep 10}
}

multi_thread_job $jobs 5