Tcl & Tk/확장 패키지 (Extension Package)
tclperl-3.2
티클러
2025. 4. 10. 17:16
홈페이지 : http://jfontain.free.fr
Tcl 인터프리터에서 하나 이상의 임베디드 Perl 인터프리터를 생성하여 Tcl 인터프리터에서 Perl 코드를 실행할 수 있도록 해주는 확장 패키지입니다.
Allows the execution of Perl code from a Tcl interpreter, by creating one or more embedded Perl interpreters from the Tcl interpreter.
package require tclperl
set interpreter [perl::interp new]
$interpreter eval {print "Hello World\n"}
perl::interp delete $interpreter package require tclperl 3
set interpreter [perl::interp new]
puts [$interpreter eval {
$Tcl::parent->eval('clock format [clock seconds]');
}]
perl::interp delete $interpreter package require tclperl 3.2
set interpreter [perl::interp new]
$interpreter eval {
use threads; use Thread::Queue;
our $queue = Thread::Queue->new();
sub work() {
while (1) {
sleep(2);
$queue->enqueue(rand(100));
$Tcl::parent->eval('set done 1');
}
}
threads->new(\&work);
}
puts running...
vwait done
$interpreter eval {
my $data = $queue->dequeue();
print("got $data\n");
}