รบกวนท่านที่มีความรู้เรื่อง Thread ของภาษา Perl มาช่วยทีครับ

[jaynarol]

ตอนนี้ผมเขียนโปรแกรมอยุ่โปรแกรมนึงโดยใช้ภาษา perl นี่แหละครับ

โดยโปรแกรมผมมีหน้าตาแบบ GUI

และผมได้เขียน Code ไว้เวลากดปุ่ม RUN ก็ให้ไปทำงานที่เมธธอด Start

ซึ่งในเมธธอดนี้มีลูปทำงานแบบไม่รุ้จบอยู่ ซึ่งผมเอาไว้ตรวจสอบเพื่อเตรียมพร้อมเชื่อมต่อกับ user ที่ติดต่อเข้ามา

ปัญหาคือเมื่อกดปุ่มนี้ปุ๊ป โปรแกรมค้างทันทีเลยครับ ทั้งๆที่ใจจริงผมอยากให้ลูปทำงานไปด้วย

และปุ่มต่างๆก็ยังคงกดได้เหมือนเดิม และจากที่ถามท่าน Gen0TypE มา

เขาบอกว่าต้องใช้ Thread แน่ๆ ผมจึงไปค้นหาข้อมูลแต่ก็ยังไม่ค่อยเข้าใจเท่าไร(เว็บไทยไม่มีสอนเลยอะ)

ส่วนใหญ่เจอแต่ลูปธรรมดาซึ่งต่างกับของผมที่มันไม่มีคิวให้เรียงเพราะมันคือลูปไม่รู้จบ

แล้วสุดท้ายก็ทนไม่ไหวจึงโพสถามท่านที่พอมีความรู้ด้านนี้ ช่วยแนะนำแนวทางหรือsource codeเล้กๆให้ผมทีครับ

ขอบคุณมากๆครับ

[rinetd]

ผมไม่ค่อยเก่งนะครับแต่ตอนนั้นทำโปรแกรมโหลดรูป แค่อ่านแค่พอให้ทำได้
ตัวอย่างนี้ตัดมาจาก code ของผมครับ ลองศึกษาดูเผื่อจะช่วยให้เข้าใจมากขึ้นครับ

[code]

#ประกาศ thread
use Thread;
use Thread::Queue;

#ตัวแปล thread
my $thrq = new Thread::Queue;
my $running:shared;
my $thq:shared;

#จำนวน thread ที่จะให้ run
$thq = 10;
$running = 0;


# Main Program
while($thrq->pending){